[R] Puzzled in utilising summary.lm() to obtain Var(x)

[Ajay Narottam Shah]

I have a program which is doing a few thousand runs of lm(). Suppose
it is a simple model
   y = a + bx1 + cx2 + e

I have the R object "d" where
   d <- summary(lm(y ~ x1 + x2))

I would like to obtain Var(x2) out of "d". How might I do it?

I can, of course, always do sd(x2). But it would be much more
convenient if I could snoop around the contents of summary.lm and
extract Var() out of it. I couldn't readily see how. Would you know
what would click?

-- 
Ajay Shah                                                   Consultant
ajayshah at mayin.org                      Department of Economic Affairs
http://www.mayin.org/ajayshah           Ministry of Finance, New Delhi