wasim (version 1.0)

assemble.date: ~~function to do ... ~~

Description

~~ A concise (1-5 lines) description of what the function does. ~~

Usage

assemble.date(table)

Arguments

table

~~Describe table here~~

Value

• ~Describe the value returned If it is a LIST, use
• comp1
  Description of 'comp1'
• comp2
  Description of 'comp2'
• ...

Details

~~ If necessary, more details than the description above ~~

References

~put references to the literature/web site here ~

See Also

~~objects to See Also as help, ~~~

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (table) 
{
    t.midnight <- table$Hour==24
    t.next <- c(FALSE,t.midnight[-NROW(t.midnight)])
    table$Day[t.midnight] <- table$Day[t.next]
    table$Month[t.midnight] <- table$Month[t.next]
    table$Year[t.midnight] <- table$Year[t.next]
    table$Hour[t.midnight] <- 0
    return( strptime(paste(sep="",table$Year, "-", table$Month, "-", table$Day, "", table$Hour%%24), "%Y-%m-%d %H"))

  }