search for: qbsks2

...folling error message: example(cobs) cobs> x <- seq(-1, 3, , 150) cobs> y <- (f.true <- pnorm(2 * x)) + rnorm(150)/10 cobs> con <- rbind(c(1, min(x), 0), c(-1, max(x), 1), c(0, 0, 0.5)) cobs> Rbs <- cobs(x, y, constraint = "increase", pointwise = con) qbsks2(): Performing general knot selection ... Error in as.matrix.csr(new("matrix.coo", ra = c(z1$design), ia = i1, ja = j1, : unable to find a non-generic version of function "as.matrix.csr" Any suggestions how to fix this problem? Thank you for your help. Jaci --