### R代码从vignette源的geneRecommenderRnw ' ################################################### ### 代码块1号:geneRecommender。Rnw: 53-58 ################################################### 图书馆(geneRecommender)数据(geneData)我。查询<- c("31613_at"， "31712_at"， "31497_at")归一化。data <- gr.normalize(geneData) gr.main(normalized. main)数据,我。查询,ngen = 10 ) ################################################### ### 代码块2号:geneRecommender。Rnw: 77 - 78 ################################################### gr.cv(归一化。数据,我。query) ################################################### ### code chunk number 3: geneRecommender.Rnw:108-110 ################################################### normal.normalized.data <- qnorm((normalized.data + 1)/2) gr.main(normal.normalized.data, my.query, ngenes = 10) ################################################### ### code chunk number 4: geneRecommender.Rnw:127-131 ################################################### my.fun.1 <- function(input.vector){ sum(input.vector^(1/2), na.rm = T) } gr.main(normalized.data, my.query, ngenes = 10, fun = my.fun.1) ################################################### ### code chunk number 5: geneRecommender.Rnw:144-148 ################################################### my.fun.2 <- function(input.vector){ 1 } gr.main(normalized.data, my.query, ngenes = 10, fun = my.fun.2) ################################################### ### code chunk number 6: geneRecommender.Rnw:158-160 ################################################### options(digits = 2) gr.main(normalized.data, my.query, ngenes = 10, extra = T) ################################################### ### code chunk number 7: geneRecommender.Rnw:200-201 ################################################### toLatex(sessionInfo())