#' Testing cpp code TBA!!
#'
#' @description test cpp code, temporary function, move to tests as they are done and finally delete this function
#'
#' @param mu The mu parameter.
#'
#' @param nu The nu parameter.
#'
#' @keywords internal
#'
#' @export
testCpp <- function(mu, nu) {
mu <- 2
nu <- 0.9
zeta <- seq(from = -3, to = max(mu)+5, by = 0.2)
ds <- RJafroc::dataset06 # fail Magnus; dataset11 # fail Dobbins
LD <- UtilLesDistr(ds)
Freq <- LD$Freq
lesID <- LD$lesID
W <- UtilLesWghtsDS(ds)
for (i in 1:length(zeta)) {
ret1 <- RSM_wLLF_cpp (zeta[i], mu = mu, nu = nu, f_L = Freq, W = W)
ret2 <- RSM_wLLF_R(zeta[i], mu = mu, nu = nu, lesDistr = Freq, relWeights = 0)
testthat::expect_equal(ret1, ret2)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.