library(SSN)
data(modelFits)
#Update the fitSp path, will vary for each users installation
fitSp$ssn.object <- updatePath(fitSp$ssn.object,
system.file("lsndata/MiddleFork04.ssn", package = "SSN"))
names(fitSp)
names(fitSp$ssn.object)
ssnpred <- predict(fitSp, predpointsID = "pred1km")
names(ssnpred)
names(ssnpred$ssn.object) ## Note additional predicted columns in pred1km
plot(ssnpred)
Run the code above in your browser using DataLab