On Wed, 3 Dec 2003 11:53:44 -0500 Tanya Murphy <[EMAIL PROTECTED]> wrote:
> Thank you Frank and Gabor for the fixes and checking and rechecking! > Everything seems to work well with the Hmisc functions tried--upData, > describe and summary. > > To summarize: > 1. Add the testDateTime and formatDateTime functions (copied from > Frank's messages) to the Hmisc file (or run prior to loading Hmisc) > > > testDateTime <- function(x, what=c('either','both','timeVaries')) { > what <- match.arg(what) > cl <- class(x) # was oldClass 22jun03 > if(!length(cl)) return(FALSE) > > dc <- if(.R.) c('POSIXt','POSIXct','dates','times','chron') else > c('timeDate','date','dates','times','chron') > dtc <- if(.R.) c('POSIXt','POSIXct','chron') else > c('timeDate','chron') > switch(what, > either = any(cl %in% dc), > both = any(cl %in% dtc), > timeVaries = { > if('chron' %in% cl || !.R.) { ## chron or S+ timeDate > y <- as.numeric(x) > length(unique(round(y - floor(y),13))) > 1 > } else if(.R.) length(unique(format(x,'%H%M%S'))) > 1 else > FALSE > }) > } > > formatDateTime <- function(x, at, roundDay=FALSE) { > cl <- at$class > w <- if(any(cl %in% c('chron','dates','times'))) { > attributes(x) <- at > fmt <- at$format > if(roundDay) { > if(length(fmt)==2 && is.character(fmt)) > format.dates(x, fmt[1]) else format.dates(x) > } else x > } else if(.R.) { > attributes(x) <- at > if(roundDay) as.POSIXct(round(x, 'days')) else x > } else timeDate(julian=if(roundDay)round(x) else x) > format(w) > } > > 2. Replace the decribe function with the new one (available as an > attachment in Frank's most recent message on the subject). Instead of > editing the original Hmisc file, this could be run after the Hmisc > library is loaded. > > Right? Right, or if you use Linux I can send you a new .tar.gz file with an update to Hmisc. Once you do update Hmisc you can drop all the above. Frank > > > Tanya > > ______________________________________________ > [EMAIL PROTECTED] mailing list > https://www.stat.math.ethz.ch/mailman/listinfo/r-help --- Frank E Harrell Jr Professor and Chair School of Medicine Department of Biostatistics Vanderbilt University ______________________________________________ [EMAIL PROTECTED] mailing list https://www.stat.math.ethz.ch/mailman/listinfo/r-help