Testing

Testing R Code paste

### Plot length summary
  
data=read.csv("plotBAincr.csv",stringsAsFactors=F)

data$Date.start=as.Date(data$Date.start)
data$Date.end=as.Date(data$Date.end)

plotlist=unique(data$Plot)

out_frame=data.frame(Plot="",Date.start="",Date.end="",length=0,stringsAsFactors=F)

for(the_plot in plotlist){
  print(the_plot)
  subdata=subset(data,Plot==the_plot)
  datevec=c(subdata$Date.start,subdata$Date.end)
  start=min(datevec)
  end=max(datevec)
  length=end-start
  ins_vec=c(the_plot,as.character(start),as.character(end),length)
  out_frame=rbind(out_frame,ins_vec)
}
out_frame=subset(out_frame,Plot!="")

write.csv(out_frame,"plot_lengths.csv")