Displaying 1 result from an estimated 1 matches for "allknot".
Did you mean:
allknots
2013 Jan 18
0
problem that arises after using the new version of "BRugs"
...x), 1.05 * max(x) -
0.05 * min(x))
if (missing(intKnots)) {
numIntKnots <- min(length(unique(x)), 35)
intKnots <- quantile(unique(x), seq(0, 1, length = (numIntKnots +
2))[-c(1, (numIntKnots + 2))])
}
numIntKnots <- length(intKnots)
allKnots <- c(rep(range.x[1], 4), intKnots, rep(range.x[2],
4))
K <- length(intKnots)
L <- 3 * (K + 8)
xtilde <- (rep(allKnots, each = 3)[-c(1, (L - 1), L)] + rep(allKnots,
each = 3)[-c(1, 2, L)])/2
wts <- rep(diff(allKnots), each = 3) * rep(c(1, 4, 1)/6,...