# NOT RUN {
library(survPen)
# row-wise tensor product between two design matrices
set.seed(15)
X1 <- matrix(rnorm(10*3),nrow=10,ncol=3)
X2 <- matrix(rnorm(10*2),nrow=10,ncol=2)
tensor.in(X1,X2)
# }
Run the code above in your browser using DataLab