# #设置,包括= FALSE --------------------------------------------------- is_check < -(“CheckExEnv”% %搜索())| |任何(c(“_R_CHECK_TIMINGS_”、“_R_CHECK_LICENSE_”)% %名称(Sys.getenv ())) knitr:: opts_chunk设置美元(eval = ! is_check,崩溃= TRUE,评论= " # > ")库(ADImpute ) ## ---- 警告= FALSE,消息= FALSE, eval = FALSE -------------------------------- # RPM < - NormalizeRPM (ADImpute:: demo_data) #估算<转嫁(data = RPM, = c(“网络”),核= 2,#网。coef = ADImpute::demo_net) ## ---- warning=FALSE, message=FALSE, results=FALSE----------------------------- RPM <- NormalizeRPM(ADImpute::demo_data) methods_pergene <- EvaluateMethods(data = RPM, do = c("Baseline"， "DrImpute"， "Network")， cores = 2, net. net。系数= ADImpute:: demo_net ) ## ---- 警告= FALSE ----------------------------------------------------------- 头(methods_pergene ) ## ---- 警告= FALSE,消息= FALSE,结果= FALSE ----------------------------- 估算< -转嫁(=“合奏”,方法。select = methods_pergene, data = RPM, cores = 2, net。系数= ADImpute:: demo_net ) ## ---- 警告= FALSE ----------------------------------------------------------- str(估算 ) ## ---- 警告= FALSE,消息= FALSE,结果= FALSE ----------------------------- 估算<转嫁(=“基线”,数据= RPM,核= 2,true.zero.thr =。3 ) ## ---- 警告= FALSE ----------------------------------------------------------- str(估算 ) ## ---- 警告= FALSE,消息= FALSE,结果= FALSE ----------------------------- 南加州爱迪生公司< - NormalizeRPM南加州爱迪生公司(sce = ADImpute:: demo_sce) < - EvaluateMethods南加州爱迪生公司(sce = sce) < -嫁祸于南加州爱迪生公司(sce = ) ## ---- 警告= FALSE, eval = FALSE ----------------------------------------------- # # # 调用scImpute #如果(“scImpute”% %降低(做)){#消息(“确保你之前安装的scImpute通过GitHub。\ n”)# res < - tryCatch (ImputeScImpute (count_path标签= is.null(标签),# Kcluster =细胞。cluster, labels = labels, drop_thre = drop_thre， # cores = cores, type = type, tr.length = tr.length)， # error = function(e){stop(paste(' error:'， e$message， # '\nTry sourcing Impute_extra. length)R file.'))}) # imputed$scImpute <- log2((res / scale) + pseudo.count) #} # #调用SCRABBLE # if(' SCRABBLE ' %in% tolower(do)){# message('确保你之前已经通过GitHub安装了SCRABBLE .\n') # res <- tryCatch(ImputeSCRABBLE(data, bulk)， # error = function(e) {stop(paste(' error:'， e$message， # '\nTry源Impute_extra. count)R文件。'))})#估算美元拼字游戏<——log2 ((res /规模)+ pseudo.count) # rm (res); gc () # } ## ----------------------------------------------------------------------------- sessionInfo ()