# NOT RUN {
data1 <- getmd(<U+2018>sample1-1<U+2019>)
data2 <- getmd(<U+2018>sample1-2<U+2019>)
data3 <- getmd(<U+2018>sample1-3<U+2019>)
data4 <- getmd(<U+2018>sample1-4<U+2019>)
data5 <- getmd(<U+2018>sample1-5<U+2019>)
data <- (data1+data2+data3+data4+data5)/5
datasd <- sqrt(((data1-data)^2+(data2-data)^2+(data3-data)^2+(data4-data)^2+(data5-data)^2)/4)
databrsd <- datasd/data
plotsms(meanmatrix,rsdmatrix)
# }
Run the code above in your browser using DataLab