jacksonpradolima

#!/bin/sh
 
# installation of Oracle Java JDK.
sudo apt-get -y update
sudo apt-get -y install python-software-properties
sudo add-apt-repository -y ppa:webupd8team/java
sudo apt-get -y update
sudo apt-get -y install oracle-java7-installer

# Installation of commonly used python scipy tools

jacksonpradolima

# execute the function kruskal.test.with.post.hoc

#read the data
csv_file <- "kruskal_final_bisect.csv"
my_data <- read.csv(csv_file, sep=";")
result <- kruskal.test.with.post.hoc(my_data$Value, my_data$Group, my_data)
result
format(result$Nemenyi$p.value, scientific = TRUE)
format(result$Kruskal$p.value, scientific = TRUE)

jacksonpradolima

#' @title Tests for multiple comparisons - Kruskal-Wallis with Post-hoc (when necessary)
#'
#' @description This function is a wrapper to multiple comparison tests.
#' @param value
#' @param group
#' @param data 
#' @param alpha
kruskal.test.with.post.hoc <- function(value, group, data, alpha = 0.05, notch = FALSE, omm = FALSE)
{
  print("If you would like export the data frames to LaTeX, we recommend to install and to use 'xtable'.")

jacksonpradolima

#' @title Evaluate the data distribution
#'
#' \code{evaluate.data.distribution} returns the data evaluation of a matrix,
#' This function contains the Shapiro-Wilk W test, and graphs and plots from DescTools and scmamp packages
#'
#' @description This function is a wrapper to evaluate when there is multiple comparison tests.
#' @param data
#' @param isEnglish
#' @return A list with the evaluation results
#' 

jacksonpradolima

prepare.data.statistical.test <- function(csvName = "teste.csv"){
  
  #read the data
  my_data <- read.csv(csvName, sep=";")

  #replace the rownames with the instance (problem) names
  row.names(my_data) <- my_data$Instance

  #remove the Instance column
  my_data <- my_data[,!(names(my_data) %in% c("Instance"))]

jacksonpradolima

friedman.test.with.post.hoc <- function(data, alpha = 0.05)
{
  print("Check if you missing the packages 'graph' and 'Rgraphviz'. Try to install them using bioconductor")
  
  #source("http://bioconductor.org/biocLite.R")
  #biocLite(c("graph","Rgraphviz"))
  
  # Loading needed packages
  if(!require(ggplot2))
  {