data(exampleData)
longi.dat <- splitSplines(data = longi.dat,
response = "PSA", response.smoothed = "sPSA",
x="xDAP",
individuals = "Snapshot.ID.Tag",
df = 4, deriv=1, suffices.deriv = "AGRdv",
extra.rate = c(RGRdv = "RGR"))
sPSA.GR <- intervalGRaverage(data = longi.dat,
responses = "sPSA", times = "DAP",
which.rates = c("AGR","RGR"),
suffices.rates = c("AGRdv","RGRdv"),
start.time = 31, end.time = 35,
suffix.interval = "31to35")
Run the code above in your browser using DataLab