# set working directory

data<-read.table("dataframe.txt", sep="\t", header=T)
attach(data)
names(data)

lnvisitorden<-log(visitorden)
maximalmodel<-lm(lnvisitorden~flickrdensity+prflickr+human1km+human5km+human25km+human50km)
step(maximalmodel)