# NOT RUN {
data(example3)
sym.data<-example3
sd(sym.data[,1])
sd(sym.data[,2])
sd(sym.data[,6])
sd(sym.data[,6], method='interval')
sd(sym.data[,6], method='billard')
sd(sym.data[,3],method='modal')
# }
Run the code above in your browser using DataLab