# Plot a meanshift model fit
plot(fit_meanshift_norm(CET, tau = 330))
#' # Plot a trendshift model fit
plot(fit_trendshift(CET, tau = 330))
#' # Plot a quadratic polynomial model fit
plot(fit_lmshift(CET, tau = 330, deg_poly = 2))
#' # Plot a 4th degree polynomial model fit
plot(fit_lmshift(CET, tau = 330, deg_poly = 10))
# Plot a segmented time series
plot(segment(CET, method = "pelt"))
# Plot a segmented time series and show the time labels on the x-axis
plot(segment(CET, method = "pelt"), use_time_index = TRUE)
# Label the y-axis correctly
segment(CET, method = "pelt") |>
plot(use_time_index = TRUE, ylab = "Degrees Celsius")
# Summarize a tidycpt object
summary(segment(CET, method = "pelt"))
summary(segment(DataCPSim, method = "pelt"))
Run the code above in your browser using DataLab