# Create random growth dataset
rnd.dataset <- rdm.data(d = 35, mu = 0.8, A = 5, label = "Test1")
# Extract time and growth data for single sample
time <- rnd.dataset$time[1,]
data <- as.numeric(rnd.dataset$data[1,-(1:3)]) # Remove identifier columns
data.log <- log(data/data[1])
# Perform linear fit on 8th window of size 8
linreg <- lm_window(time, data.log, 8, h=8)
summary(linreg)
lm_parms(linreg)
Run the code above in your browser using DataLab