Nothing
################################################################################
##
## $Id: backtest.function.test.R 1300 2008-08-27 21:01:11Z zhao $
##
## Tests for function "backtest.function"
##
################################################################################
library(backtest)
load("backtest.function.test.RData")
## save(x, truth.1, truth.2, truth.3, truth.4.A, truth.4.B, file = "backtest.function.test.RData", compress = TRUE)
bt.1 <- backtest(x, in.var = "in.var.1", ret.var = "ret.var.1", by.period = FALSE)
bt.2 <- backtest(x, in.var = "in.var.1", ret.var = "ret.var.1", by.var = "country", by.period = FALSE)
bt.3 <- backtest(x, id.var = "id", in.var = "in.var.1", ret.var = "ret.var.1", date.var = "date", by.period = FALSE)
bt.4 <- backtest(x, in.var = c("in.var.1", "in.var.2"), ret.var = "ret.var.1", by.var = "country", by.period = FALSE)
bt.5 <- backtest(x, in.var = "in.var.1", ret.var = "ret.var.1", by.period = TRUE, date.var = "date", buckets = 2)
bt.6 <- backtest(x, in.var = "in.var.1", ret.var = "ret.var.1", by.period = TRUE, date.var = "date", natural = TRUE, id = "id", buckets = 2)
bt.7 <- backtest(x, id.var = "id", in.var = "in.var.1", ret.var = "ret.var.1", by.period = FALSE, date.var = "date", overlaps = 2)
stopifnot(
all.equal(truth.1, as.numeric(bt.1@results[1,1 , , ,"means"])),
all(mapply(all.equal, truth.2, bt.2@results[1,1 , , ,"means"])),
all(mapply(all.equal, truth.3, bt.3@results[1,1 , , ,"means"])),
all(mapply(all.equal, truth.4.A, bt.4@results["ret.var.1","in.var.1", , ,"means"])),
all(mapply(all.equal, truth.4.B, bt.4@results["ret.var.1","in.var.2", , ,"means"])),
all(mapply(all.equal, truth.5, bt.5@results[1,1 , , ,"means"])),
all(mapply(all.equal, truth.6, bt.6@results[1,1 , , ,"means"]))
)
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.