powered by
chi2cub(m, ordinal, W, pai, gama)
data(univer) m<-7 ordinal<-univer[,8] W<-univer[,4] pai<-0.3 gama<-c(0.1,0.7) pearson<-chi2cub(m, ordinal, W, pai, gama) degfree<-pearson$df statvalue<-pearson$chi2 deviance<-pearson$dev
Run the code above in your browser using DataLab