Commit a25673de authored by Jalbert, Joe's avatar Jalbert, Joe
Browse files

Fix to simplify (now simplifyAppend)

parent bf1d27c3
...@@ -22,7 +22,7 @@ se=function(data){ ...@@ -22,7 +22,7 @@ se=function(data){
#' @export #' @export
#' #'
#' @examples #' @examples
simplify <- function(input) { simplifyAppend <- function(input) {
x=match("Signif",colnames(input))+1 x=match("Signif",colnames(input))+1
y=as.numeric(ncol(input)) y=as.numeric(ncol(input))
df=input%>% df=input%>%
...@@ -161,7 +161,7 @@ appendInteraction=function(report,df, Measures,Factor,Interaction, Simplify=T){ ...@@ -161,7 +161,7 @@ appendInteraction=function(report,df, Measures,Factor,Interaction, Simplify=T){
output=report%>% output=report%>%
left_join(anova, by="Measure") left_join(anova, by="Measure")
if(Simplify==T){ if(Simplify==T){
output=simplify(output) output=simplifyAppend(output)
} }
} else { } else {
warning("Error in ANOVA, No comparison added.") warning("Error in ANOVA, No comparison added.")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment