diff --git a/R/plot_aggregate_biomass.R b/R/plot_aggregate_biomass.R index 3f98bd9b..2f10ad9f 100644 --- a/R/plot_aggregate_biomass.R +++ b/R/plot_aggregate_biomass.R @@ -292,7 +292,6 @@ plot_aggregate_biomass <- function(shadedRegion = NULL, ecodata::geom_gls(ggplot2::aes(x = Time, y = Mean, color = Var), alpha = setup$trend.alpha, size = setup$trend.size) + - ecodata::geom_lm(ggplot2::aes(x = Time, y = Mean))+ # ecodata::geom_lm(aes(x = Time, y = Mean, # color = Var), diff --git a/R/theme_ts.R b/R/theme_ts.R index 493ee552..dc11970d 100644 --- a/R/theme_ts.R +++ b/R/theme_ts.R @@ -14,7 +14,7 @@ #' #Plot series with trend and SOE plot theme #' ggplot(data = data) + #' geom_line(aes(x = x, y = y)) + -#' stat_gls(aes(x = x, y = y, color = stat(col)))+ +#' geom_gls(aes(x = x, y = y))+ #' theme_ts() theme_ts <- function(...){ diff --git a/man/theme_ts.Rd b/man/theme_ts.Rd index fb4e83ef..140f3d60 100644 --- a/man/theme_ts.Rd +++ b/man/theme_ts.Rd @@ -21,6 +21,6 @@ data <- data.frame(x = x, #Plot series with trend and SOE plot theme ggplot(data = data) + geom_line(aes(x = x, y = y)) + - stat_gls(aes(x = x, y = y, color = stat(col)))+ + geom_gls(aes(x = x, y = y))+ theme_ts() }