# NOT RUN {
data(galap)
#plot a multimodel SAR curve with all model fits included
fit <- sar_average(data = galap, grid_start = "none")
plot(fit)
#remove the legend
plot(fit, pLeg = FALSE)
#plot just the multimodel curve
plot(fit, allCurves = FALSE, ModTitle = "", lcol = "black")
#plot all model fits and the multimodel curve on top as a thicker line
plot(fit, allCurves = TRUE, mmSep = TRUE, lwd.Sep = 6, col.Sep = "orange")
#Plot a barplot of the model weights
plot(fit, type = "bar")
#subset to plot only models with weight > 0.05
plot(fit, type = "bar", subset_weights = 0.05)
# }
Run the code above in your browser using DataLab