# NOT RUN {
#########
model <- sevt(list(
X = c("good", "bad"),
Y = c("high", "low")
))
D <- data.frame(
X = c("good", "good", "bad"),
Y = c("high", "low", "low")
)
model.fit <- sevt_fit(model, data = D, lambda = 1)
# }
Run the code above in your browser using DataLab