Errors in running code in vignettes:
when running code in 'Frank-Rmpfr.Rnw'

> op.orig <- options(width = 75, SweaveHooks = list(fig = function() par(mar = c(5.1, 
+     4.1, 1.1, 2.1))), useFancyQuotes = FALSE, continue = "  " .... [TRUNCATED] 

> copDDir <- system.file("doc", package = "copula")

> Sys.setenv(LANGUAGE = "en")

> if (.Platform$OS.type != "windows") Sys.setlocale("LC_MESSAGES", 
+     "C")

> writeLines(head(capture.output(print(copula:::dDiagA)), 
+     -1))
function (u, d, cop, log = FALSE) 
{
    stopifnot(is.finite(th <- cop@theta), d >= 2)
    if (any(copAMH@name == c("AMH", "Frank", "Gumbel", "Joe")) && 
        any(i0 <- u == 0)) {
        if (log) 
            u[i0] <- -Inf
        u[!i0] <- dDiagA(u[!i0], d = d, cop = cop, log = log)
        return(u)
    }
    if (log) {
        log(d) + cop@absdPsi(d * cop@iPsi(u, th), th, log = TRUE) + 
            cop@absdiPsi(u, th, log = TRUE)
    }
    else {
        d * cop@absdPsi(d * cop@iPsi(u, th), th) * cop@absdiPsi(u, 
            th)
    }
}
<bytecode: 0x00000000200c00b8>

> dDiagA <- function(u, th, d, iPsi, absdPsi, absdiPsi, 
+     log = FALSE) {
+     stopifnot(is.finite(th), d > 0, is.function(iPsi), is.function(abs .... [TRUNCATED] 

> iPsi.0 <- function(u, theta) -log((exp(-theta * u) - 
+     1)/(exp(-theta) - 1))

> iPsi.1 <- function(u, theta) -log(expm1(-u * theta)/expm1(-theta))

> absdiPsi.1 <- function(u, theta, log = FALSE) if (log) log(theta) - 
+     log(expm1(u * theta)) else theta/expm1(u * theta)

> require("copula")
Loading required package: copula

> absdPsi.1 <- function(t, theta, log = FALSE) {
+     p <- -expm1(-theta)
+     Li. <- polylog(log(p) - t, s = 0, log = log, method = "negI-s-Euleria ..." ... [TRUNCATED] 

> absdPsi.2 <- function(t, theta, log = FALSE) {
+     w <- log(-expm1(-theta)) - t
+     Li. <- if (log) 
+         w - log(-expm1(w))
+     else -ex .... [TRUNCATED] 

> curve(dDiagA(x, th = 38, d = 2, iPsi = iPsi.0, absdPsi = absdPsi.1, 
+     absdiPsi = absdiPsi.1, log = TRUE), ylab = "dDiagA(x, theta= 38, *, log=T ..." ... [TRUNCATED] 

> curve(dDiagA(x, th = 38, d = 2, iPsi = iPsi.1, absdPsi = absdPsi.2, 
+     absdiPsi = absdiPsi.1, log = TRUE), add = TRUE, col = 2, 
+     n = 1000)

> legend("bottom", c("iPsi.0()", "iPsi.1()"), col = c(4, 
+     2), lty = 1, bty = "n")

> iPsi.2 <- function(u, theta) -log1p((exp(-u * theta) - 
+     exp(-theta))/expm1(-theta))

> curve(dDiagA(x, th = 38, d = 2, iPsi = iPsi.2, absdPsi = absdPsi.2, 
+     absdiPsi = absdiPsi.1, log = TRUE), ylab = "dDiagA(x, theta= 38, *, log=T ..." ... [TRUNCATED] 

> curve(dDiagA(x, th = 38, d = 2, iPsi = iPsi.1, absdPsi = absdPsi.2, 
+     absdiPsi = absdiPsi.1, log = TRUE), add = TRUE, col = "darkgray", 
+      .... [TRUNCATED] 

> d <- 5

> (theta <- copFrank@iTau(tau = 0.75))
[1] 14.13852

> cop <- onacopulaL("Frank", list(theta, 1:d))

> set.seed(1)

> for (l in 1:4) U <- rnacopula(n = 100, cop)

> U. <- sort(apply(U, 1, max))

> mlogL <- function(theta) -sum(dDiagA(U., theta, d = d, 
+     iPsi = iPsi.2, absdPsi = absdPsi.2, absdiPsi = absdiPsi.1, 
+     log = TRUE))

> p.mlogL <- function(th, mlogL, col = "red2", lwd = 1, 
+     lty = 1, add = FALSE) {
+     stopifnot(is.numeric(th), is.function(mlogL))
+     nll < .... [TRUNCATED] 

> thet <- seq(11, 99, by = 1/4)

> p.mlogL(thet, mlogL)

> require("Rmpfr")
Loading required package: Rmpfr
Loading required package: gmp

Attaching package: 'gmp'

The following objects are masked from 'package:copula':

    Eulerian, Eulerian.all, Stirling1, Stirling1.all, Stirling2,
    Stirling2.all

The following objects are masked from 'package:base':

    %*%, apply, crossprod, matrix, tcrossprod

C code of R package 'Rmpfr': GMP using 64 bits per limb


Attaching package: 'Rmpfr'

The following object is masked from 'package:gmp':

    outer

The following objects are masked from 'package:copula':

    Bernoulli, log1mexp, log1pexp

The following objects are masked from 'package:stats':

    dbinom, dgamma, dnbinom, dnorm, dpois, dt, pnorm

The following objects are masked from 'package:base':

    cbind, pmax, pmin, rbind


> MPrecBits <- c(160, 128, 96)

> mkNm <- function(bits) sprintf("%03d.bits", bits)

> fnam <- sprintf("mlogL_mpfr_%s.rds", Sys.info()[["machine"]])

> if (file.exists(fn <- file.path(copDDir, fnam))) {
+     nllMP <- readRDS(fn)
+ } else {
+     print(system.time(nllMP <- lapply(MPrecBits, function .... [TRUNCATED] 
   user  system elapsed 
  26.28    0.08   26.39 

> colB <- c("blue3", "violetred4", "tan3")

> ltyB <- c(5:3)

> lwdB <- c(2, 2, 2)

> for (i in seq_along(nllMP)) {
+     lines(thet, as.numeric(nllMP[[i]]), col = colB[i], lty = ltyB[i], 
+         lwd = lwdB[i])
+ }

> leg <- c("double prec.", sprintf("mpfr(*, precBits = %d)", 
+     MPrecBits))

> legend("top", leg, col = c("red3", colB), lty = c(1, 
+     ltyB), lwd = c(1, lwdB), bty = "n")

> op <- options(prompt = " ")

> options(op)

> stopifnot(all.equal(iPsi.2(U., 50), iPsi.2(U., mpfr(50, 
+     96))), all.equal(iPsi.0(U., mpfr(50, 200)), pI.U <- iPsi.2(U., 
+     mpfr(50, 200)), .... [TRUNCATED] 

  When sourcing 'Frank-Rmpfr.R':
Error: comparison of these types is not implemented
Execution halted

  'AC_Liouville.Rmd' using 'UTF-8'... OK
  'AR_Clayton.Rmd' using 'UTF-8'... OK
  'GIG.Rmd' using 'UTF-8'... OK
  'HAXC.Rmd' using 'UTF-8'... OK
  'NALC.Rmd' using 'UTF-8'... OK
  'copula_GARCH.Rmd' using 'UTF-8'... OK
  'dNAC.Rmd' using 'UTF-8'... OK
  'empiricial_copulas.Rmd' using 'UTF-8'... OK
  'logL_visualization.Rmd' using 'UTF-8'... OK
  'qrng.Rmd' using 'UTF-8'... OK
  'wild_animals.Rmd' using 'UTF-8'... OK
  'Frank-Rmpfr.Rnw' using 'UTF-8'... failed
  'nacopula-pkg.Rnw' using 'UTF-8'... OK
  'rhoAMH-dilog.Rnw' using 'UTF-8'... OK