data(Ornstein)
mod<-lm(interlocks~assets+sector+nation, data=Ornstein)
ncv.test(mod)
## Non-constant Variance Score Test
## Variance formula: ~ fitted.values
## Chisquare = 46.98537 Df = 1 p = 7.151835e-12
ncv.test(mod, ~ assets+sector+nation, data=Ornstein)
## Non-constant Variance Score Test
## Variance formula: ~ assets + sector + nation
## Chisquare = 74.73535 Df = 13 p = 1.066320e-10
Run the code above in your browser using DataLab