R/pairwise.manova_interactive.R

In jfpalomeque/pandora: Data processing of marks in bones, from images of sections

pairwise.manova_interactive<-function(data){
  print(paste("Select cualitative variable for to do groups"))
  V<-variable<-select.list(colnames(data))
  cat("Write cuantitative variables for to do MANOVA, \n separated by commas (NOT SPACES, NOT QUOTES)\n")
  print(list(colnames(data)))
  readline(prompt=":")->>Z
  strsplit(Z, ",")->Z
  Z<-unlist(Z)
  pairwise.manova(data, V, Z)
  pairwise.anova.p
  stop(statistical_tests_menu())
}