# Example from Burnham and Anderson (2002), page 100:
data(Cement)
lm1 <- lm(y ~ ., data = Cement)
dd <- dredge(lm1)
subset(dd, delta < 4)
#models with delta.aicc < 4
model.avg(get.models(dd, subset = delta < 4)) # get averaged coefficients
#or as a 95\% confidence set:
top.models <- get.models(dd, cumsum(weight) <= .95)
model.avg(top.models) # get averaged coefficients
#topmost model:
top.models[[1]]
# Examples of using 'subset':
# exclude models containing both X1 and X2
dredge(lm1, subset = !(X1 & X2))
# keep only models containing X3
dredge(lm1, subset = X3)
# the same, but more effective:
dredge(lm1, fixed = "X3")
#Reduce the number of generated models, by including only those with
# up to 2 terms (and intercept)
dredge(lm1, m.max = 2)
Run the code above in your browser using DataLab