provide script to plot and the lines based on sampleLevel: m3 <- lmer(log(vd) ~ log(distanceCoreTop) + sampleLevel + (1|fullSpeciesName/treeTag), data = data_branch, #sensible model #160623 #4
           
           REML = TRUE)