#library(heavy)
#data(ereturns)
#y <- ereturns[,3]
#x <- cbind(rep(1,nrow(ereturns)),ereturns[,4])
#z <- x
## A priori para Beta
#Bpri <- diag(rep(100,2))
#bpri <- rep(0,2)
## A priori para Gamma
#Gpri <- diag(rep(10,2))
#gpri <- rep(0,2)
##otros parametros
#glpri <- 7
#propuesta <- "unif2"
#apriori <- "unif"
#type <- "D"
#lambda <- 0.1
#p <- 10
#Maxi <- 100
#nsim <- 100
#burn <- 0.1
#jump <- 2
#bini=bpri
#gini=gpri
#glini=glpri
#reg1 <- Bayesiantreg(y, x, z, nsim, bini, bpri, Bpri, gini, gpri,Gpri, glini, glpri,
# type, apriori, propuesta, Maxi=NULL,
# lambda = NULL, p = NULL, burn, jump, graph1 = T, graph2 = T,
# graph3 = T)
#summary(reg1)
Run the code above in your browser using DataLab