Last updated on 2020-05-02 08:51:47 CEST.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 2.1-2 | 4.59 | 40.12 | 44.71 | OK | |
| r-devel-linux-x86_64-debian-gcc | 2.1-2 | 3.41 | 31.49 | 34.90 | OK | |
| r-devel-linux-x86_64-fedora-clang | 2.1-2 | 55.79 | OK | |||
| r-devel-linux-x86_64-fedora-gcc | 2.2-0 | 54.34 | ERROR | |||
| r-devel-windows-ix86+x86_64 | 2.1-2 | 15.00 | 64.00 | 79.00 | OK | |
| r-patched-linux-x86_64 | 2.1-2 | 4.65 | 39.08 | 43.73 | OK | |
| r-patched-solaris-x86 | 2.2-0 | 70.70 | OK | |||
| r-release-linux-x86_64 | 2.1-2 | 4.28 | 38.31 | 42.59 | OK | |
| r-release-osx-x86_64 | 2.1-2 | OK | ||||
| r-release-windows-ix86+x86_64 | 2.1-2 | 12.00 | 66.00 | 78.00 | OK | |
| r-oldrel-osx-x86_64 | 2.1-2 | OK | ||||
| r-oldrel-windows-ix86+x86_64 | 2.1-2 | 10.00 | 87.00 | 97.00 | OK |
Version: 2.2-0
Check: examples
Result: ERROR
Running examples in ‘MortCast-Ex.R’ failed
The error most likely occurred in:
> ### Name: mortcast
> ### Title: Coherent Rotated Lee-Carter Prediction
> ### Aliases: mortcast
>
> ### ** Examples
>
> # estimate parameters from historical mortality data (5-year age groups)
> data(mxM, mxF, e0Fproj, e0Mproj, package = "wpp2017")
> country <- "Brazil"
> mxm <- subset(mxM, name == country)[,4:16]
> mxf <- subset(mxF, name == country)[,4:16]
> rownames(mxm) <- rownames(mxf) <- c(0,1, seq(5, 100, by=5))
> lc <- lileecarter.estimate(mxm, mxf)
>
> # project into future for given levels of life expectancy
> e0f <- as.numeric(subset(e0Fproj, name == country)[-(1:2)])
> e0m <- as.numeric(subset(e0Mproj, name == country)[-(1:2)])
> pred <- mortcast(e0m, e0f, lc)
>
> # plot first projection in black and the remaining ones in grey
> plot(lc$ages, pred$female$mx[,1], type="b", log="y", ylim=range(pred$female$mx),
+ ylab="female mx", xlab="Age", main=paste(country, "(5-year age groups)"), cex=0.5)
> for(i in 2:ncol(pred$female$mx)) lines(lc$ages, pred$female$mx[,i], col="grey")
>
> # similarly for 1-year age groups
> # interpolate to get toy 1-year mx for estimation
> interp <- function(x)
+ approx(c(0,1, seq(5, 100, by=5)), x, xout = seq(0, 100), method = "linear")$y
> mxm1y <- apply(mxm, 2, interp)
> mxf1y <- apply(mxf, 2, interp)
> rownames(mxm1y) <- rownames(mxf1y) <- seq(0, 100)
>
> # estimate parameters
> lc1y <- lileecarter.estimate(mxm1y, mxf1y, nx = 1)
>
> # project into future
> pred1y <- mortcast(e0m, e0f, lc1y)
*** caught segfault ***
address (nil), cause 'unknown'
Traceback:
1: mortcast(e0m, e0f, lc1y)
An irrecoverable exception occurred. R is aborting now ...
Flavor: r-devel-linux-x86_64-fedora-gcc