Rate of drop analysis: Difference between revisions
| Line 13: | Line 13: | ||
==Sample R Code== | ==Sample R Code== | ||
new.data.set <-original.data.set%>% | new.data.set <-original.data.set%>% | ||
filter(time=="0"| time == "30"| time =="45") | filter(time=="0"| time == "15" | time == "30"| time =="45") | ||
drop.data.lm <- lm (formula = ( glucose ~ time + treatment + time:treatment, data = new.data.set) | drop.data.lm <- lm (formula = ( glucose ~ time + treatment + time:treatment, data = new.data.set) | ||