powered by
pmultinom(T, SIZE,length, P1, P2, P3, P4, C1, C2, pvalue=rep(0,length(T)))
T<-4 SIZE<-200 p<-c(0.25,0.25,0.25,0.25) c1<-1 c2<-1 length<-1 f<-pmultinom(T, SIZE,length, p[1], p[2], p[3], p[4], c1, c2, pvalue=rep(0,length(T)))
Run the code above in your browser using DataLab