# \donttest{
# fit a deformation model
data(solar)
m0 <- deform(solar$x, solar$z, solar$n)
# predict D-space points for original locations
predict(m0)
# }
# predictions for one-dimensional expansion model with specified locations
# and standard error estimates
data(solar)
m1 <- expand(solar$x, solar$z, solar$n)
xvals <- seq(-123.3, -122.2, by = .1)
yvals <- seq(49, 49.4, by = .1)
xyvals <- expand.grid(xvals, yvals)
predict(m1, xyvals, se.fit = TRUE)
Run the code above in your browser using DataLab