tests/testthat/test_weighted_median_line.R
In martinSter/robsurvey: Robust Survey Statistics Estimation
context("weighted_median_line")
library(robsurvey)
test_that("Function outputs correct result for example", {
x <- c(1, 2, 4, 5)
y <- c(3, 2, 7, 4)
expect_equal(coef(weighted_median_line(y~x, w=rep(1, length(x)), type="prod")), c(2.0,0.5), tolerance=1e-05)
})
martinSter/robsurvey documentation built on Oct. 11, 2019, 4:45 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
context("weighted_median_line")
library(robsurvey)
test_that("Function outputs correct result for example", {
x <- c(1, 2, 4, 5)
y <- c(3, 2, 7, 4)
expect_equal(coef(weighted_median_line(y~x, w=rep(1, length(x)), type="prod")), c(2.0,0.5), tolerance=1e-05)
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.