diet <- list(proportions = data.frame(Day = 1:5,
Prey1 = c(0.6, 0.6, 0.7, 0.5, 0.5),
Prey2 = c(0.4, 0.4, 0.3, 0.5, 0.5)))
prey_e <- data.frame(Day = 1:5, Prey1 = 5000, Prey2 = 4500)
assess_diet_quality(diet, prey_e)
Run the code above in your browser using DataLab