## Not run:
# data(nancycats)
#
# par(mfrow=c(2,2))
# cn1 <- chooseCN(nancycats@other$xy,ask=FALSE,type=1)
# cn2 <- chooseCN(nancycats@other$xy,ask=FALSE,type=2)
# cn3 <- chooseCN(nancycats@other$xy,ask=FALSE,type=3)
# cn4 <- chooseCN(nancycats@other$xy,ask=FALSE,type=4)
# par(mfrow=c(1,1))
# ## End(Not run)
Run the code above in your browser using DataLab