[R] Extracting the p of F statistics from lm

[Cressoni, Massimo (NIH/NHLBI) [F]]

I need to extract the p value from a ANOVA done with lm model

fitting <- lm(var ~ group)
Sfitting <- summary(fitting)

Sfitting[10][1] gives the F value and the degrees of freedom but I am not able to get the
p value. 
The function df should give a p value given a F but I am not 
able to make it work.

I found only something about aov in the R help and I am not able
to make it work

Massimo Cressoni