kruskalexample.r

require(PMCMR)
options("width"=10000)
ARRAY <- c(71.0834535417,71.2849524031,70.3918527878,71.1773985389,70.9519485657,72.3763546849,71.1231236346,70.9259815337,71.340426964,72.0919305092,71.5772823121,71.4498455109,71.2174119203,71.5866652811,71.8066665322,70.542109236,71.5504929733,70.010967731,71.4671705339,71.8730361771,39.5648369242,42.3565999576,48.1252091392,49.0833558378,41.8768745788,47.5488259794,48.2556029774,46.8837699502,43.2021274019,40.6216033077,39.2997595782,51.5977908224,40.4527185019,52.8814709667,43.4912045113,37.7384515457,49.0469170041,40.1070228234,36.9692317096,39.2960160738,72.3228841534,72.4738379564,71.1929112257,71.3077631237,71.6297561607,72.6061565208,71.2629618729,72.561152755,71.5794516665,72.0233656473,72.5730272693,72.5811837757,72.3571328563,71.3366418636,73.204857885,72.1360068476,72.4743667915,72.1736701857,72.2166099157,71.7206540453,70.7726028782,69.8140445106,71.3505978067,71.2028760475,71.519136529,71.0002543741,71.2500082197,70.9906638872,71.6610206877,71.1548893313,71.7533556145,72.2400823436,71.339206917,71.9591676599,71.7303219609,70.5828201047,71.0612624257,70.4207303872,72.0331258568,70.5451073525)
categs<-as.factor(rep(c("NSGAIII+MOEADSTM","NSGAIII","COMOEA-MOEADSTM1,NSGAIII","MOEADSTM1"),each=20));
result <- kruskal.test(ARRAY,categs)
print(result);pos_teste<-posthoc.kruskal.nemenyi.test(ARRAY, categs, method='Tukey');print(pos_teste);