use cbind

outputs have been changes to data.frame
bioc · Sep 17, 2021 · 1af2d87 · 1af2d87
1 parent 485625f
commit 1af2d87
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 9 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -117,7 +117,7 @@ Imports: ggplot2,
     sp,
     stats,
     utils
-RoxygenNote: 7.1.1
+RoxygenNote: 7.1.2
 Suggests: agricolae,
  BiocFileCache,
  BiocStyle,

diff --git a/R/ttest_class.R b/R/ttest_class.R
@@ -228,10 +228,8 @@ setMethod(f="model_apply",
 setMethod(f="as_data_frame",
     signature=c("ttest"),
     definition=function(M) {
-        out=data.frame('t_statistic'=M$t_statistic,
-            't_p_value'=M$p_value,
-            't_significant'=M$significant)
-        out=cbind(out,M$estimates,M$conf_int)
+        df=cbind(M$t_statistic,M$p_value,M$significant,M$estimates,M$conf_int)
+        return(df)
     }
 )
 

diff --git a/R/wilcox_test_class.R b/R/wilcox_test_class.R
@@ -264,10 +264,8 @@ setMethod(f="chart_plot",
 setMethod(f="as_data_frame",
     signature=c("wilcox_test"),
     definition=function(M) {
-        out=data.frame('w_statistic'=M$statistic[,1],
-            'w_p_value'=M$p_value[,1],
-            'w_significant'=M$significant[,1],row.names=rowname(M$statistic))
-        out=cbind(out,M$estimates,M$conf_int)
+        df=cbind(M$statistic,M$p_value,M$significant,M$estimates,M$conf_int)
+        return(df)
     }
 )