search for: max_hr_since

Displaying 2 results from an estimated 2 matches for "max_hr_since".

2017 Sep 13
2
compounding precipitation based on whether falls within a day
...e_time <- as.character('2001-12-31T23:00:00Z') hrs_since_base <- 1 # adding an extra second to the end b/c I'm paranoid about the midnight time stamp not being explicit beg_time <- as.POSIXct(base_time, format = "%Y-%m-%dT%H:%M:%SZ") + (hrs_since_base * 60 * 60) + 1 max_hr_since <- 24 * ndays end_time <- as.POSIXct(base_time, format = "%Y-%m-%dT%H:%M:%SZ") + (max_hr_since * 60 * 60) + 1 prec_idx <- seq(beg_time, end_time, by='hour') prec <- array(abs(rnorm((24*ndays) * 3 * 4)) , dim=c(24*ndays, 3, 4)) length(prec_idx) # 504 dim(prec) # 504...
2017 Sep 13
0
compounding precipitation based on whether falls within a day
...-31T23:00:00Z') > hrs_since_base <- 1 > > # adding an extra second to the end b/c I'm paranoid about the midnight > time stamp not being explicit > beg_time <- as.POSIXct(base_time, format = "%Y-%m-%dT%H:%M:%SZ") + > (hrs_since_base * 60 * 60) + 1 > > max_hr_since <- 24 * ndays > end_time <- as.POSIXct(base_time, format = "%Y-%m-%dT%H:%M:%SZ") + > (max_hr_since * 60 * 60) + 1 > > prec_idx <- seq(beg_time, end_time, by='hour') > > prec <- array(abs(rnorm((24*ndays) * 3 * 4)) , dim=c(24*ndays, 3, 4)) > > le...