# NOT RUN {
# }
# NOT RUN {
data(gaschrom)
mygrid <- ptwgrid(gaschrom[1,], gaschrom[16,],
coef.mins = c(-10, .9), coef.max = c(10, 1.1),
coef.lengths = c(21, 21))
image(seq(-10, 10, length = 21),
seq(.9, 1.1, length = 21),
mygrid)
# }
Run the code above in your browser using DataLab