if (FALSE) {
#options(mc.cores = parallel::detectCores())
# Import SpatialStreamNetwork object
#path <- system.file("extdata/clearwater.ssn", package = "SSNbayes")
#n <- SSN2::ssn_import(path, predpts = "preds", overwrite = TRUE)
## Imports a data.frame containing observations and covariates
#clear <- readRDS(system.file("extdata/clear_obs.RDS", package = "SSNbayes"))
#fit_ar <- ssnbayes(formula = y ~ SLOPE + elev + h2o_area + air_temp + sin + cos,
# data = clear,
# path = path,
# time_method = list("ar", "date"),
# space_method = list('use_ssn', c("Exponential.taildown")),
# iter = 2000,
# warmup = 1000,
# chains = 3,
# net = 2, # second network on the ssn object
# addfunccol='afvArea')
#space_method options examples
#use list('no_ssn', 'Exponential.Euclid', c('lon', 'lat')) if no ssn object is available
}
Run the code above in your browser using DataLab