# create two images to be compared:
X1<-simTexture(32,K=1,imtype="S1")[[1]]
X2<-simTexture(32,K=1,imtype="S1", sd=1.6)[[1]]
# use the test to compare them:
test<-compareImages(X1,X2,nsamples=100, smooth=FALSE)
Run the code above in your browser using DataLab