c.basis | R Documentation |
Concatenate basis functions column-wise
## S3 method for class 'basis' c(..., recursive = FALSE)
... |
named objects of class |
recursive |
always |
c()
joins the corresponding design matrices
column-wise, ie, the two functions defined by the two bases
are added.
### set-up Bernstein and log basis functions xv <- numeric_var("x", support = c(1, pi)) bb <- Bernstein_basis(xv, order = 3, ui = "increasing") lb <- log_basis(xv, remove_intercept = TRUE) ### join them blb <- c(bern = bb, log = lb) ### generate data + coefficients x <- as.data.frame(mkgrid(blb, n = 100)) cf <- c(1, 2, 2.5, 2.6, 2) ### evaluate bases model.matrix(blb, data = x[1:10, ,drop = FALSE]) ### evaluate and plot function defined by ### bases and coefficients plot(x$x, predict(blb, newdata = x, coef = cf), type = "l") ### evaluate and plot first derivative of function ### defined by bases and coefficients plot(x$x, predict(blb, newdata = x, coef = cf, deriv = c(x = 1)), type = "l")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.