Running examples in 'relliptical-Ex.R' failed
The error most likely occurred in:

> ### Name: rtelliptical
> ### Title: Sampling Random Numbers from Truncated Multivariate Elliptical
> ###   Distributions
> ### Aliases: rtelliptical
> 
> ### ** Examples
> 
> library(ggplot2)
> library(ggExtra)
> library(gridExtra)
> 
> # Example 1: Sampling from the Truncated Normal distribution
> set.seed(1234)
> mean  = c(0, 1)
> Sigma = matrix(c(1,0.70,0.70,3), 2, 2)
> lower = c(-2, -3)
> upper = c(3, 3)
> sample1 = rtelliptical(5e4, mean, Sigma, lower, upper, dist="Normal")
> 
> # Histogram and density for variable 1
> ggplot(data.frame(sample1), aes(x=X1)) +
+    geom_histogram(aes(y=..density..), colour="black", fill="grey", bins=15) +
+    geom_density(color="red") + labs(x=bquote(X[1]), y="Density")
> 
> # Histogram and density for variable 2
> ggplot(data.frame(sample1), aes(x=X2)) +
+    geom_histogram(aes(y=..density..), colour="black", fill="grey", bins=15) +
+    geom_density(color="red") + labs(x=bquote(X[2]), y="Density")
> 
> 
> # Example 2: Sampling from the Truncated Logistic distribution
> 
> # Function for plotting the sample autocorrelation using ggplot2
> acf.plot = function(samples){
+  p = ncol(samples); n = nrow(samples); q1 = qnorm(0.975)/sqrt(n); acf1 = list(p)
+  for (i in 1:p){
+    bacfdf = with(acf(samples[,i], plot=FALSE), data.frame(lag, acf))
+    acf1[[i]] = ggplot(data=bacfdf, aes(x=lag,y=acf)) + geom_hline(aes(yintercept=0)) +
+      geom_segment(aes(xend=lag, yend=0)) + labs(x="Lag", y="ACF", subtitle=bquote(X[.(i)])) +
+      geom_hline(yintercept=c(q1,-q1), color="red", linetype="twodash")
+  }
+  return (acf1)
+ }
> 
> set.seed(5678)
> mean  = c(0, 0)
> Sigma = matrix(c(1,0.70,0.70,1), 2, 2)
> lower = c(-2, -2)
> upper = c(3, 2)
> # Sample autocorrelation with no thinning
> sample2 = rtelliptical(1000, mean, Sigma, lower, upper, dist=NULL,
+                        expr="exp(1)^(-t)/(1+exp(1)^(-t))^2")
Warning in log((root((-2 * y + 1)^2 - 4 * y^2, 2) - -2 * y + 1)/(-2 * y)) :
  NaNs produced
Error in while ((class(res2) == "try-error" | res2 < 0) & conta <= mre) { : 
  missing value where TRUE/FALSE needed
Calls: rtelliptical
Execution halted