library(SSN)
# NOT RUN
# mf04 <- importSSN(system.file("lsndata/MiddleFork04.ssn",
# package = "SSN"), o.write = TRUE)
# use SpatialStreamNetwork object mf04 that was already created
data(mf04)
mf04 <- updatePath(mf04, system.file("lsndata/MiddleFork04.ssn",
package = "SSN"))
# create distance matrix among observed data points
createDistMat(mf04, o.write = TRUE)
# create distance matrix among observed data points
# and between observed and prediction points
data(mf04p)
mf04p <- updatePath(mf04p, system.file("lsndata/MiddleFork04.ssn",
package = "SSN"))
createDistMat(mf04p, predpts = "pred1km", o.write = TRUE)
# NOT RUN include prediction to prediction site distances
# createDistMat(mf04p, predpts = "pred1km", o.write = TRUE, amongpreds = TRUE)Run the code above in your browser using DataLab