powered by
B2P(x)
O2P
set.seed(1) X <- matrix(rnorm(30),ncol=3) P <- B2P(X)
Run the code above in your browser using DataLab