### Passiflora flower size r code

PV<-read.csv("Passiflora_visits.csv",header=TRUE)
#head(PV)
plot(PV,pch=16,col="red")
mean(PV$Total_visitors); var(PV$Total_visitors)
modelQP<-glm(PV$Total_visitors ~ PV$Flower_diam_mm,family="quasipoisson")
summary(modelQP)

modellm<-lm(PV$Total_visitors ~ PV$Flower_diam_mm)
summary(modellm)