R/pairwise.manova_interactive_sig.R

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

pairwise.manova_interactive_sig<-function(data){
  #Get variables with statistical significance up of 5%, in pairwise.ANOVA
  #and do MANOVA
  print(paste("Select cualitative variable for to do groups"))
  V<-variable<-select.list(colnames(data))
  WW<-sig.pairwise.anova.p[,2]
  as.factor(WW)->ZZ
  levels(ZZ)->Z
  variables.using.MANOVA<<-Z
  pairwise.manova(data, V, Z)
  pairwise.anova.p
  stop(statistical_tests_menu())
}