Displaying 1 result from an estimated 1 matches for "unhatch1".
Did you mean:
uncatch
2009 Oct 07
3
graphics
...nt
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")
abline(lm...