library(MuMIn) temporal<-read.table("Temporal_Analysis.txt", header = T) summary(temporal) find.cluster<-lm(find.cluster~Year, weights = no.papers, data = temporal) summary(find.cluster) anova(find.cluster) find.cluster.2<-lm(find.cluster~poly(Year,2), weights = no.papers, data = temporal) summary(find.cluster.2) anova(find.cluster.2) plot(find.cluster~Year, data=temporal, type="o") model.sel(find.cluster, find.cluster.2) pc.method<-lm(pc.method~Year, weights = no.papers, data = temporal) summary(pc.method) anova(pc.method) pc.method.2<-lm(pc.method~poly(Year,2), weights = no.papers, data = temporal) summary(pc.method.2) anova(pc.method.2) plot(pc.method~Year, data=temporal, type="o") model.sel(pc.method,pc.method.2) pc.number<-lm(pc.number~Year, weights = no.papers, data = temporal) summary(pc.number) anova(pc.number) pc.number.2<-lm(pc.number~poly(Year,2), weights = no.papers, data = temporal) summary(pc.number.2) anova(pc.number.2) plot(pc.number~Year, data=temporal, type="o") model.sel(pc.number,pc.number.2)