缺失值处理

GSE25618 <- getGEO('GSE25618', destdir = ".",

AnnotGPL = F,

getGPL = F)

eSet=GSE25618[[1]]

probes_expr <- exprs(eSet)

#BiocManager::install('impute')

library(impute)

exp <- impute.knn(probes_expr, k = 10, rowmax = 0.5, colmax = 0.8, maxp = 1500, rng.seed=362436069)

exp <- exp$data

©著作权归作者所有,转载或内容合作请联系作者
【社区内容提示】社区部分内容疑似由AI辅助生成，浏览时请结合常识与多方信息审慎甄别。
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。