Displaying 1 result from an estimated 1 matches for "numintknot".
Did you mean:
numintknots
2013 Jan 18
0
problem that arises after using the new version of "BRugs"
...s, drv = 0)
{
if (drv > 2)
stop("splines not smooth enough for more than 2 derivatives")
library(splines)
if (missing(range.x))
range.x <- c(1.05 * min(x) - 0.05 * max(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(...