powered by
ci(C,estimates,variance,alpha=.05,f=function(x){exp(x)})
x
ci
data(cars) fit <- lm(dist~speed,cars) #AVERAGE DISTANCE GIVEN SPEED OF 10 ci(matrix(c(1,10),1),coef(fit),vcov(fit),f=function(x){x})
Run the code above in your browser using DataLab