CV<-c(1.4637799,0.7036285,0.6242480,0.6069406,0.6006877,0.6005472,0.5707958,
0.5907897,0.5895489)
CVsd<-c(0.7867428,0.4477943,0.2755896,0.3597420,0.2694985,0.3762265,
0.2517451,0.2920380,0.4067000)
CVout <- matrix(c(CV,CVsd), ncol=2)
oneSdRule(CVout)
Run the code above in your browser using DataLab