model1 = lm(Pulse ~ Height + Smoke, data=MASS::survey)
summary(model1)
# comparing a person with the height 150cm to 151cm
dc(model1, values1 = c(1,150,1,0,0),
values2 = c(1,151,1,0,0))
# the difference is not significant, because the confidence interval
# includes the 0
Run the code above in your browser using DataLab