use cbind

grlloyd · grlloyd · commit 1af2d8776868 · 2021-09-17T13:51:56.000+01:00
outputs have been changes to data.frame
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)
     }
 )
 

Original file line number	Diff line number	Diff line change
`@@ -228,10 +228,8 @@ setMethod(f="model_apply",`
`228`	`228`	`setMethod(f="as_data_frame",`
`229`	`229`	`signature=c("ttest"),`
`230`	`230`	`definition=function(M) {`
`231`		`- out=data.frame('t_statistic'=M$t_statistic,`
`232`		`- 't_p_value'=M$p_value,`
`233`		`- 't_significant'=M$significant)`
`234`		`- out=cbind(out,M$estimates,M$conf_int)`
	`231`	`+ df=cbind(M$t_statistic,M$p_value,M$significant,M$estimates,M$conf_int)`
	`232`	`+ return(df)`
`235`	`233`	`}`
`236`	`234`	`)`
`237`	`235`
Original file line number	Diff line number	Diff line change
`@@ -264,10 +264,8 @@ setMethod(f="chart_plot",`
`264`	`264`	`setMethod(f="as_data_frame",`
`265`	`265`	`signature=c("wilcox_test"),`
`266`	`266`	`definition=function(M) {`
`267`		`- out=data.frame('w_statistic'=M$statistic[,1],`
`268`		`- 'w_p_value'=M$p_value[,1],`
`269`		`- 'w_significant'=M$significant[,1],row.names=rowname(M$statistic))`
`270`		`- out=cbind(out,M$estimates,M$conf_int)`
	`267`	`+ df=cbind(M$statistic,M$p_value,M$significant,M$estimates,M$conf_int)`
	`268`	`+ return(df)`
`271`	`269`	`}`
`272`	`270`	`)`
`273`	`271`