require(fmsb) CA <- 10:1*5-3 FRE <- c(1,2,3,6,8,17,26,11,2,0) X <- c(rep(CA,FRE)) median(X) truemedian(X,5)