# SBDC-CV
data(CarsonSB)
CarsonSB
CarsonSB[, 1]
SB <- dccvResponse(bid = CarsonSB[, 1], b = c(0.64, -0.011), n = 1000)
head(SB)
sbchoice(R1 ~ 1|bid1, dist = "logistic", data = SB)
# DBDC-CV
data(CarsonDB)
CarsonDB
CarsonDB[, 1:3]
DB <- dccvResponse(bid = data.matrix(CarsonDB[, 1:3]), b = c(0.7, -0.016), n = 1000)
head(DB)
dbchoice(R1 + R2 ~ 1|bid1 + bid2, dist = "logistic", data = DB)
Run the code above in your browser using DataLab