library(car)
data(Ginzberg)
model1<-lmres(adjdep~adjsimp*adjfatal, centered=c("adjsimp", "adjfatal"),
data=Ginzberg)
summary(model1)
summary(model1, type="nested")
## The function is currently defined as
function (object, type = "default", ...)
Run the code above in your browser using DataLab