tests/testthat/test_func7.R
In kuanghuangying/KuangHuangyingTools: Huangying Kuang's First Package
context("homework 1 function 7 ")
test_that("the result of example works correctly", {
x <- scan(url("http://www.stat.umn.edu/geyer/3701/data/q1p3.txt"))
func1 = function(theta, x) dgamma(x, shape = theta, log = TRUE)
interval <- c(0,100)
expect_true(abs(func7(x,func1,interval)-2.962418) < 4.27e-07)
})
kuanghuangying/KuangHuangyingTools documentation built on May 25, 2019, 9:30 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("homework 1 function 7 ")
test_that("the result of example works correctly", {
x <- scan(url("http://www.stat.umn.edu/geyer/3701/data/q1p3.txt"))
func1 = function(theta, x) dgamma(x, shape = theta, log = TRUE)
interval <- c(0,100)
expect_true(abs(func7(x,func1,interval)-2.962418) < 4.27e-07)
})
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.