search for: eggs1

...u Grant single<-read.table("C:\\Grant\\hatchfirstonly.txt",header=T) attach(single) names(single) par(mfrow=c(1,3)) maleage<- factor(maleage, labels = c("Old","Young")) colors <- c('gray', "navyblue") shapes <- c(17,19) proportion<-(eggs1-unhatch1)/eggs1 plot(proportion~maleage, xlab= "Age of Male ", ylab = "Proportion of Eggs Hatched") plot(proportion~femweight, pch=shapes[maleage], col=colors[maleage],bg="gray", xlab= "Female Weight (grams) ", ylab = " Proportion of Eggs Hatched")...