a <- c(1,0,0); b <- c(1,2,3); c <- c(4,5,6); x <- rnorm(3)
# Formula interface
mat(~a+b)
mat(~a+b+1)
data(tobaccovote)
mat(~votedpro+party, data=tobaccovote)
singvals(~votedpro*party*money*acres, data=tobaccovote)
Run the code above in your browser using DataLab