powered by
msteptpm(TPM, m)
EF2 <- Ehrenfest(2) msteptpm(as.matrix(EF2),4)
Run the code above in your browser using DataLab