attach.r

r软件 另一软件 包 计算核估计 必须先安装r软件

.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"))
}