"Fecundity"<-structure(list(ctc=c(29,16,17,4,3,9,4,5,1,1,1,3,7,198,107,55,38,18,22,7,9,5,3,6,6,12), type=structure(factor(c(1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2), levels=c(1,2)), .Label = c("N", "S"))), row.names = c("1","2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12","13"), class = "data.frame")