gistfile1.txt

> library(gvlma)
> gvlma(lm(pop$X~pop$Y))

Call:
lm(formula = pop$X ~ pop$Y)

Coefficients:
(Intercept)        pop$Y  
     0.2172       0.7738  


ASSESSMENT OF THE LINEAR MODEL ASSUMPTIONS
USING THE GLOBAL TEST ON 4 DEGREES-OF-FREEDOM:
Level of Significance =  0.05 

Call:
 gvlma(x = lm(pop$X ~ pop$Y)) 

                     Value  p-value                   Decision
Global Stat        10.7782 0.029173 Assumptions NOT satisfied!
Skewness            2.0744 0.149789    Assumptions acceptable.
Kurtosis            1.2993 0.254338    Assumptions acceptable.
Link Function       7.2698 0.007012 Assumptions NOT satisfied!
Heteroscedasticity  0.1346 0.713684    Assumptions acceptable.