tests/testthat/test_mylogl.r

In merc534/STAT3701-HW3: MercurioRyanTools Package for STAT 3701

  context("mylogl")
  test_that("works for data2",{

theta <- pi             

func2 <- function(theta,x){
  sum(dcauchy(x, location = theta, log = TRUE))
}
a <- mylogl(data2, func2, interval = c(-10,10))
b <- 3.02
expect_true(abs(a-b)<.01)
            
})