powered by
JointDistribution(theta, psi, input)
k<-2; p<-2; d<-2; theta<-c(0.3,0.7) psi <- array(rdirichlet(k*p,rep(1,d)),dim = c(k,p,d)) JointDistribution(theta,psi,input = c(1,1))
Run the code above in your browser using DataLab