diff --git a/DESCRIPTION b/DESCRIPTION index baf2a0d..5901bc7 100644 --- 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 index 37d079e..16f961f 100644 --- 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 index 96b7786..9a50d73 100644 --- 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) } )