# Swiss Labour Market
library(AER)
data("SwissLabor")
# recode factors
sl <- SwissLabor
sl$participation <- as.numeric(sl$participation)-1
sl$foreign <- as.numeric(sl$foreign)-1
if (FALSE) {
fit1 <- TSVC(participation~income+age, data=sl, family=binomial(link="logit"),
perm_test=FALSE, test_linear=FALSE, splits_max=3)
confint(fit1, bootstrap_n=500, alpha=0.05, trace=TRUE)
}
Run the code above in your browser using DataLab