.onLoad <- function(lib, pkg)
{
# Startup Mesage and Desription:
MSG <- if(getRversion() >= "2.5") packageStartupMessage else message
dsc <- packageDescription(pkg)
if(interactive() || getOption("verbose")) {
# not in test scripts
MSG(paste("\nPackage ", pkg, " (",dsc$Version,") loaded.\n",
# dsc$Title, "\n",
"Copyright (c) 2004-2015 Peter Carl and Brian G. Peterson, ",
dsc$License, "\n", dsc$URL,
"\n", sep=""))
}
}
even <- function (x) x%%2==0
odd <- function (x) x%%2==1
sd.xts <- xts:::sd.xts
#' @importFrom utils packageDescription
#' @importFrom stats sd
#' @import xts
#' @import zoo
NULL
###############################################################################
# R (http://r-project.org/) Econometrics for Performance and Risk Analysis
#
# Copyright (c) 2004-2015 Peter Carl and Brian G. Peterson
#
# This R package is distributed under the terms of the GNU Public License (GPL)
# for full details see the file COPYING
#
# $Id: zzz.R 3579 2015-01-07 13:01:25Z braverock $
#
###############################################################################
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.