Nothing
print.marked.version <- function()
{ library(help=marked)$info[[1]] -> version
version <- version[pmatch("Version",version)]
if(!is.null(version))
{
um <- strsplit(version," ")[[1]]
version <- um[nchar(um)>0][2]
hello <- paste("This is marked ",version,"\n",sep="")
} else
hello <- "This is marked"
packageStartupMessage(hello)
}
.onAttach <- function(...) {
print.marked.version()
}
.onUnload <- function(libpath)
{
# unloadNamespace("marked")
# library.dynam.unload("marked", libpath)
cat("\nBye-Bye from marked\n\n")
return(invisible())
}
#' @import methods
### setMethods for Matrix package
#setMethod(f=crossprod, signature=signature(x="dgeMatrix", y="dtTMatrix"), function(x,y) callNextMethod())
# setMethod(f="%*%", signature=signature(x="ddiMatrix", y="dtTMatrix"), function(x,y) Matrix:::diagCspprod(as(x, "CsparseMatrix"), y))
# setMethod(f=crossprod, signature=signature(x="dgeMatrix", y="dtTMatrix"),
# definition=function (x, y = NULL){
# t(.Call("Csparse_dense_crossprod", as(y, "CsparseMatrix"), x, PACKAGE="Matrix"))
# }
# )
#
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.