tests/testthat/test-ADstat.R

test_that("test ADstat works", {
  data <- c(12,21,26,27,29,29,48,57,59,70,74,153,326,386,502)
  theta_hat <- min(data)           #estimate theta
  beta_hat <- mean(data)-min(data) #estimate beta
  expect_equal( ADstat(data,theta_hat,beta_hat),ADstat(x=data,theta=theta_hat,beta=beta_hat) )

})

Try the twopexp package in your browser

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

twopexp documentation built on July 17, 2026, 9:07 a.m.