Displaying 1 result from an estimated 1 matches for "xtil".
Did you mean:
util
2013 Jan 18
0
problem that arises after using the new version of "BRugs"
...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,
K + 7)
Bdd <- spline.des(allKnots, xtilde, derivs = rep(2, length(xtilde)),
outer.ok = TRUE)$design
Ome...