Nothing
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))}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.