data(cypdata)
cypraw_v1 <- verticalize3(data = cypdata, noyears = 6, firstyear = 2004,
patchidcol = "patch", individcol = "plantid", blocksize = 4,
sizeacol = "Inf2.04", sizebcol = "Inf.04", sizeccol = "Veg.04",
repstracol = "Inf.04", repstrbcol = "Inf2.04", fecacol = "Pod.04",
age_offset = 3, NAas0 = TRUE, NRasRep = TRUE)
cyp_rl <- rleslie(data = cypraw_v1, start_age = 0, last_age = 6, continue = TRUE,
fecage_min = 3, year = "all", pop = NA, patch = "all", yearcol = "year2",
patchcol = "patchid", indivcol = "individ")
ddd1 <- edit_lM(cyp_rl, age2 = c(0, 1, 2, 3, 4, 5, 6),
givenrate = c(0.25, 0.25, 0.4, 0.4, NA, NA, NA),
multiplier = c(NA, NA, NA, NA, 2000, 2000, 2000),
type = c(1, 1, 1, 1, 3, 3, 3))
ddd1 <- edit_lM(ddd1, age2 = 6, multiplier = 1.5, type = 3, patch = "B",
year2 = "2005")
Run the code above in your browser using DataLab