# NOT RUN {
## Using occupational prestige data
data(Prestige, package = "carData")
Prestige <- transform(Prestige, income = income / 1000)
## Fit a polywog model
## (note: using low convergence threshold to shorten computation time of the
## example, *not* recommended in practice!)
set.seed(22)
fit1 <- polywog(prestige ~ education + income | type,
data = Prestige,
degree = 2,
thresh = 1e-4)
## Compute marginal effects for all variables
me1 <- margEff(fit1)
summary(me1) # type was included linearly, hence constant effects
## Plotting density of the results
plot(me1)
## Can do the same when just examining a single variable
me2 <- margEff(fit1, xvar = "income")
summary(me2)
plot(me2)
# }
Run the code above in your browser using DataLab