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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: Distributions
> ### Title: The class 'distribution' in the fitDRC-package: its constructors
> ###   and methods.
> ### Aliases: distribution dist.normal.create dist.student.create
> ###   dist.weibull.create dist.lognormal.create dist.beta.create
> ###   dist.gamma.create dist.f.create dist.uniform.create
> ###   dist.logistic.create print.distribution summary.distribution
> ###   plot.distribution PDF.distribution CDF.distribution
> ###   CDFinv.distribution RANGE.distribution MEAN.distribution
> ###   SD.distribution MEDIAN.distribution MODE.distribution
> ### Keywords: distribution
> 
> ### ** Examples
> 
> print(dist.normal.create(c(Mean = 0, StDev = 1)))
$name
[1] "Normal"

$range
function (par) 
{
    return(c(-Inf, +Inf))
}
<bytecode: 0x55bdbfa46a10>
<environment: 0x55bdbfa4a700>

$par.names
[1] "Mean"  "StDev"

$par.ranges
     [,1] [,2]
[1,] -Inf  Inf
[2,]    0  Inf

$par
 Mean StDev 
    0     1 

$mean
function (par) 
{
    mean <- par[1]
    names(mean) <- "Mean"
    return(mean)
}
<bytecode: 0x55bdbfa45f90>
<environment: 0x55bdbfa4a700>

$sd
function (par) 
{
    sd <- par[2]
    names(sd) <- "StDev"
    return(sd)
}
<bytecode: 0x55bdbfa45820>
<environment: 0x55bdbfa4a700>

$median
function (par) 
{
    median <- par[1]
    names(median) <- "Median"
    return(median)
}
<bytecode: 0x55bdbfa450b0>
<environment: 0x55bdbfa4a700>

$mode
function (par) 
{
    mode <- par[1]
    names(mode) <- "Mode"
    return(mode)
}
<bytecode: 0x55bdbfa48770>
<environment: 0x55bdbfa4a700>

$pdf
function (x, par) 
{
    return(dnorm(x, par[1], par[2]))
}
<bytecode: 0x55bdbfa47fc8>
<environment: 0x55bdbfa4a700>

$cdf
function (x, par) 
{
    return(pnorm(x, par[1], par[2]))
}
<bytecode: 0x55bdbfa478c8>
<environment: 0x55bdbfa4a700>

$cdf.inv
function (p, par) 
{
    return(qnorm(p, par[1], par[2]))
}
<bytecode: 0x55bdbfa471c8>
<environment: 0x55bdbfa4a700>

attr(,"class")
[1] "distribution"
> print(dist.student.create(c(DF=99)))
$name
[1] "Student"

$range
function (par) 
{
    return(c(-Inf, +Inf))
}
<bytecode: 0x55bdbfaebef8>
<environment: 0x55bdbf1947f0>

$par.names
[1] "Mean"  "StDev" "DF"   

$par.ranges
     [,1] [,2]
[1,] -Inf  Inf
[2,]    0  Inf
[3,]    3  Inf

$par
 Mean StDev    DF 
    0     1    99 

$mean
function (par) 
{
    mean <- par[1]
    names(mean) <- "Mean"
    return(mean)
}
<bytecode: 0x55bdbfaeb478>
<environment: 0x55bdbf1947f0>

$sd
function (par) 
{
    sd <- par[2]
    names(sd) <- "StDev"
    return(sd)
}
<bytecode: 0x55bdbfaead08>
<environment: 0x55bdbf1947f0>

$median
function (par) 
{
    median <- par[1]
    names(median) <- "Median"
    return(median)
}
<bytecode: 0x55bdbf18fac0>
<environment: 0x55bdbf1947f0>

$mode
function (par) 
{
    mode <- par[1]
    names(mode) <- "Mode"
    return(mode)
}
<bytecode: 0x55bdbf18f350>
<environment: 0x55bdbf1947f0>

$pdf
function (x, par) 
{
    q <- x
    mu_t <- par[1]
    sigma_t <- par[2]
    if (is.na(par[3])) {
        N <- 3
    }
    else {
        N <- par[3]
    }
    return(dt((q - mu_t)/(sigma_t * sqrt((N - 2)/N)), df = N)/(sigma_t * 
        sqrt((N - 2)/N)))
}
<bytecode: 0x55bdbf18eba8>
<environment: 0x55bdbf1947f0>

$cdf
function (x, par) 
{
    q <- x
    mu_t <- par[1]
    sigma_t <- par[2]
    if (is.na(par[3])) {
        N <- 3
    }
    else {
        N <- par[3]
    }
    return(pt(((q - mu_t)/(sigma_t * sqrt((N - 2)/N))), df = N))
}
<bytecode: 0x55bdbf1912e0>
<environment: 0x55bdbf1947f0>

$cdf.inv
function (p, par) 
{
    mu_t <- par[1]
    sigma_t <- par[2]
    if (is.na(par[3])) {
        N <- 3
    }
    else {
        N <- par[3]
    }
    return(qt(p, N) * sigma_t * sqrt((N - 2)/N) + mu_t)
}
<bytecode: 0x55bdbf18ff68>
<environment: 0x55bdbf1947f0>

attr(,"class")
[1] "distribution"
> dist.weibull.create(c(Shape=2,Scale=99))
$name
[1] "Weibull"

$range
function (par) 
{
    return(c(0, +Inf))
}
<bytecode: 0x55bdbf99d670>
<environment: 0x55bdbeed4f80>

$par.names
[1] "Shape" "Scale"

$par.ranges
     [,1] [,2]
[1,]    1  Inf
[2,]    0  Inf

$par
Shape Scale 
    2    99 

$mean
function (par) 
{
    mean <- par[2] * gamma(1 + (1/par[1]))
    names(mean) <- "Mean"
    return(mean)
}
<bytecode: 0x55bdbf9a0a90>
<environment: 0x55bdbeed4f80>

$sd
function (par) 
{
    sd <- (par[2]^2 * gamma(1 + (2/par[1])) - (par[2] * gamma(1 + 
        (1/par[1])))^2)^(1/2)
    names(sd) <- "StDev"
    return(sd)
}
<bytecode: 0x55bdbf99ffa0>
<environment: 0x55bdbeed4f80>

$median
function (par) 
{
    median <- par[2] * (log(2))^(1/par[1])
    names(median) <- "Median"
    return(median)
}
<bytecode: 0x55bdbf9a2a20>
<environment: 0x55bdbeed4f80>

$mode
function (par) 
{
    mode <- ifelse(par[1] > 1, par[2] * (((par[1] - 1)/par[1])^(1/par[1])), 
        NA)
    names(mode) <- "Mode"
    return(mode)
}
<bytecode: 0x55bdbf9a1ec0>
<environment: 0x55bdbeed4f80>

$pdf
function (x, par) 
{
    return(dweibull(x, par[1], par[2]))
}
<bytecode: 0x55bdbeed6678>
<environment: 0x55bdbeed4f80>

$cdf
function (x, par) 
{
    return(pweibull(x, par[1], par[2]))
}
<bytecode: 0x55bdbeed5f78>
<environment: 0x55bdbeed4f80>

$cdf.inv
function (p, par) 
{
    return(qweibull(p, par[1], par[2]))
}
<bytecode: 0x55bdbeed5878>
<environment: 0x55bdbeed4f80>

attr(,"class")
[1] "distribution"
> summary(dist.lognormal.create(c(StDev=2)))
           Length Class  Mode     
name       1      -none- character
range      1      -none- function 
par.names  2      -none- character
par.ranges 4      -none- numeric  
par        2      -none- numeric  
mean       1      -none- function 
sd         1      -none- function 
median     1      -none- function 
mode       1      -none- function 
pdf        1      -none- function 
cdf        1      -none- function 
cdf.inv    1      -none- function 
> 
> plot(dist.beta.create(c(2,1)),plot=FALSE)
Error in xy.coords(x, y, xlabel, ylabel, log) : 
  'x' is a list, but does not have components 'x' and 'y'
Calls: plot -> plot.default -> xy.coords
Execution halted