#Generate an empty spectrum
#
Spectrum<-cddews(matrix(0,64,64),smooth=FALSE)
#
#Add power at the first scale, in the vertical direction
#
Spectrum$S[1,,]<-matrix(1,64,64)
#
# Simulate an LS2W process with this structure
#
testimage<- LS2Wsim(Spectrum)
#
Run the code above in your browser using DataLab