# 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