Heft: hazard estimation with flexible tails
Plots a density, distribution function, hazard
function or survival function for
a heft object.
## S3 method for class 'heft' plot(x, n = 100, what = "d", add = FALSE, xlim, xlab, ylab, type, ...)
x |
|
n |
the number of equally spaced points at which to plot the function. |
what |
what should be plotted: |
add |
should the plot be added to an existing plot? |
xlim |
plotting limits; default is from the maximum of 0 and 10% before the 1st percentile to the minimmum of 10% further than the 99th percentile and the largest observation. |
xlab,ylab |
labels for the axes. The default is no labels. |
type |
plotting type. The default is lines. |
... |
all other plotting options are passed on. |
This function produces a plot of a heft fit at n equally
spaced points roughly covering the support of the density. (Use
xlim=c(from,to) to change the range of these points.)
Charles Kooperberg clk@fredhutch.org.
Charles Kooperberg, Charles J. Stone and Young K. Truong (1995). Hazard regression. Journal of the American Statistical Association, 90, 78-94.
Charles J. Stone, Mark Hansen, Charles Kooperberg, and Young K. Truong. The use of polynomial splines and their tensor products in extended linear modeling (with discussion) (1997). Annals of Statistics, 25, 1371–1470.
fit1 <- heft(testhare[,1], testhare[,2])
plot(fit1, what = "h")
# modify tail behavior
fit2 <- heft(testhare[,1], testhare[,2], leftlog = FALSE, rightlog = FALSE,
leftlin = TRUE)
plot(fit2, what = "h", add = TRUE,lty = 2)
fit3 <- heft(testhare[,1], testhare[,2], penalty = 0) # select largest model
plot(fit3, what = "h", add = TRUE,lty = 3)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.