Running ‘Gtilde2.R’
  Comparing ‘Gtilde2.Rout’ to ‘Gtilde2.Rout.save’ ... OK
  Running ‘MWE.R’
  Comparing ‘MWE.Rout’ to ‘MWE.Rout.save’ ... OK
  Running ‘cuhre.R’
  Comparing ‘cuhre.Rout’ to ‘cuhre.Rout.save’ ... OK
  Running ‘divonne.R’
  Comparing ‘divonne.Rout’ to ‘divonne.Rout.save’ ... OK
  Running ‘peak.R’
  Comparing ‘peak.Rout’ to ‘peak.Rout.save’ ... OK
  Running ‘suave.R’
Running the tests in ‘tests/suave.R’ failed.
Complete output:
  > #dyn.load("../src/R2Cuba.so");source("../R/suave.R"); source("../R/commoncuba.R")
  > library("R2Cuba")
  > integrand <- function(arg, weight) {
  +   x <- arg[1]
  +   y <- arg[2]
  +   z <- arg[3]
  +  #  print( weight)
  +   ff <- sin(x)*cos(y)*exp(z);
  + return(ff)
  + } # end  integrand
  > 
  > NDIM <- 3
  > NCOMP <- 1
  > EPSREL <- 1e-3
  > EPSABS <- 1e-12
  > VERBOSE <- 2
  > LAST <- 1
  > 
  > suave(NDIM, NCOMP, integrand,
  +                   rel.tol=EPSREL,  abs.tol=EPSABS,
  +       flags=list(verbose=0))
  integral: 0.6647464 (+-0.00061)
  nregions: 6; number of evaluations:  6000; probability:  0.001946077 
  > # ----------------------------------------
  > # Essai avec ...
  > integrandp <- function(arg, weight, ...) {
  + 
  +   x <- arg[1]
  +   y <- arg[2]
  +   z <- arg[3]
  +  # print( weight, ...)
  +     ff <- sin(x)*cos(y)*exp(z);
  + return(ff)
  + } # fin integrandp
  > suave(NDIM, NCOMP, integrandp, digits=1,
  +                   rel.tol=EPSREL,  abs.tol=EPSABS,
  +              flags=list(verbose=0))
  integral: 0.6647464 (+-0.00061)
  nregions: 6; number of evaluations:  6000; probability:  0.001946077 
  > # ----------------------------------------
  > 
  > # Essai en d<e9>placant les bornes
  > integrand2 <- function(arg, weight) {
  +   x <- arg[1]
  +   y <- arg[2]
  +   z <- arg[3]
  +    ff <- sin(x-3)*cos(y-2)*exp(z-1);
  + return(ff)
  + } # End integrand2
  > suave(NDIM, NCOMP,  integrand2, lower=c(3,2,1), upper=c(4,3,2), flags=list(verbose=3))
  Suave input parameters:
    ndim 3
    ncomp 1
    rel.tol 0.001
    abs.tol 4.93038e-32
    smooth 0
    pseudo.random  0
    final 0
    verbose 3
    min.eval 0
    max.eval 50000
    nnew 1000
    flatness 50
  
  Region (3.000000) - (4.000000)
         (2.000000) - (3.000000)
         (1.000000) - (2.000000)
  [1] 0.664916 +- 0.0138647 (1000)  	chisq 0 (0 df)
  Iteration 1:  1000 integrand evaluations so far
  [1] 0.664916 +- 0.0138647  	chisq 0 (0 df)
  
   *** caught segfault ***
  address 10, cause 'memory not mapped'
  
  Traceback:
   1: .C("Rsuave", as.integer(ndim), as.integer(ncomp), ffintegrand,     new.env(), as.double(lower), as.double(upper), as.double(prdbounds),     as.double(rel.tol), as.double(abs.tol), as.integer(flags$mersenne.seed),     as.integer(lesflags), as.integer(min.eval), as.integer(max.eval),     as.integer(nnew), as.double(flatness), nregions = as.integer(nregions),     neval = as.integer(neval), fail = as.integer(fail), integral = as.double(integral),     error = as.double(error), prob = as.double(prob), NAOK = TRUE)
   2: suave(NDIM, NCOMP, integrand2, lower = c(3, 2, 1), upper = c(4,     3, 2), flags = list(verbose = 3))
  An irrecoverable exception occurred. R is aborting now ...