data(gause_1934_science_f02_03)
lagged_data <- get_lag(x=gause_1934_science_f02_03$Volume_Species1,
time = gause_1934_science_f02_03$Day,
treatment = gause_1934_science_f02_03$Treatment)
Run the code above in your browser using DataLab