rm getOPLSDA() function

YonghuiDong · Apr 9, 2021 · 4bc7319 · 4bc7319
1 parent 624427d
commit 4bc7319
Show file tree

Hide file tree

Showing 4 changed files with 1 addition and 72 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -11,7 +11,6 @@ export(doStat)
 export(getCV)
 export(getFC)
 export(getMax)
-export(getOPLSDA)
 export(getP)
 export(mass)
 export(mz)
@@ -38,7 +37,6 @@ importFrom(plotly,ggplotly)
 importFrom(plotly,layout)
 importFrom(plotly,plot_ly)
 importFrom(reshape2,melt)
-importFrom(ropls,opls)
 importFrom(stats,TukeyHSD)
 importFrom(stats,aggregate)
 importFrom(stats,as.formula)

diff --git a/R/doStat.R b/R/doStat.R
@@ -16,8 +16,7 @@ doStat <- function(x, Group = NULL){
   myCV <- getCV(x, Group = Group)
   myFC <- getFC(x, Group = Group)
   myP <- getP(x, Group = Group)
-  myOPLSDA <- getOPLSDA(x, Group = Group)
-  myStat <- cbind(maxSample, myCV, myFC, myP, myOPLSDA)
+  myStat <- cbind(maxSample, myCV, myFC, myP)
   cat("\nStatistical analysis done. \n")
   rownames(myStat) <- colnames(x)
   return(myStat)

diff --git a/R/getOPLSDA.R b/R/getOPLSDA.R
diff --git a/man/getOPLSDA.Rd b/man/getOPLSDA.Rd