# NOT RUN {
#Generate a stationary image
testimage <- matrix(rnorm(64*64), nrow=64, ncol=64)
# Run test of stationarity
# }
# NOT RUN {
TestofStat<-TOS2D(testimage)
# Obtain p-value
getpval(TestofStat$samples)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab