if (FALSE) {
### Metric dependent variable ###
data("munichrent03")
model.rent <- lm(rent ~ yearc + I(yearc^2) + rooms + area*location + upkitchen,
data=munichrent03)
fxInteractive(model.rent)
### Binary dependent variable ###
data("creditdata")
model.cd <- glm(credit ~ amount + I(amount^2) + age + duration*teleph + housing,
family=binomial, data=creditdata)
fxInteractive(model.cd)
}
Run the code above in your browser using DataLab