Description Usage Arguments Details Value Author(s) See Also Examples
This function performs the optimisation of the number of unconstrained regression parameters in Smooth-Rough Partition model by minimising SIC criterion and gives the change-point of smoothness in regression parameters.
1 2 | sic.c(x.basis = x.basis, B.basis = B.basis, x = x, y = y,
cf0 = cf0, maxq = maxq, fixedq = F, L = L, inisp = inisp)
|
x.basis |
The b-spline basis defined for interpolated x in |
B.basis |
The b-spline basis defined for constrained regression coefficient. |
x |
The design matrix used in |
y |
The response variable used in |
cf0 |
The coefficient matrix obtained by natural cubic spline interpolation of x in |
maxq |
The maximum number of unconstrained parameters if |
fixedq |
If TRUE, |
L |
The dimension of b-spline expansion for constrained parameters used in |
inisp |
The initial value for the optimisation of tuning parameters in |
Usually only called by srp.c
.
The following components are obtained only when fixedq
is FALSE:
qhat |
The optimal number of unconstrained parameters. |
sicq |
The vector of Schwarz criterion with length |
The following components are obtained only when fixedq
is TRUE:
muhat |
The estimator of constant parameter. |
bhat |
The vector of evaluated constrained functional regression coefficient. |
ahat |
The vector of unconstrained regression coefficient estimators. |
etahat |
The vector containing both |
yhat |
The vector of estimated response variable. |
sp |
The vector of two tuning parameters estimated by minimising generalised cross validation (GCV). |
L |
The number of b-spline bases used for constrained regression parameters. |
Hyeyoung Maeng, h.maeng@lse.ac.uk
1 2 3 4 5 6 7 8 9 | library(fda)
x <- matrix(rnorm(10000), ncol=100)
y <- matrix(rnorm(100), ncol=1)
p <- dim(x)[1] + 1
t <- seq(0, 1, length.out=dim(x)[1])*(dim(x)[1])
x.basis <- as.fd(splinefun(t, x[, 1], method="natural"))$basis
B.basis <- create.bspline.basis(rangeval=c(0, dim(x)[1]), norder=4, nbasis=35)
result <- sic.c(x.basis=x.basis, B.basis=B.basis, x=x, y=y, cf0=ncs(x)$cf0, maxq=10, L=35, inisp=1)
plot(result$sicq, type="b")
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.