Nothing
# Brian Stock
# March 8, 2016
# Script file to run snail example without GUI
##########################################################################################
# Snail example (1 isotope)
# The Snail Example data is from Yanes et al. (2013) and demonstrates how MixSIAR handles
# 1-dimensional data. Here we analyze the preference of land snails between C3 and CAM plants.
# We have:
# 1 biotracer (d13C)
# Raw source data
library(MixSIAR)
# Load mix data
mix.filename <- system.file("extdata", "snail_consumer.csv", package = "MixSIAR")
mix <- load_mix_data(filename=mix.filename,
iso_names=c("d13C"),
factors=NULL,
fac_random=NULL,
fac_nested=NULL,
cont_effects=NULL)
# Load source data
source.filename <- system.file("extdata", "snail_sources.csv", package = "MixSIAR")
source <- load_source_data(filename=source.filename,
source_factors=NULL,
conc_dep=FALSE,
data_type="raw",
mix)
# Load discrimination/TDF data
discr.filename <- system.file("extdata", "snail_discrimination.csv", package = "MixSIAR")
discr <- load_discr_data(filename=discr.filename, mix)
# Make isospace plot
plot_data(filename="isospace_plot",
plot_save_pdf=TRUE,
plot_save_png=FALSE,
mix,source,discr)
# Plot your prior
plot_prior(alpha.prior=1,source)
# Define model structure and write JAGS model file
model_filename <- "MixSIAR_model.txt"
resid_err <- TRUE
process_err <- TRUE
write_JAGS_model(model_filename, resid_err, process_err, mix, source)
# Run the JAGS model ("test" first, then "normal")
jags.1 <- run_model(run="test", mix, source, discr, model_filename, alpha.prior=1)
#jags.1 <- run_model(run="normal", mix, source, discr, model_filename, alpha.prior=1)
# Process diagnostics, summary stats, and posterior plots
output_JAGS(jags.1, mix, source)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.