1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
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)
|
