# NOT RUN {
N <- 50
M <- 4
ourData <- matrix(rnorm(N*M,mean=0,sd=1), N, M)
ourData[,2] <- ourData[,2]+1
ourData[,3] <- ourData[,3]+0.7
ourData[,4] <- ourData[,4]+0.5
colnames(ourData) <- c("Method A","Method B","Method C - long name","Method D")
rmc(ourData, distribution="norm", level=0.95)
# In case of AE-based measures, distribution="fnorm" should be selected
rmc(abs(ourData), distribution="fnorm", level=0.95)
# In case of SE-based measures, distribution="chisq" should be selected
rmc(ourData^2, distribution="chisq", level=0.95)
# APE-based measures should not be used in general...
# If RelMAE or RelMSE is used for measuring data, then it makes sense to use
# distribution="norm" and provide logarithms of the RelMAE, which can be approximated by
# normal distribution
ourData <- abs(ourData)
rmc(ourData / ourData[,1], distribution="norm", level=0.95)
# The following example should give similar results to nemenyi test on
# large samples, which compares medians of the distributions:
rmc(t(apply(ourData,1,rank)), distribution="norm", level=0.95)
# }
Run the code above in your browser using DataLab