# \donttest{
bio <- Bioenergetic(
species_params = list(
consumption = list(CEQ = 1, CA = 0.303, CB = -0.275, CQ = 0.06)
),
species_info = list(common_name = "Example fish")
)
diet <- data.frame(Day = 1:365, prey1 = 0.6, prey2 = 0.4)
energ <- data.frame(Day = 1:365, prey1 = 4000, prey2 = 2500)
bio <- set_diet(bio, diet, energ)
# }
Run the code above in your browser using DataLab