if (FALSE) {
X1<-simTexture(128,K=1,imtype="S1")[[1]]
X2<-simTexture(128,K=1,imtype="S1")[[1]]
X3<-simTexture(128,K=1,imtype="S1",sd=1.6)[[1]]
Xlist<-list(X1,X2,X3)
Xlist.class<-countTextures(Xlist, bs=100)
}
Run the code above in your browser using DataLab