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...