# #——包括= FALSE --------------------------------------------------------- knitr: opts_chunk美元集(崩溃= TRUE,发表评论 = "#>" ) ## ---- 消息= FALSE,结果= "隐藏 "------------------------------------------- 库(TAPseq)库(修)#老鼠骨髓10 x基因表达数据的例子数据(“bone_marrow_genex”)#记录计数GetAssayData (bone_marrow_genex)[1:10, 1:10] #每个细胞类型的细胞数量表(识别(bone_marrow_genex )) ## ---- 消息= FALSE,results="hide"------------------------------------------- #自动选择多个目标基因使用10倍交叉验证target_genes_cv <- selectTargetGenes(bone_marrow_genex) head(target_genes_cv) length(target_genes_cv) ## ---- message=FALSE, results="hide"------------------------------------------- #识别大约100个可用于识别细胞群体的目标基因target_genes_100 <- selectTargetGenes(bone_marrow_genex，目标= 100)(target_genes_100长度 ) ## ---- 消息= FALSE,警告= FALSE, fig.height = 3, fig.width = 7.15 -------------- plotTargetGenes (bone_marrow_genex target_genes = target_genes_100 ) ## ----------------------------------------------------------------------------- sessionInfo ()