## Not run:
# data(degelder)
# gr <- somgrid(5, 5, "hexagonal")
# set.seed(7)
# x <- wccxyf(degelder$patterns, degelder$properties[,"cell.vol"],
# grid=gr, trwidth=20, rlen=100)
# plot(x, "predict")
#
# predicted.volumes <- predict(x)
# plot(degelder$properties[,"cell.vol"], predicted.volumes$predictions,
# xlab="Cell volume", ylab="Predicted cell volume")
# abline(0,1, col="gray")
# ## End(Not run)
Run the code above in your browser using DataLab