# #——knitr回声= FALSE,结果=“隐藏 "---------------------------------------- 库(knitr) opts_chunk美元集(整洁= FALSE, dev =“png”,无花果。显示=“隐藏”,fig.width = 4, fig.height = 4.5,消息= FALSE) # #— = 50) codonCovMatrix <- codonCovMatrix[ixExpGenes，] #获取密码子覆盖的PCA codonCovMatrixTransp <- t(codonCovMatrix) rownames(codonCovMatrixTransp) <- colnames(codonCovMatrix) colnames(codonCovMatrixTransp) <- rownames(codonCovMatrix) listPCACodonCoverage <- codonPCA(codonCovMatrixTransp， "codonCoverage") listPCACodonCoverage[[2]] ## ----sessInfo,echo=TRUE,eval=TRUE--------------------------------------------- sessionInfo()