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){
#' @export
#'
#' @examples
simplify <- function(input) {
simplifyAppend <- function(input) {
x=match("Signif",colnames(input))+1
y=as.numeric(ncol(input))
df=input%>%
......@@ -161,7 +161,7 @@ appendInteraction=function(report,df, Measures,Factor,Interaction, Simplify=T){
output=report%>%
left_join(anova, by="Measure")
if(Simplify==T){
output=simplify(output)
output=simplifyAppend(output)
}
} else {
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