Deleted old code.

R/mergeReport.r

@@ -20,13 +20,6 @@ mergeReport<-function(localDaily = Daily, localSample = Sample, interactive=TRUE
   }
   
   newSample <- merge(Daily[,c("Date","Q","LogQ")],Sample,by = "Date",all.y = TRUE)
-  
-#   julFirst<-localDaily$Julian[1]
-#   sampleDate<-as.Date(localSample$Date)
-#   sampleJulian<-as.numeric(julian(sampleDate,origin=as.Date("1850-01-01")))
-#   sampleIndex <- sampleJulian-julFirst+1
-#   Q <- localDaily$Q[sampleIndex]  
-#   LogQ<-log(Q)
-#   newSample<-data.frame(localSample,Q,LogQ)
+
   return(newSample)
 }