
Last chance! 50% off unlimited learning
Sale ends in
Plots quantiles associated with a Gumbel model.
qtplot.gumbel(object, show.plot = TRUE,
y.arg = TRUE, spline.fit = FALSE, label = TRUE,
R = object@misc$R, percentiles = object@misc$percentiles,
add.arg = FALSE, mpv = object@misc$mpv,
xlab = NULL, ylab = "", main = "",
pch = par()$pch, pcol.arg = par()$col,
llty.arg = par()$lty, lcol.arg = par()$col, llwd.arg = par()$lwd,
tcol.arg = par()$col, tadj = 1, ...)
Logical. Plot it? If FALSE
no plot will be done.
Logical. Add the raw data on to the plot?
Logical. Use a spline fit through the fitted percentiles? This can be useful if there are large gaps between some values along the covariate.
Logical. Label the percentiles?
See gumbel
.
See gumbel
.
Logical. Add the plot to an existing plot?
See gumbel
.
Caption for the x-axis. See par
.
Caption for the y-axis. See par
.
Title of the plot. See title
.
Plotting character. See par
.
Color of the points.
See the col
argument of par
.
Line type. Line type.
See the lty
argument of par
.
Color of the lines.
See the col
argument of par
.
Line width.
See the lwd
argument of par
.
Color of the text
(if label
is TRUE
).
See the col
argument of par
.
Text justification.
See the adj
argument of par
.
Arguments passed into the plot
function
when setting up the entire plot. Useful arguments here include
sub
and las
.
The object with a list called qtplot
in the post
slot of object
.
(If show.plot = FALSE
then just the list is returned.)
The list contains components
The percentiles of the response, possibly including the MPV.
The percentiles (small vector of values between 0 and 100.
There should be a single covariate such as time.
The quantiles specified by percentiles
are plotted.
# NOT RUN {
ymat <- as.matrix(venice[, paste("r", 1:10, sep = "")])
fit1 <- vgam(ymat ~ s(year, df = 3), gumbel(R = 365, mpv = TRUE),
data = venice, trace = TRUE, na.action = na.pass)
head(fitted(fit1))
# }
# NOT RUN {
par(mfrow = c(1, 1), bty = "l", xpd = TRUE, las = 1)
qtplot(fit1, mpv = TRUE, lcol = c(1, 2, 5), tcol = c(1, 2, 5),
lwd = 2, pcol = "blue", tadj = 0.4, ylab = "Sea level (cm)")
qtplot(fit1, perc = 97, mpv = FALSE, lcol = 3, tcol = 3,
lwd = 2, tadj = 0.4, add = TRUE) -> saved
head(saved@post$qtplot$fitted)
# }
Run the code above in your browser using DataLab