##EXAMPLE 1##
# Test both a linear and quadratic variable climate window using datasets "Offspring"
# and "OffspringClimate".
# Load data.
data(Offspring)
data(OffspringClimate)
# Test both linear and quadratic functions with climate variable temperature
OffspringWin <- climatewin(xvar = list(Temp = OffspringClimate$Temperature),
cdate = OffspringClimate$Date,
bdate = Offspring$Date,
baseline = glm(Offspring ~ 1, data = Offspring, family = poisson),
furthest = 150, closest = 0,
type = "variables", stat = "mean",
func = c("lin", "quad"), cmissing = FALSE, cinterval = "day")
# Examine tested combinations
OffspringWin$combos
# View output for func = "lin"
head(OffspringWin[[1]]$Dataset)
summary(OffspringWin[[1]]$BestModel)
# View output for func = "quad"
head(OffspringWin[[2]]$Dataset)
summary(OffspringWin[[2]]$BestModel)
##EXAMPLE 2##
# Test for a fixed climate window with both 'mean' and 'max' aggregate statistics
# using datasets 'Mass' and 'MassClimate'.
# Load data.
data(Mass)
data(MassClimate)
# Test a fixed window, starting 20 May (cutoff.month = 5, cutoff.day = 20)
# Test for climate windows between 100 and 0 days ago (furthest = 100, closest = 0)
# Test both mean and max aggregate statistics (stat = c("mean", "max"))
# Fit a linear term (func = "lin")
# Test at the resolution of days (cinterval = "day")
MassWin <- climatewin(xvar = list(Temp = MassClimate$Temp), cdate = MassClimate$Date,
bdate = Mass$Date, baseline = lm(Mass ~ 1, data = Mass),
furthest = 100, closest = 0,
stat = c("mean", "max"), func = "lin",
type = "fixed", cutoff.day = 20, cutoff.month = 5,
cmissing = FALSE, cinterval = "day")
# Examine tested combinations
MassWin$combos
# View output for mean temperature
head(MassWin[[1]]$Dataset)
summary(MassWin[[1]]$BestModel)
# View output for max temperature
head(MassWin[[2]]$Dataset)
summary(MassWin[[2]]$BestModel)Run the code above in your browser using DataLab