# NOT RUN {
# }
# NOT RUN {
X<-simTexture(256,K=1,imtype="NS2")[[1]]
XQT<-imageQT(X, bs=100, smooth=FALSE)
XCI <- Tex(XQT$imS, bs=100, smooth=FALSE)
plot(XQT, XCI, QT=T, class=T)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab