library(SSN)
# Create a SpatialStreamNetork object that also contains prediction sites
#undebug(importSSN)
mf04p <- importSSN(system.file("lsndata/MiddleFork04.ssn",
package = "SSN"), predpts = "pred1km", o.write = TRUE)
names(mf04p)
summary(mf04p)
#generic plotting includes stream network and observed locations
plot(mf04p)
#plot including the color coding the response variable
plot(mf04p, "Summer_mn")
#plot using user-defined breakpoints
plot(mf04p, "Summer_mn", breaktype = "user", brks = seq(8,16,by=1))
#pass normal plotting arguments, such as xlab and ylab, to plot
plot(mf04p, "Summer_mn", xlab = "x-coordinate", ylab = "y-coordinate")
# plot observations and prediction values
plot(mf04p, "Summer_mn", cex = 2, xlab = "x", ylab = "y")
plot(mf04p, PredPointsID = "pred1km", addWithLegend = TRUE)
Run the code above in your browser using DataLab