# 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"),
nperm=1000, trace=TRUE)
summary(fit1)
}
Run the code above in your browser using DataLab