CRAN Package Check Results for Package cobs

Last updated on 2017-01-18 10:48:23.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 1.3-1 3.36 95.23 98.59 OK
r-devel-linux-x86_64-debian-gcc 1.3-1 3.54 90.20 93.74 OK
r-devel-linux-x86_64-fedora-clang 1.3-1 193.70 ERROR --no-stop-on-test-error
r-devel-linux-x86_64-fedora-gcc 1.3-1 190.61 ERROR --no-stop-on-test-error
r-devel-macos-x86_64-clang 1.3-1 77.63 ERROR --no-stop-on-test-error
r-devel-windows-ix86+x86_64 1.3-1 14.00 241.00 255.00 OK
r-patched-linux-x86_64 1.3-1 3.11 77.09 80.20 OK
r-patched-solaris-sparc 1.3-1 1108.90 OK
r-patched-solaris-x86 1.3-1 217.20 OK
r-release-linux-x86_64 1.3-1 3.00 78.29 81.29 OK
r-release-osx-x86_64-mavericks 1.3-1 OK
r-release-windows-ix86+x86_64 1.3-1 9.00 265.00 274.00 OK
r-oldrel-windows-ix86+x86_64 1.3-1 13.00 271.00 284.00 OK

Check Details

Version: 1.3-1
Flags: --no-stop-on-test-error
Check: tests
Result: ERROR
     Running ‘0_pt-ex.R’
     Running ‘ex1.R’ [13s/20s]
     Running ‘ex2-long.R’ [16s/19s]
     Running ‘ex3.R’
     Comparing ‘ex3.Rout’ to ‘ex3.Rout.save’ ... OK
     Running ‘multi-constr.R’ [8s/12s]
     Comparing ‘multi-constr.Rout’ to ‘multi-constr.Rout.save’ ...256a257,258
    > Warning message:
    > In cobs(x, y, constraint = "increase", pointwise = con) : Check 'ifl'
     Running ‘roof.R’
     Comparing ‘roof.Rout’ to ‘roof.Rout.save’ ... OK
     Running ‘small-ex.R’
     Comparing ‘small-ex.Rout’ to ‘small-ex.Rout.save’ ... OK
     Running ‘spline-ex.R’
     Running ‘temp.R’ [7s/11s]
     Comparing ‘temp.Rout’ to ‘temp.Rout.save’ ... OK
     Running ‘wind.R’ [24s/32s]
    Running the tests in ‘tests/spline-ex.R’ failed.
    Complete output:
     > #### Experiment with spline code --- want to use
     > library(splines) ## for the splines
     > suppressMessages(library(cobs))
     >
     > options(digits = 9)
     >
     > ### -- 1) -- Look at `splines' pkg code :
     > data(women)
     > yw <- women$weight
     > xh <- women$height# == 58:72; too trivial; modify a bit:
     > ii <- c(2,5,9,11); xh[ii] <- xh[ii]+ 0.2
     > ii <- c(3:4,8,13); xh[ii] <- xh[ii]+ 0.25
     > (bIspl <- interpSpline( xh, yw, bSpl = TRUE))
     bSpline representation of spline for .Primitive("~")(yw, xh)
     54.75 55.95 57.00 58.00 59.20 60.25 61.25
     NA NA NA NA 113.638072 115.089307 116.540542
     62.20 63.00 64.00 65.25 66.20 67.00 68.20
     119.984831 122.953207 125.659847 129.393071 132.490763 134.035450 138.946156
     69.00 70.25 71.00 72.00 73.25 74.00 75.00
     142.678498 144.712402 151.573711 151.891329 160.111134 164.353533 168.595932
     > print.default(bIspl[1:3])
     $knots
     [1] 54.75 55.95 57.00 58.00 59.20 60.25 61.25 62.20 63.00 64.00 65.25 66.20
     [13] 67.00 68.20 69.00 70.25 71.00 72.00 73.25 74.00 75.00
    
     $coefficients
     [1] 113.638072 115.089307 116.540542 119.984831 122.953207 125.659847
     [7] 129.393071 132.490763 134.035450 138.946156 142.678498 144.712402
     [13] 151.573711 151.891329 160.111134 164.353533 168.595932
    
     $order
     [1] 4
    
     > (pIspl <- interpSpline( xh, yw, bSpl = FALSE))
     polynomial representation of spline for .Primitive("~")(yw, xh)
     constant linear quadratic cubic
     58.00 115 1.33960132 0.00000000000 0.2271287121
     59.20 117 2.32079736 0.81766336374 -0.2922458344
     60.25 120 3.07128732 -0.10291101466 0.0316236905
     61.25 123 2.96033637 -0.00803994325 0.2273643398
     62.20 126 3.56064942 0.63994842511 -0.5040752565
     63.00 129 3.61674241 -0.56983219041 -0.0469102214
     64.00 132 2.33634737 -0.71056285462 0.6091879690
     65.25 135 3.41550883 1.57389202895 -0.7758226553
     66.20 139 4.30536385 -0.63720253866 -0.0712528430
     67.00 142 3.14903433 -0.80820936194 0.8014932206
     68.20 146 4.67178257 2.07716623225 -2.0836180627
     69.00 150 3.99470187 -2.92351711832 1.8302045007
     70.25 154 5.26499267 3.93974975945 -2.7611347908
     71.00 159 6.51520235 -2.27280351988 0.7576011733
     72.00 164 4.24239883 0.00000000000 0.0000000000
     > p2Ispl <- polySpline(bIspl)
     > all.equal(pIspl, p2Ispl, tol = 1e-15)# TRUE
     [1] TRUE
     > ##--> could use polySpline() at end of interpSpline(.)
     >
     >
     > ### -- 2) --- substituting our .splBasis() by splines package splineDesign() --
     > ### ========
     > ### ---> done (in principle; not yet implemented!), Feb.2002
     >
     > str(cobs:::.splBasis(4, bIspl$knots, length(bIspl$coef) + 6, x = .5 + 57:72))# outside!
     List of 2
     $ design : num [1:4, 1:16] 0.0188 0.503 0.4607 0.0175 0.04 ...
     $ offsets: int [1:16] 2 3 4 5 6 7 8 9 10 11 ...
     > xo <- 0.5 + 59:70 # should work up to ord = 5
     >
     > ## ord <- 4 # cubic splines
     > ## ord <- 3 # quadratic splines
     > for(ord in 5:1) {
     + cat("\n\nord = ",ord,"\n========\n")
     + print(spB <- cobs:::.splBasis(ord, bIspl$knots,
     + length(bIspl$coef) + ord + 2, x = xo))
     + ## Gives error for ord = 5:4 --- data must be INSIDE :
     + try( splineDesign(bIspl$knots, x = 0.5 + 57:72, ord = ord))
     + str(spD <- splineDesign(bIspl$knots, x = xo, ord = ord))
     +
     + ## splineDesign() contains:
     + tmp <- .Call("spline_basis", bIspl$knots, ord=ord, x= xo,
     + derivs = integer(length(xo)), PACKAGE = "splines")
     + print(offs.tmp <- attr(tmp, "Offsets"))
     + attr(tmp, "Offsets") <- NULL
     + print(all.equal(tmp, spB$design, tol = 4e-16)) # TRUE
     + print(all(spB$offsets - offs.tmp == ord - 1)) # TRUE
     + }
    
    
     ord = 5
     ========
     $design
     [,1] [,2] [,3] [,4] [,5]
     [1,] 0.009583439816 0.011174263326 0.010286399760 0.004272043746 0.00336700337
     [2,] 0.280435006587 0.296657516457 0.281745544903 0.252221462748 0.25986987360
     [3,] 0.573664212402 0.576469363376 0.587416092679 0.611946455184 0.58503981930
     [4,] 0.135987247669 0.115504606647 0.120338360470 0.131098972749 0.14955316485
     [5,] 0.000330093526 0.000194250194 0.000213602187 0.000461065574 0.00217013889
     [,6] [,7] [,8] [,9] [,10]
     [1,] 0.00922131148 0.008975029904 0.003720238095 0.00807438795 0.003720238095
     [2,] 0.26415680887 0.247489106288 0.264754001883 0.25087436104 0.263186358207
     [3,] 0.55841638723 0.598069153889 0.600681833468 0.59365435778 0.572303736049
     [4,] 0.16640174062 0.145254314523 0.130397497982 0.14539368810 0.160325473628
     [5,] 0.00180375180 0.000212395395 0.000446428571 0.00200320513 0.000464194022
     [,11] [,12]
     [1,] 0.00938086304 0.003720238095
     [2,] 0.24130176226 0.235158208020
     [3,] 0.59605693702 0.603091675267
     [4,] 0.15129965337 0.157765328354
     [5,] 0.00196078431 0.000264550265
    
     $offsets
     [1] 4 5 6 7 8 9 10 11 12 13 14 15
    
     Error in splineDesign(bIspl$knots, x = 0.5 + 57:72, ord = ord) :
     the 'x' data must be in the range 59.2 to 71 unless you set 'outer.ok = TRUE'
     num [1:12, 1:16] 0.00958 0 0 0 0 ...
     Error in .Call("spline_basis", bIspl$knots, ord = ord, x = xo, derivs = integer(length(xo)), :
     "spline_basis" not available for .Call() for package "splines"
     Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang

Version: 1.3-1
Flags: --no-stop-on-test-error
Check: tests
Result: ERROR
     Running ‘0_pt-ex.R’
     Running ‘ex1.R’ [12s/20s]
     Running ‘ex2-long.R’ [15s/21s]
     Running ‘ex3.R’
     Comparing ‘ex3.Rout’ to ‘ex3.Rout.save’ ... OK
     Running ‘multi-constr.R’ [8s/11s]
     Comparing ‘multi-constr.Rout’ to ‘multi-constr.Rout.save’ ...256a257,258
    > Warning message:
    > In cobs(x, y, constraint = "increase", pointwise = con) : Check 'ifl'
     Running ‘roof.R’
     Comparing ‘roof.Rout’ to ‘roof.Rout.save’ ... OK
     Running ‘small-ex.R’
     Comparing ‘small-ex.Rout’ to ‘small-ex.Rout.save’ ... OK
     Running ‘spline-ex.R’
     Running ‘temp.R’
     Comparing ‘temp.Rout’ to ‘temp.Rout.save’ ... OK
     Running ‘wind.R’ [23s/31s]
    Running the tests in ‘tests/spline-ex.R’ failed.
    Complete output:
     > #### Experiment with spline code --- want to use
     > library(splines) ## for the splines
     > suppressMessages(library(cobs))
     >
     > options(digits = 9)
     >
     > ### -- 1) -- Look at `splines' pkg code :
     > data(women)
     > yw <- women$weight
     > xh <- women$height# == 58:72; too trivial; modify a bit:
     > ii <- c(2,5,9,11); xh[ii] <- xh[ii]+ 0.2
     > ii <- c(3:4,8,13); xh[ii] <- xh[ii]+ 0.25
     > (bIspl <- interpSpline( xh, yw, bSpl = TRUE))
     bSpline representation of spline for .Primitive("~")(yw, xh)
     54.75 55.95 57.00 58.00 59.20 60.25 61.25
     NA NA NA NA 113.638072 115.089307 116.540542
     62.20 63.00 64.00 65.25 66.20 67.00 68.20
     119.984831 122.953207 125.659847 129.393071 132.490763 134.035450 138.946156
     69.00 70.25 71.00 72.00 73.25 74.00 75.00
     142.678498 144.712402 151.573711 151.891329 160.111134 164.353533 168.595932
     > print.default(bIspl[1:3])
     $knots
     [1] 54.75 55.95 57.00 58.00 59.20 60.25 61.25 62.20 63.00 64.00 65.25 66.20
     [13] 67.00 68.20 69.00 70.25 71.00 72.00 73.25 74.00 75.00
    
     $coefficients
     [1] 113.638072 115.089307 116.540542 119.984831 122.953207 125.659847
     [7] 129.393071 132.490763 134.035450 138.946156 142.678498 144.712402
     [13] 151.573711 151.891329 160.111134 164.353533 168.595932
    
     $order
     [1] 4
    
     > (pIspl <- interpSpline( xh, yw, bSpl = FALSE))
     polynomial representation of spline for .Primitive("~")(yw, xh)
     constant linear quadratic cubic
     58.00 115 1.33960132 0.00000000000 0.2271287121
     59.20 117 2.32079736 0.81766336374 -0.2922458344
     60.25 120 3.07128732 -0.10291101466 0.0316236905
     61.25 123 2.96033637 -0.00803994325 0.2273643398
     62.20 126 3.56064942 0.63994842511 -0.5040752565
     63.00 129 3.61674241 -0.56983219041 -0.0469102214
     64.00 132 2.33634737 -0.71056285462 0.6091879690
     65.25 135 3.41550883 1.57389202895 -0.7758226553
     66.20 139 4.30536385 -0.63720253866 -0.0712528430
     67.00 142 3.14903433 -0.80820936194 0.8014932206
     68.20 146 4.67178257 2.07716623225 -2.0836180627
     69.00 150 3.99470187 -2.92351711832 1.8302045007
     70.25 154 5.26499267 3.93974975945 -2.7611347908
     71.00 159 6.51520235 -2.27280351988 0.7576011733
     72.00 164 4.24239883 0.00000000000 0.0000000000
     > p2Ispl <- polySpline(bIspl)
     > all.equal(pIspl, p2Ispl, tol = 1e-15)# TRUE
     [1] TRUE
     > ##--> could use polySpline() at end of interpSpline(.)
     >
     >
     > ### -- 2) --- substituting our .splBasis() by splines package splineDesign() --
     > ### ========
     > ### ---> done (in principle; not yet implemented!), Feb.2002
     >
     > str(cobs:::.splBasis(4, bIspl$knots, length(bIspl$coef) + 6, x = .5 + 57:72))# outside!
     List of 2
     $ design : num [1:4, 1:16] 0.0188 0.503 0.4607 0.0175 0.04 ...
     $ offsets: int [1:16] 2 3 4 5 6 7 8 9 10 11 ...
     > xo <- 0.5 + 59:70 # should work up to ord = 5
     >
     > ## ord <- 4 # cubic splines
     > ## ord <- 3 # quadratic splines
     > for(ord in 5:1) {
     + cat("\n\nord = ",ord,"\n========\n")
     + print(spB <- cobs:::.splBasis(ord, bIspl$knots,
     + length(bIspl$coef) + ord + 2, x = xo))
     + ## Gives error for ord = 5:4 --- data must be INSIDE :
     + try( splineDesign(bIspl$knots, x = 0.5 + 57:72, ord = ord))
     + str(spD <- splineDesign(bIspl$knots, x = xo, ord = ord))
     +
     + ## splineDesign() contains:
     + tmp <- .Call("spline_basis", bIspl$knots, ord=ord, x= xo,
     + derivs = integer(length(xo)), PACKAGE = "splines")
     + print(offs.tmp <- attr(tmp, "Offsets"))
     + attr(tmp, "Offsets") <- NULL
     + print(all.equal(tmp, spB$design, tol = 4e-16)) # TRUE
     + print(all(spB$offsets - offs.tmp == ord - 1)) # TRUE
     + }
    
    
     ord = 5
     ========
     $design
     [,1] [,2] [,3] [,4] [,5]
     [1,] 0.009583439816 0.011174263326 0.010286399760 0.004272043746 0.00336700337
     [2,] 0.280435006587 0.296657516457 0.281745544903 0.252221462748 0.25986987360
     [3,] 0.573664212402 0.576469363376 0.587416092679 0.611946455184 0.58503981930
     [4,] 0.135987247669 0.115504606647 0.120338360470 0.131098972749 0.14955316485
     [5,] 0.000330093526 0.000194250194 0.000213602187 0.000461065574 0.00217013889
     [,6] [,7] [,8] [,9] [,10]
     [1,] 0.00922131148 0.008975029904 0.003720238095 0.00807438795 0.003720238095
     [2,] 0.26415680887 0.247489106288 0.264754001883 0.25087436104 0.263186358207
     [3,] 0.55841638723 0.598069153889 0.600681833468 0.59365435778 0.572303736049
     [4,] 0.16640174062 0.145254314523 0.130397497982 0.14539368810 0.160325473628
     [5,] 0.00180375180 0.000212395395 0.000446428571 0.00200320513 0.000464194022
     [,11] [,12]
     [1,] 0.00938086304 0.003720238095
     [2,] 0.24130176226 0.235158208020
     [3,] 0.59605693702 0.603091675267
     [4,] 0.15129965337 0.157765328354
     [5,] 0.00196078431 0.000264550265
    
     $offsets
     [1] 4 5 6 7 8 9 10 11 12 13 14 15
    
     Error in splineDesign(bIspl$knots, x = 0.5 + 57:72, ord = ord) :
     the 'x' data must be in the range 59.2 to 71 unless you set 'outer.ok = TRUE'
     num [1:12, 1:16] 0.00958 0 0 0 0 ...
     Error in .Call("spline_basis", bIspl$knots, ord = ord, x = xo, derivs = integer(length(xo)), :
     "spline_basis" not available for .Call() for package "splines"
     Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc

Version: 1.3-1
Flags: --no-stop-on-test-error
Check: tests
Result: ERROR
     Running ‘0_pt-ex.R’
     Running ‘ex1.R’
     Running ‘ex2-long.R’
     Running ‘ex3.R’
     Comparing ‘ex3.Rout’ to ‘ex3.Rout.save’ ... OK
     Running ‘multi-constr.R’
     Comparing ‘multi-constr.Rout’ to ‘multi-constr.Rout.save’ ...256a257,258
    > Warning message:
    > In cobs(x, y, constraint = "increase", pointwise = con) : Check 'ifl'
     Running ‘roof.R’
     Comparing ‘roof.Rout’ to ‘roof.Rout.save’ ... OK
     Running ‘small-ex.R’
     Comparing ‘small-ex.Rout’ to ‘small-ex.Rout.save’ ... OK
     Running ‘spline-ex.R’
     Running ‘temp.R’
     Comparing ‘temp.Rout’ to ‘temp.Rout.save’ ... OK
     Running ‘wind.R’ [10s/10s]
    Running the tests in ‘tests/spline-ex.R’ failed.
    Complete output:
     > #### Experiment with spline code --- want to use
     > library(splines) ## for the splines
     > suppressMessages(library(cobs))
     >
     > options(digits = 9)
     >
     > ### -- 1) -- Look at `splines' pkg code :
     > data(women)
     > yw <- women$weight
     > xh <- women$height# == 58:72; too trivial; modify a bit:
     > ii <- c(2,5,9,11); xh[ii] <- xh[ii]+ 0.2
     > ii <- c(3:4,8,13); xh[ii] <- xh[ii]+ 0.25
     > (bIspl <- interpSpline( xh, yw, bSpl = TRUE))
     bSpline representation of spline for .Primitive("~")(yw, xh)
     54.75 55.95 57.00 58.00 59.20 60.25 61.25
     NA NA NA NA 113.638072 115.089307 116.540542
     62.20 63.00 64.00 65.25 66.20 67.00 68.20
     119.984831 122.953207 125.659847 129.393071 132.490763 134.035450 138.946156
     69.00 70.25 71.00 72.00 73.25 74.00 75.00
     142.678498 144.712402 151.573711 151.891329 160.111134 164.353533 168.595932
     > print.default(bIspl[1:3])
     $knots
     [1] 54.75 55.95 57.00 58.00 59.20 60.25 61.25 62.20 63.00 64.00 65.25 66.20
     [13] 67.00 68.20 69.00 70.25 71.00 72.00 73.25 74.00 75.00
    
     $coefficients
     [1] 113.638072 115.089307 116.540542 119.984831 122.953207 125.659847
     [7] 129.393071 132.490763 134.035450 138.946156 142.678498 144.712402
     [13] 151.573711 151.891329 160.111134 164.353533 168.595932
    
     $order
     [1] 4
    
     > (pIspl <- interpSpline( xh, yw, bSpl = FALSE))
     polynomial representation of spline for .Primitive("~")(yw, xh)
     constant linear quadratic cubic
     58.00 115 1.33960132 0.00000000000 0.2271287121
     59.20 117 2.32079736 0.81766336374 -0.2922458344
     60.25 120 3.07128732 -0.10291101466 0.0316236905
     61.25 123 2.96033637 -0.00803994325 0.2273643398
     62.20 126 3.56064942 0.63994842511 -0.5040752565
     63.00 129 3.61674241 -0.56983219041 -0.0469102214
     64.00 132 2.33634737 -0.71056285462 0.6091879690
     65.25 135 3.41550883 1.57389202895 -0.7758226553
     66.20 139 4.30536385 -0.63720253866 -0.0712528430
     67.00 142 3.14903433 -0.80820936194 0.8014932206
     68.20 146 4.67178257 2.07716623225 -2.0836180627
     69.00 150 3.99470187 -2.92351711832 1.8302045007
     70.25 154 5.26499267 3.93974975945 -2.7611347908
     71.00 159 6.51520235 -2.27280351988 0.7576011733
     72.00 164 4.24239883 0.00000000000 0.0000000000
     > p2Ispl <- polySpline(bIspl)
     > all.equal(pIspl, p2Ispl, tol = 1e-15)# TRUE
     [1] TRUE
     > ##--> could use polySpline() at end of interpSpline(.)
     >
     >
     > ### -- 2) --- substituting our .splBasis() by splines package splineDesign() --
     > ### ========
     > ### ---> done (in principle; not yet implemented!), Feb.2002
     >
     > str(cobs:::.splBasis(4, bIspl$knots, length(bIspl$coef) + 6, x = .5 + 57:72))# outside!
     List of 2
     $ design : num [1:4, 1:16] 0.0188 0.503 0.4607 0.0175 0.04 ...
     $ offsets: int [1:16] 2 3 4 5 6 7 8 9 10 11 ...
     > xo <- 0.5 + 59:70 # should work up to ord = 5
     >
     > ## ord <- 4 # cubic splines
     > ## ord <- 3 # quadratic splines
     > for(ord in 5:1) {
     + cat("\n\nord = ",ord,"\n========\n")
     + print(spB <- cobs:::.splBasis(ord, bIspl$knots,
     + length(bIspl$coef) + ord + 2, x = xo))
     + ## Gives error for ord = 5:4 --- data must be INSIDE :
     + try( splineDesign(bIspl$knots, x = 0.5 + 57:72, ord = ord))
     + str(spD <- splineDesign(bIspl$knots, x = xo, ord = ord))
     +
     + ## splineDesign() contains:
     + tmp <- .Call("spline_basis", bIspl$knots, ord=ord, x= xo,
     + derivs = integer(length(xo)), PACKAGE = "splines")
     + print(offs.tmp <- attr(tmp, "Offsets"))
     + attr(tmp, "Offsets") <- NULL
     + print(all.equal(tmp, spB$design, tol = 4e-16)) # TRUE
     + print(all(spB$offsets - offs.tmp == ord - 1)) # TRUE
     + }
    
    
     ord = 5
     ========
     $design
     [,1] [,2] [,3] [,4] [,5]
     [1,] 0.009583439816 0.011174263326 0.010286399760 0.004272043746 0.00336700337
     [2,] 0.280435006587 0.296657516457 0.281745544903 0.252221462748 0.25986987360
     [3,] 0.573664212402 0.576469363376 0.587416092679 0.611946455184 0.58503981930
     [4,] 0.135987247669 0.115504606647 0.120338360470 0.131098972749 0.14955316485
     [5,] 0.000330093526 0.000194250194 0.000213602187 0.000461065574 0.00217013889
     [,6] [,7] [,8] [,9] [,10]
     [1,] 0.00922131148 0.008975029904 0.003720238095 0.00807438795 0.003720238095
     [2,] 0.26415680887 0.247489106288 0.264754001883 0.25087436104 0.263186358207
     [3,] 0.55841638723 0.598069153889 0.600681833468 0.59365435778 0.572303736049
     [4,] 0.16640174062 0.145254314523 0.130397497982 0.14539368810 0.160325473628
     [5,] 0.00180375180 0.000212395395 0.000446428571 0.00200320513 0.000464194022
     [,11] [,12]
     [1,] 0.00938086304 0.003720238095
     [2,] 0.24130176226 0.235158208020
     [3,] 0.59605693702 0.603091675267
     [4,] 0.15129965337 0.157765328354
     [5,] 0.00196078431 0.000264550265
    
     $offsets
     [1] 4 5 6 7 8 9 10 11 12 13 14 15
    
     Error in splineDesign(bIspl$knots, x = 0.5 + 57:72, ord = ord) :
     the 'x' data must be in the range 59.2 to 71 unless you set 'outer.ok = TRUE'
     num [1:12, 1:16] 0.00958 0 0 0 0 ...
     Error in .Call("spline_basis", bIspl$knots, ord = ord, x = xo, derivs = integer(length(xo)), :
     "spline_basis" not available for .Call() for package "splines"
     Execution halted
Flavor: r-devel-macos-x86_64-clang