give.c {smoothSurv} | R Documentation |
Work Function for 'smoothSurvReg'
Description
Give a vector of all 'c' G-spline coefficients satisfying the three constrains (see below) if only (g-3) c's are given.
Usage
give.c(knots, sdspline, last.three, c.rest)
Arguments
knots |
A vector of G-spline knots |
sdspline |
Standard deviation |
last.three |
Indeces of the three 'c' G-spline coefficients which are
not included in |
c.rest |
A vector of |
Details
The functions computes remaining three 'c' G-spline coefficients (if it is possible) such that the resulting G-spline satisfies the following:
\sum_{j=1}^g c_j = 1,
\sum_{j=1}^g c_j \mu_j = 0,
\sum_{j=1}^g c_j \mu_j^2 = 1 - \sigma_0^2.
Value
A vector of all length(knots)
'c' G-spline coefficients.
Note
WARNING: This function is primarily used inside smoothSurvReg
.
Consequently, it has very few error checks on its input arguments.
Author(s)
Arnošt Komárek arnost.komarek@mff.cuni.cz
Examples
knots <- seq(-4, 4, 0.5)
sd0 <- 0.3
ccoef <- find.c(knots, sd0, dist = "dstlogis")
last.three <- c(3, 7, 10)
c.rest <- ccoef[-last.three]
ccoef2 <- give.c(knots, sd0, last.three, c.rest)
print(ccoef)
print(ccoef2) ## Almost no change