data(seedsTemp)
seedsTemp$propGerm = seedsTemp$NumGerm / seedsTemp$NumSown
plot(propGerm/(1-propGerm)~Test.Temp,data=seedsTemp,log="y",
ylab="Germination rate [logit scale]", xlab="Temperature (Celsius)")
Run the code above in your browser using DataLab