Running examples in ‘RTDE-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: fitRTDE
> ### Title: Fitting a Tail Dependence model with a Robust Estimator
> ### Aliases: fitRTDE summary.fitRTDE print.fitRTDE plot.fitRTDE
> ### Keywords: distribution
> 
> ### ** Examples
> 
> 
> #####
> # (1) simulation 
> 
> omega <- 1/2
> m <- 48
> n <- 100
> obs <- cbind(rupareto(n), rupareto(n)) + rupareto(n)
> 
> #function of m
> system.time(
+ x <- fitRTDE(obs, nbpoint=m:(n-m), 0, 1/2)
+ )
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
RTDE
 --- call from context --- 
fitRTDE(obs, nbpoint = m:(n - m), 0, 1/2)
 --- call from argument --- 
if (class(obs) == "dataRTDE") {
    if (any(is.na(obs$n0))) 
        obs <- obs$data
    else obs <- rbind(obs$data, obs$contamin)
}
 --- R stacktrace ---
where 1: fitRTDE(obs, nbpoint = m:(n - m), 0, 1/2)
where 2: system.time(x <- fitRTDE(obs, nbpoint = m:(n - m), 0, 1/2))

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (obs, nbpoint, alpha, omega, method = "MDPDE", fix.arg = list(rho = -1), 
    boundary.method = "log", control = list()) 
{
    if (class(obs) == "dataRTDE") {
        if (any(is.na(obs$n0))) 
            obs <- obs$data
        else obs <- rbind(obs$data, obs$contamin)
    }
    if (!is.matrix(obs) || NCOL(obs) != 2) 
        stop("observations should a two-column matrix.")
    method <- match.arg(method, "MDPDE")
    boundary.method <- match.arg(boundary.method, c("log", "simple"))
    con <- list(upper = 100, mif = 1.1, startv = c(3/4, 1/2), 
        trace = 0)
    namc <- names(con)
    con[namc <- names(control)] <- control
    m.length <- length(nbpoint)
    a.length <- length(alpha)
    o.length <- length(omega)
    n <- NROW(obs)
    n0 <- ifelse(class(obs) == "dataRTDE", obs$n0, NA)
    feta <- fdelta <- array(0, dim = c(a.length, o.length, m.length))
    Ztilde <- matrix(0, nrow = n, ncol = o.length)
    for (i in 1:a.length) {
        for (j in 1:o.length) {
            Ztildej <- zvalueRTDE(obs, omega[j], output = "orig", 
                marg = "upareto")
            Ztilde[, j] <- Ztildej$Ztilde
            for (k in 1:m.length) {
                m <- nbpoint[k]
                Z <- relexcess(Ztildej, m)$Z
                ftime <- system.time(fit <- fitetadelta(Z, alpha = alpha[i], 
                  rho = fix.arg$rho, boundary.method = boundary.method, 
                  control = control))
                if (con$trace > 0) 
                  print(ftime)
                feta[i, j, k] <- fit$par["eta"]
                fdelta[i, j, k] <- fit$par["delta"]
            }
        }
    }
    dimnames(feta) <- dimnames(fdelta) <- list(paste("a=", round(alpha, 
        3), sep = ""), paste("o=", round(omega, 3), sep = ""), 
        paste("m=", nbpoint, sep = ""))
    if (o.length == 1 && a.length == 1) {
        feta <- feta[1, 1, ]
        fdelta <- fdelta[1, 1, ]
        Ztilde <- Ztilde[, 1]
    }
    else if (o.length > 1 && a.length == 1) {
        feta <- feta[1, , ]
        fdelta <- fdelta[1, , ]
    }
    else if (o.length == 1 && a.length > 1) {
        feta <- feta[, 1, ]
        fdelta <- fdelta[, 1, ]
        Ztilde <- Ztilde[, 1]
    }
    if (any(!substr(unlist(dimnames(feta)), 1, 1) %in% c("a", 
        "o", "m", "s"))) 
        stop("Wrong dimnames for eta estimate.")
    res <- list(n = n, n0 = n0, alpha = alpha, omega = omega, 
        m = nbpoint, rho = fix.arg$rho, eta = feta, delta = fdelta, 
        Ztilde = Ztilde)
    class(res) <- "fitRTDE"
    res
}
<bytecode: 0x5575a3dd7af8>
<environment: namespace:RTDE>
 --- function search by body ---
Function fitRTDE in namespace RTDE has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1