# NOT RUN {
set.seed(2345432L)
x=matrix(sample(2, 50L, replace=TRUE), 10L)
IBS(x)
range(tcrossprod(ibs(x)) - IBS(x) )
AM(x)
range(tcrossprod(am(x)) - AM(x) )
Lin0(x)
range(tcrossprod(lin0(x)) - Lin0(x) )
range(Lin0(x) - Polyk(x, 0, 1))
Quad1(x)
range(tcrossprod(quad1(x)) - Quad1(x) )
range(Quad1(x) - Polyk(x, 1, 2))
Minkowski(x)
range(tcrossprod(minkowski(x)) - Minkowski(x) )
range(tcrossprod(minkowski(x)) - IBS(x) )
## Use in formulas
model.matrix(~0+ibs(x))
range(tcrossprod(model.matrix(~0+ibs(x))) - IBS(x))
# }
Run the code above in your browser using DataLab