tests/testthat/test-mktrend.R

test_that("multiplication works", {
    x <- c(4.81, 4.17, 4.41, 3.59, 5.87, 3.83, 6.03, 4.89, 4.32, 4.69)
    r <- mkTrend_r(x, IsPlot = TRUE)
    r_cpp <- mkTrend(x, IsPlot = TRUE)

    expect_equal(r, r_cpp)
})

Try the rtrend package in your browser

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

rtrend documentation built on June 22, 2024, 11:39 a.m.