Calculating I0.R

#metabolic rates

#Heinrich - overall body weight for queens 0.25-0.6g midpoint = 0.4125

# i0_resting = 21.117*1.3*(1/60)*(1/60)*0.177 #Kammer1974 - bdy wt
# i0_resting_min = 21.117*0.3*(1/60)*(1/60)*0.06 #Kammer1974 - thx wt, extracted from fig 1 with imageJ
# i0_resting_max = 21.117*23.4*(1/60)*(1/60)*0.06 #Kammer1974 - thx wt, extracted from fig 1 with imageJ
# 
# i0_flying_Heinrich_1  = 21.117*(76.6)*(1/60)*(1/60)*0.4125 #Heinrich1975 - bdy wt
# i0_flying_Heinrich_2  = 21.117*((150+350)/2)*(1/60)*(1/60)*0.143 #Heinrich1975 - thx wt
# i0_flying_Kammer  = 21.117*((166+188)/2)*(1/60)*(1/60)*0.06 #Kammer1974 - thx wt
# i0_flying_min_Heinrich_1  = 21.117*(47.2)*(1/60)*(1/60)*0.4125 #- bdy wt
# i0_flying_max_Heinrich_1  = 21.117*(106.7)*(1/60)*(1/60)*0.4125 #- bdy wt
# i0_flying_min_Heinrich_2  = 21.117*(150)*(1/60)*(1/60)*0.143 #- thx wt
# i0_flying_max_Heinrich_2  = 21.117*(350)*(1/60)*(1/60)*0.143 #- thx wt
# i0_flying_min_Kammer = 21.117*166*(1/60)*(1/60)*0.06 #- thx wt
# i0_flying_max_Kammer = 21.117*188*(1/60)*(1/60)*0.06 #- thx wt



########### Honeybees  ##############

i0_resting = 5.65*(80/1000)*(1/1000) #Rothe1989, mW/g -> W, 80mg reference mass
i0_flying = 0.4*(80/1000) #Nachtigall1989, W/g -> W, 80mg reference mass