# \donttest{
options(digits=3)
data(kykladspecreg)
data(nb)
set.seed(1234)
x <- prabinit(prabmatrix=kykladspecreg, neighborhood=nb)
xc <- prabclust(x)
crmatrix(x,xc)
crmatrix(x,xc, percentages=TRUE)
# }
Run the code above in your browser using DataLab