powered by
thpl(theta=NULL,beta=NULL,alpha=NULL,eta=NULL)
theta <- c(-2:2) beta <- rep(0,5) alpha <- rep(1,5) eta <- seq(from=0.2,by=0.2,to=1) thpl(theta,beta,alpha,eta)
Run the code above in your browser using DataLab