## Two arbitrary regression summaries in a list
x<-1:10
y1 <- x + rnorm(10,sd=1)
y2 <- x + rnorm(10,sd=5)
slm<-list()
slm[[1]] <- summary(lm(y1 ~ x))
slm[[2]] <- summary(lm(y2 ~ x))
## Extract R-squared from the list of summary.lm objects
slt(slm, "adj.r.squared")
Run the code above in your browser using DataLab