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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: cdf
> ### Title: Generic function for 'cdf...': probability distribution fitting
> ###   with L-Moments.
> ### Aliases: cdf spi.cdf cdf.spi
> 
> ### ** Examples
> 
> 
> # Sample L-moments of Ozone from the airquality data
> data(airquality)
> lmom <- samlmu(airquality$Ozone,nmom=6)
> 
> distrib <- c("exp","gam","gev","glo","gpa","gno","gum","kap",
+ "ln3","nor","pe3","wak","wei")
> 
> para_list <- pel(distrib=distrib,lmom=lmom)
> cdf_list <- cdf(para=para_list,x=airquality$Ozone)
> 
>  library(rasterList)
Loading required package: raster
Loading required package: sp
>  precff <- system.file("map/Mekrou_precipitation.grd", package="rasterList")
> 	precs <- stack(precff)
>  prec_point <- precs[143][,]
> 
>  ## month index 
>  month <- as.character(as.Date(names(prec_point),format="X%Y.%m.%d"),format="M%m")
Warning in as.character.POSIXt(as.POSIXlt(x), ...) :
  as.character(td, ..) no longer obeys a 'format' argument; use format(td, ..) ?
>  prec_point[(prec_point<1) & (month=="M01")] <- 0
> 
>  distrib_prec2 <- c("gam")
>  para_vvv <- pel(x=prec_point,indices=month,distrib=distrib_prec2)
Error in if (lmom[2] == 0) { : missing value where TRUE/FALSE needed
Calls: pel -> tapply -> lapply -> FUN -> pel
Execution halted
Running examples in ‘lmomPi-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: cdf
> ### Title: Generic function for 'cdf...': probability distribution fitting
> ###   with L-Moments.
> ### Aliases: cdf spi.cdf cdf.spi
> 
> ### ** Examples
> 
> 
> # Sample L-moments of Ozone from the airquality data
> data(airquality)
> lmom <- samlmu(airquality$Ozone,nmom=6)
> 
> distrib <- c("exp","gam","gev","glo","gpa","gno","gum","kap",
+ "ln3","nor","pe3","wak","wei")
> 
> para_list <- pel(distrib=distrib,lmom=lmom)
> cdf_list <- cdf(para=para_list,x=airquality$Ozone)
> 
>  library(rasterList)
Loading required package: raster
Loading required package: sp
>  precff <- system.file("map/Mekrou_precipitation.grd", package="rasterList")
> 	precs <- stack(precff)
>  prec_point <- precs[143][,]
> 
>  ## month index 
>  month <- as.character(as.Date(names(prec_point),format="X%Y.%m.%d"),format="M%m")
Warning in as.character.POSIXt(as.POSIXlt(x), ...) :
  as.character(td, ..) no longer obeys a 'format' argument; use format(td, ..) ?
>  prec_point[(prec_point<1) & (month=="M01")] <- 0
> 
>  distrib_prec2 <- c("gam")
>  para_vvv <- pel(x=prec_point,indices=month,distrib=distrib_prec2)
Error in if (lmom[2] == 0) { : missing value where TRUE/FALSE needed
Calls: pel -> tapply -> lapply -> FUN -> pel
Execution halted
Running examples in ‘lmomPi-Ex.R’ failed
The error most likely occurred in:

> ### Name: cdf
> ### Title: Generic function for 'cdf...': probability distribution fitting
> ###   with L-Moments.
> ### Aliases: cdf spi.cdf cdf.spi
> 
> ### ** Examples
> 
> 
> # Sample L-moments of Ozone from the airquality data
> data(airquality)
> lmom <- samlmu(airquality$Ozone,nmom=6)
> 
> distrib <- c("exp","gam","gev","glo","gpa","gno","gum","kap",
+ "ln3","nor","pe3","wak","wei")
> 
> para_list <- pel(distrib=distrib,lmom=lmom)
> cdf_list <- cdf(para=para_list,x=airquality$Ozone)
> 
>  library(rasterList)
Loading required package: raster
Loading required package: sp
>  precff <- system.file("map/Mekrou_precipitation.grd", package="rasterList")
> 	precs <- stack(precff)
>  prec_point <- precs[143][,]
> 
>  ## month index 
>  month <- as.character(as.Date(names(prec_point),format="X%Y.%m.%d"),format="M%m")
Warning in as.character.POSIXt(as.POSIXlt(x), ...) :
  as.character(td, ..) no longer obeys a 'format' argument; use format(td, ..) ?
>  prec_point[(prec_point<1) & (month=="M01")] <- 0
> 
>  distrib_prec2 <- c("gam")
>  para_vvv <- pel(x=prec_point,indices=month,distrib=distrib_prec2)
Error in if (lmom[2] == 0) { : missing value where TRUE/FALSE needed
Calls: pel -> tapply -> lapply -> FUN -> pel
Execution halted
Running examples in ‘lmomPi-Ex.R’ failed
The error most likely occurred in:

> ### Name: cdf
> ### Title: Generic function for 'cdf...': probability distribution fitting
> ###   with L-Moments.
> ### Aliases: cdf spi.cdf cdf.spi
> 
> ### ** Examples
> 
> 
> # Sample L-moments of Ozone from the airquality data
> data(airquality)
> lmom <- samlmu(airquality$Ozone,nmom=6)
> 
> distrib <- c("exp","gam","gev","glo","gpa","gno","gum","kap",
+ "ln3","nor","pe3","wak","wei")
> 
> para_list <- pel(distrib=distrib,lmom=lmom)
> cdf_list <- cdf(para=para_list,x=airquality$Ozone)
> 
>  library(rasterList)
Loading required package: raster
Loading required package: sp
>  precff <- system.file("map/Mekrou_precipitation.grd", package="rasterList")
> 	precs <- stack(precff)
>  prec_point <- precs[143][,]
> 
>  ## month index 
>  month <- as.character(as.Date(names(prec_point),format="X%Y.%m.%d"),format="M%m")
Warning in as.character.POSIXt(as.POSIXlt(x), ...) :
  as.character(td, ..) no longer obeys a 'format' argument; use format(td, ..) ?
>  prec_point[(prec_point<1) & (month=="M01")] <- 0
> 
>  distrib_prec2 <- c("gam")
>  para_vvv <- pel(x=prec_point,indices=month,distrib=distrib_prec2)
Error in if (lmom[2] == 0) { : missing value where TRUE/FALSE needed
Calls: pel -> tapply -> lapply -> FUN -> pel
Execution halted
Running examples in 'lmomPi-Ex.R' failed
The error most likely occurred in:

> ### Name: cdf
> ### Title: Generic function for 'cdf...': probability distribution fitting
> ###   with L-Moments.
> ### Aliases: cdf spi.cdf cdf.spi
> 
> ### ** Examples
> 
> 
> # Sample L-moments of Ozone from the airquality data
> data(airquality)
> lmom <- samlmu(airquality$Ozone,nmom=6)
> 
> distrib <- c("exp","gam","gev","glo","gpa","gno","gum","kap",
+ "ln3","nor","pe3","wak","wei")
> 
> para_list <- pel(distrib=distrib,lmom=lmom)
> cdf_list <- cdf(para=para_list,x=airquality$Ozone)
> 
>  library(rasterList)
Loading required package: raster
Loading required package: sp
>  precff <- system.file("map/Mekrou_precipitation.grd", package="rasterList")
> 	precs <- stack(precff)
>  prec_point <- precs[143][,]
> 
>  ## month index 
>  month <- as.character(as.Date(names(prec_point),format="X%Y.%m.%d"),format="M%m")
Warning in as.character.POSIXt(as.POSIXlt(x), ...) :
  as.character(td, ..) no longer obeys a 'format' argument; use format(td, ..) ?
>  prec_point[(prec_point<1) & (month=="M01")] <- 0
> 
>  distrib_prec2 <- c("gam")
>  para_vvv <- pel(x=prec_point,indices=month,distrib=distrib_prec2)
Error in if (lmom[2] == 0) { : missing value where TRUE/FALSE needed
Calls: pel -> tapply -> lapply -> FUN -> pel
Execution halted