# NOT RUN {
# Measures of dissimilarity:
exl <- c(rep(0,5), rep(1,5), rep(2,5), rep(3,5))
el <- c(0,0,1,0,0,1,2,1,0,1,2,2,3,2,2,3,2,3,1,3)
randfun(exl,el)
## outputs:
#[1] 0.2368421
# }
Run the code above in your browser using DataLab