tests/testthat/testPBalancePredi.R

Num=c(1,2)
Dem=c(3,4)
DatosEsperanzas=c(0.1,0.3,0.4,0.2)



fin=sqrt(4/4)*log(((0.1*0.3)^(1/2))/((0.4*0.2)^(1/2)))

test_that("PBalancePredi", {
  expect_equal(PBalancePredi(Num,Dem,DatosEsperanzas), fin,tolerance=1e-5)
})

Try the CoDaLoMic package in your browser

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

CoDaLoMic documentation built on April 12, 2025, 2:18 a.m.