Nothing
################################################################################
##
## $Id: portfolio.all.equal.test.R 346 2006-10-01 05:08:55Z enos $
##
## Tests "all.equal" method of "portfolio"
##
################################################################################
library(portfolio)
## save(current, target, file = "portfolio.all.equal.test.RData", compress = TRUE)
## loads 2 portfolio objects identical in all regards except
## their weights and shares slots have been ordered differently
load("portfolio.all.equal.test.RData")
stopifnot(
isTRUE(all.equal(current, target))
)
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.