powered by
b.scal
betascale(betaobj, member)
e.scal
library(MASS) data(B3) pB3 <- predict(lda(PHASEN ~ ., data = B3))$posterior pbB3 <- b.scal(pB3, B3$PHASEN) betascale(pbB3)
Run the code above in your browser using DataLab