.onAttach <- function(...)
{
    library(help=hdrcde)$info[[1]] -> version
    version <- version[pmatch("Version",version)]
    um <- strsplit(version," ")[[1]]
    version <- um[nchar(um)>0][2]
    cat(paste("This is hdrcde",version,"\n"))
}