Version for cooperator

Created by: rbcarvin

Rainmaker's RMIntense function is failing and I can't figure out why. "rain.test.csv" is available in the r-data file on my fork.

Raw.test <- (read.csv("D:/RCode/Rainmaker/data/rain.test.csv"))
PrecipPrep <- RMprep(df = Raw.test,prep.type = 3,date.type = 1,dates.in = "date",cnames.in = "gage01")
PrecipEvents <- RMevents_sko(df = PrecipPrep,ieHr = 2,rainthresh = 0,rain = "rain",time = "pdate")
PrecipEventList <- PrecipEvents$storms2
StormSummary <- RMIntense(df = PrecipPrep,date = "pdate",rain = "rain",df.events = PrecipEventList,
                          sdate = "StartDate",edate = "EndDate",depth = "rain")

When I run the above lines I get: #Error in [.data.frame(df, , date) : undefined columns selected