powered by
data(PB12Des)
library(BsMD) data(PB12Des,package="BsMD") str(PB12Des) X <- as.matrix(PB12Des) print(t(X)%*%X)
Run the code above in your browser using DataLab