s.decr.decr | R Documentation |
A symbolic routine to define that a surface is decreasing in two predictors in a formula argument to cgam.
s.decr.decr(x1, x2, numknots = c(0, 0), knots = list(k1 = 0, k2 = 0), space = c("E", "E"))
x1 |
A numeric predictor which has the same length as the response vector. |
x2 |
A numeric predictor which has the same length as the response vector. |
numknots |
A vector of the number of knots used to constrain |
knots |
A list of two vectors of knots used to constrain |
space |
A vector of the character specifying the method to create knots for |
"s.decr.decr" returns the vectors "x1" and "x2", and imposes on each vector six attributes: name, shape, numknots, knots, space and decreasing.
The name attribute is used in the subroutine plotpersp; the numknots, knots and space attributes are the same as the numknots, knots and space arguments in "s.decr.decr"; the shape attribute is "wps_dd"(doubly-decreasing); the decreasing values for both vectors are TRUE. According to the value of the vector itself and its shape, numknots, knots, space and decreasing attributes, the cone edges will be made by warped-plane spline basis functions in Meyer (2016). The cone edges are a set of basis employed in the hinge algorithm.
Note that "s.decr.decr" does not make the corresponding cone edges itself. It sets things up to a subroutine called makedelta_wps.
See references cited in this section for more details.
The vectors x_1
and x_2
. Each of them has six attributes, i.e., name: names of x_1
and x_2
; shape: "wps_dd"(doubly-decreasing); numknots: the numknots argument in "s.decr.decr"; knots: the knots argument in "s.decr.decr"; space: the space argument in "s.decr.decr"; decreasing: two logical values indicating the monotonicity of the isotonically-constrained surface with respect to x_1
and x_2
, which are both TRUE.
Mary C. Meyer and Xiyue Liao
Meyer, M. C. (2017) Estimation and inference for regression surfaces using shape-constrained splines.
s.incr.incr
, s.decr.incr
, s.incr.decr
, cgam
## Not run:
# generate data
n <- 100
set.seed(123)
x1 <- runif(n)
x2 <- runif(n)
y <- -4 * (x1 + x2 - x1 * x2) + rnorm(n, sd = .2)
# regress y on x1 and x2 under the shape-restriction: "doubly-decreasing"
# using the penalized estimator
ans <- cgam(y ~ s.decr.decr(x1, x2), pnt = TRUE)
# make a 3D plot of the constrained surface
plotpersp(ans)
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.