tests/testthat/test_trade_freq.R

context("Test for the function 'trade_freq'")

load("test_trade_freq.RData")

test_that("trade_ferq function", {
  result.1 <- backtestGraphics:::trade_freq(x)
  expect_equal(truth.1, result.1, label = "Failed the test for trading frequency")
})

Try the backtestGraphics package in your browser

Any scripts or data that you put into this service are public.

backtestGraphics documentation built on May 29, 2017, 3:11 p.m.