# NOT RUN {
data(aegean)
#fit two threshold models (in logA-S space) and the linear and
#intercept only models
fct <- sar_threshold(aegean, mod = c("ContOne", "DiscOne"),
non_th_models = TRUE, interval = 5,
parallel = FALSE, logAxes = "area")
#plot using default settings
plot(fct)
#change various plotting settings, and set the graph margins prior to
#plotting
par(mai = c(0.7,0.7, 0.4, 0.3))
plot(fct, pcol = "blue", pch = 18, lcol = "green",
ModTitle = c("A", "B", "C", "D"), TiAdj = 0.5, xlab = "Yorke")
# }
Run the code above in your browser using DataLab