tests/testthat/testvecttor.R

set.seed(123)
especie=t(gtools::rdirichlet(5,c(1,3,1)))
Tt=5
E=3
EspecieMaxima=3

f=c(log(0.2915338/0.3176401),   log(0.48500536/0.08519937),  log(0.009179465/0.069391171) ,   log(0.0878459/0.4656159))



test_that("vecttor", {
  expect_equal(vecttor(1,especie,Tt,EspecieMaxima),f,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.