## 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)
# ## End(Not run)
Run the code above in your browser using DataLab