# NOT RUN {
#### Example 9-1
## ------------------------------------------------------------------------
library("plm")
## ------------------------------------------------------------------------
data("Dialysis", package = "pder")
rndcoef <- pvcm(log(diffusion / (1 - diffusion)) ~ trend + trend:regulation,
Dialysis, model="random")
summary(rndcoef)
## ------------------------------------------------------------------------
cbind(coef(rndcoef), stdev = sqrt(diag(rndcoef$Delta)))
# }
Run the code above in your browser using DataCamp Workspace