R/as.second.R

In metrumresearchgroup/metrumrg: Pharmacometric Tools for Data Preparation, Modeling, Simulation, and Reporting

Defines functions as.second as.minute as.hour as.day as.week as.month as.year as.second.numeric as.minute.numeric as.hour.numeric as.day.numeric as.week.numeric as.month.numeric as.year.numeric format.duration print.duration as.second.minute as.minute.second as.minute.hour as.hour.minute as.hour.day as.day.hour as.day.week as.week.day as.day.month as.month.day as.day.year as.year.day as.second.second as.minute.minute as.hour.hour as.day.day as.week.week as.month.month as.year.year as.second.hour as.second.day as.second.duration as.minute.duration as.hour.second as.hour.duration as.day.duration as.week.duration as.month.duration as.year.duration

Documented in as.day as.day.day as.day.duration as.day.hour as.day.month as.day.numeric as.day.week as.day.year as.hour as.hour.day as.hour.duration as.hour.hour as.hour.minute as.hour.numeric as.hour.second as.minute as.minute.duration as.minute.hour as.minute.minute as.minute.numeric as.minute.second as.month as.month.day as.month.duration as.month.month as.month.numeric as.second as.second.day as.second.duration as.second.hour as.second.minute as.second.numeric as.second.second as.week as.week.day as.week.duration as.week.numeric as.week.week as.year as.year.day as.year.duration as.year.numeric as.year.year format.duration print.duration

as.second         <- function(x,...)UseMethod('as.second')
as.minute         <- function(x,...)UseMethod('as.minute')
as.hour           <- function(x,...)UseMethod('as.hour')
as.day            <- function(x,...)UseMethod('as.day')
as.week           <- function(x,...)UseMethod('as.week')
as.month          <- function(x,...)UseMethod('as.month')
as.year           <- function(x,...)UseMethod('as.year')

as.second.numeric <- function(x,...)structure(x,class=c('second','duration','timeline',class(x)))
as.minute.numeric <- function(x,...)structure(x,class=c('minute','duration','timeline',class(x)))
as.hour.numeric   <- function(x,...)structure(x,class=c('hour','duration','timeline',class(x)))
as.day.numeric    <- function(x,...)structure(x,class=c('day','duration','timeline',class(x)))
as.week.numeric   <- function(x,...)structure(x,class=c('week','duration','timeline',class(x)))
as.month.numeric  <- function(x,...)structure(x,class=c('month','duration','timeline',class(x)))
as.year.numeric   <- function(x,...)structure(x,class=c('year','duration','timeline',class(x)))

format.duration <- function(x,...)as.numeric(x)
print.duration <- function(x,...)print(format(x))

as.second.minute  <- function(x,...)as.second(as.numeric(x*60))
as.minute.second  <- function(x,...)as.minute(as.numeric(x/60))
as.minute.hour    <- function(x,...)as.minute(as.numeric(x*60))
as.hour.minute    <- function(x,...)as.hour(as.numeric(x/60))
as.hour.day       <- function(x,...)as.hour(as.numeric(x*24))
as.day.hour       <- function(x,...)as.day(as.numeric(x/24))
as.day.week       <- function(x,...)as.day(as.numeric(x*7))
as.week.day       <- function(x,...)as.week(as.numeric(x/7))
as.day.month      <- function(x,...)as.day(as.numeric(x*28))
as.month.day      <- function(x,...)as.month(as.numeric(x/28))
as.day.year       <- function(x,...)as.day(as.numeric(x*365.25))
as.year.day       <- function(x,...)as.year(as.numeric(x/365.25))

as.second.second  <- function(x,...)x
as.minute.minute  <- function(x,...)x
as.hour.hour      <- function(x,...)x
as.day.day        <- function(x,...)x
as.week.week      <- function(x,...)x
as.month.month    <- function(x,...)x
as.year.year      <- function(x,...)x
as.second.hour    <- function(x,...)as.second(as.minute(x))
as.second.day     <- function(x,...)as.second(as.hour(x))
as.second.duration <- function(x,...)as.second(as.day(x))
as.minute.duration <- function(x,...)as.minute(as.second(x))
as.hour.second    <- function(x,...)as.hour(as.minute(x))
as.hour.duration   <- function(x,...)as.hour(as.day(x))                                       
as.day.duration    <- function(x,...)as.day(as.hour(x))                                      
as.week.duration   <- function(x,...)as.week(as.day(x))                                  
as.month.duration  <- function(x,...)as.month(as.day(x))
as.year.duration   <- function(x,...)as.year(as.day(x))