How to make array of regression objects

Dear all,

I have made couple logistic regressions, what making a distribution of some
event.

Currently, i store it like this:

o1 <- lrm(...)
o2 <- lrm(...)
o3 <- lrm(...)
...

Then, i have made a function to peak required regression object from this
variables by it number:

get_object <- function(obj_name, nModel) {
? ?eval (parse(text=paste("o <- ", obj_name, nModel, sep="")))
? ?o
}

Is there a better way to do it? I have try to store it in the matrix using
data.frame(), but object become destroyed after that and predict() function
do not recognize it.

Regards,
Dmitrij Kudriavcev

? ? ? ?[[alternative HTML version deleted]]