evolution_ovules: Calculatiion of efficiency parameter for subsequent...

In AlfonsoAllen/pollinatoryield: Yield prediction

Description

Auxiliary function to calculate the penalisation parameter "eff" for subsequent visits in dependence of the parameters:

Usage

evolution_ovules(svd, ovu, self, eff, x)

Arguments

svd	Single Visit Pollen Deposition of different bee species on a certain crop obtained from data measured in the field
ovu	mean number of ovules of the inspected crop
self	number of pollen grains present on the stigmas before first bee visit to account for selfing (default = 0)
eff	(ovu-self)/(svd + ovu - self) minimum efficiency to achieve full fertilization
x	number of accumulated visits

Value

the proportion of fertilized ovules after x visits

to be used in curve_ovule_parameters.R function

Examples

data_crop <- curve_ovule_parameters("Blueberry",0)

i=14 # Visitor: Colletes sp. 

svd <- data_crop$svd[i]
ovu <- data_crop$ovu[i]
self <- data_crop$self[i]
example_1 <- tibble(visits=c(0:60),
                   perc_fecundated_ovules = evolution_ovules(svd,ovu,self,1,c(0:60)),
                   efficiency = paste0("eff. = 1.00"))

ggplot(example_1, aes(x=visits,y=perc_fecundated_ovules,color =efficiency))+
geom_point()+
geom_line()+
labs(x="Visits",y="Percentage of fecundated ovules",
     color="Fertilization\n Efficiency",
     title = data_crop$Species[i])

AlfonsoAllen/pollinatoryield documentation built on Dec. 17, 2021, 7:52 a.m.