我也正在找呢！！！！

帮不了你啊~~~

书上就有

其实你可以自己做数据， 假设在R
e <- rnorm(1000) ### white noise
x1 <- rnorm(1000,3,5)
x2 <- rexp(1000,5,3)
y <- x1 + x2

mod.fit <- summary(lm(y~x1+x2))

以此类推

检验共线性、自相关、调整 x1, x2

异方差 调整 e 即可， e <- rnom(1000,0,rpois(1000,3))

[此贴子已经被作者于2007-6-16 0:38:14编辑过]