# NOT RUN {
# An example with numerical data
x <- rnorm(100)
CentralValue(x)
# An example with nominal data
y <-
factor(sample(1:10,200,replace=TRUE),levels=1:10,labels=paste('v',1:10,sep=''))
CentralValue(y)
# }
Run the code above in your browser using DataLab