inst/tinytest/test-print.R

In wenjie2wang/splines2: Regression Spline Functions and Classes

x <- c(NA, seq.int(0, 10, 0.5), NA)
bsMat <- bSpline(x)
ibsMat <- ibs(x)
dbsMat <- dbs(x)
msMat <- mSpline(x)
isMat <- iSpline(x)
csMat <- cSpline(x)
bnMat <- bernsteinPoly(x)
nsMat <- naturalSpline(x, df = 3)
expect_equivalent(print(bsMat), bsMat)
expect_equivalent(print(ibsMat), ibsMat)
expect_equivalent(print(dbsMat), dbsMat)
expect_equivalent(print(msMat), msMat)
expect_equivalent(print(isMat), isMat)
expect_equivalent(print(csMat), csMat)
expect_equivalent(print(bnMat), bnMat)
expect_equivalent(print(nsMat), nsMat)