powered by
pve(y, f, family="linear") disp(y, f, family="linear", df=1)
y
pve
disp
x <- rnorm(1000) y <- x + rnorm(1000,sd=1/2) f <- lm(y~x)$fitted pve(y,f) disp(y,f)
Run the code above in your browser using DataLab