R/dqreg.R

dqreg <-
function(object,y,X){
  n<-length(y)
  X<-matrix(X,n,length(X),byrow=T)
  beta<- apply(object$beta,2,median)
  alpha<-apply(object$alpha,2,median)
  alpha<-t(matrix(alpha,nrow=object$L))
  shape<-median(object$shape)
  d<-log_pdf(y,X,beta,alpha,object$kappa,object$base,shape)
  return(exp(d))}

Try the BSquare package in your browser

Any scripts or data that you put into this service are public.

BSquare documentation built on May 1, 2019, 8:21 p.m.