I have a ragged list that I would like to work with. i.e. I would like to use an apply function to quickly and simply pull out elements from the lists. The following code attempts to approximate my situation:

```
vec1 <- c("B","D","E","NA")
vec2 <- c("B","D","E","NA")
vec3 <- c("B","C","E","NA")

write.table(vec1, file="./vec1.csv", sep=",", quote=F)
write.table(vec2, file="./vec2.csv", sep=",", quote=F)
write.table(vec3, file="./vec3.csv", sep=",", quote=F)

vectors.files <- list.files(path=getwd(),recursive=F, pattern=paste("*.csv",sep=""))

vectors.list <- lapply(vectors.files, read.csv)

```

How would I then be able to create a new object that was for example the second row of each list element in vectors.list?

Thanks,

Matt