df <- read.csv("weather.epw", header=FALSE, skip=8)
#df$datetime <- paste(df$V2,df$V3,df$V4)
#df$datetime = as.POSIXlt(df$datetime,format="%m %d %H") 
head(df,n=20)


x = length(as.numeric(rownames(df)))
y = length(df$V22)
#EPW$HR = as.numeric(format(EPW$DT, "%H"))
#EPW$hum_ratio=((2.16679*((610.78*exp((EPW$OAT/(EPW$OAT+238.3))*17.2694))*(EPW$RH/100)/(273.15+EPW$OAT)))/1275.4)