nsx(x, df = NULL, knots = NULL, intercept = FALSE,
Boundary.knots = range(x), derivs = if (cure) c(2, 1) else c(2, 2),
log = FALSE, centre = FALSE,
cure = FALSE, stata.stpm2.compatible = FALSE)
df
rather than
knots; ns()
then chooses df - 1 - intercept + 4 - sum(derivs)
knots at
suitably chosen quantiles of x
(which will ignore missing values).x
. Typical values are the
mean or median for one knot, quantiles for morTRUE
, an intercept is included in the
basis; default is FALSE
.knots
and Boundary.knots
are
supplied, the basis parameters do not depend on <length(x) * df
where either df
was
supplied or if knots
were supplied,
df = length(knots) + 1 + intercept
.
Attributes are returned that correspond to the arguments to ns
,
and explicitly give the knots
, Boundary.knots
etc for
use by predict.nsx()
. nsx()
is based on the functions ns
and spline.des
. It
generates a basis matrix for representing the family of
piecewise-cubic splines with the specified sequence of
interior knots, and the natural boundary conditions. These enforce
the constraint that the function is linear beyond the boundary knots,
which can either be supplied, else default to the extremes of the
data. A primary use is in modeling formula to directly specify a
natural spline term in a model.
The extensions from ns
are: specification of the
derivative constraints at the boundary knots; whether to centre the
knots; incorporation of cure using derivatives; compatible knots
with Stata's stpm2; and an indicator for a log-transformation of
x
for calculating derivatives.
ns
, bs
, predict.nsx
, SafePrediction
require(stats); require(graphics); require(splines)
nsx(women$height, df = 5)
summary(fm1 <- lm(weight ~ ns(height, df = 5), data = women))
## example of safe prediction
plot(women, xlab = "Height (in)", ylab = "Weight (lb)")
ht <- seq(57, 73, length.out = 200)
lines(ht, predict(fm1, data.frame(height=ht)))
Run the code above in your browser using DataLab