extracting p-value from an lrm object

"Shubha Vishwanath Karanth" <shubhak at ambaresearch.com> wrote in
news:A36876D3F8A5734FA84A4338135E7CC303301389 at BAN-MAILSRV03.Amba.com:

How can I extract p-values from an 'lrm' (logistic regression model)
oject?

a) In writing to the list you should tell people where you got the 
function (presumably Design).

b) Looks to me in running lrm with the first example from the help text 
that the model object is not examined with summary() but rather with 
anova(). If you just need to see p-values for a particular coefficient, 
then run anova(model). If you need to extract the values and your 
variable of interest is age then using the example in lrm help:

anova(f)["age",]  # will give you all the statistics and ...

anova(f)["age","P"] # will give you just the p-value

David Winsemius