Update _sample_run_all_methods.R

noobCoding · web-flow · commit e4cdb3c84f28 · 2023-01-31T15:58:23.000+09:00
parameter name fixed
diff --git a/code/Result-Evaluation/COVID19-LUAD-Analysis/_sample_run_all_methods.R b/code/Result-Evaluation/COVID19-LUAD-Analysis/_sample_run_all_methods.R
@@ -103,7 +103,7 @@ do.run<-function(m,former.meth='',P_ref.ind=NULL){
         post.meth=run_limmavoom(processed = processed,cellinfo,cov=str_detect(m,pattern='Cov$'),former.meth = former.meth)
       }
     }else if(m=='QP'){
-      post.meth=run_QP(processed = processed,cellinfo,former.meth = former.meth)
+      post.meth=run_QP(res = res,cellinfo,former.meth = former.meth)
     }else if(m=='REM'){
       post.meth=run_REM(res = res,cellinfo,former.meth = former.meth)
     }else if(m=='FEM'){

Original file line number	Diff line number	Diff line change
`@@ -103,7 +103,7 @@ do.run<-function(m,former.meth='',P_ref.ind=NULL){`
`103`	`103`	`post.meth=run_limmavoom(processed = processed,cellinfo,cov=str_detect(m,pattern='Cov$'),former.meth = former.meth)`
`104`	`104`	`}`
`105`	`105`	`}else if(m=='QP'){`
`106`		`- post.meth=run_QP(processed = processed,cellinfo,former.meth = former.meth)`
	`106`	`+ post.meth=run_QP(res = res,cellinfo,former.meth = former.meth)`
`107`	`107`	`}else if(m=='REM'){`
`108`	`108`	`post.meth=run_REM(res = res,cellinfo,former.meth = former.meth)`
`109`	`109`	`}else if(m=='FEM'){`