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.