Last updated on 2024-05-02 11:51:18 CEST.
Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
---|---|---|---|---|---|---|
r-devel-linux-x86_64-debian-clang | 0.3-2 | 13.49 | 188.24 | 201.73 | NOTE | |
r-devel-linux-x86_64-debian-gcc | 0.3-2 | 15.50 | 132.93 | 148.43 | NOTE | |
r-devel-linux-x86_64-fedora-clang | 0.3-2 | 252.82 | NOTE | |||
r-devel-linux-x86_64-fedora-gcc | 0.3-2 | 256.17 | NOTE | |||
r-devel-windows-x86_64 | 0.3-2 | 15.00 | 164.00 | 179.00 | NOTE | |
r-patched-linux-x86_64 | 0.3-2 | 12.93 | 173.05 | 185.98 | NOTE | |
r-release-linux-x86_64 | 0.3-2 | 13.63 | 170.85 | 184.48 | NOTE | |
r-release-macos-arm64 | 0.3-2 | 72.00 | ERROR | |||
r-release-windows-x86_64 | 0.3-2 | 16.00 | 164.00 | 180.00 | NOTE | |
r-oldrel-macos-arm64 | 0.3-2 | 72.00 | ERROR | |||
r-oldrel-macos-x86_64 | 0.3-2 | 142.00 | ERROR | |||
r-oldrel-windows-x86_64 | 0.3-2 | 21.00 | 205.00 | 226.00 | OK |
Version: 0.3-2
Check: Rd files
Result: NOTE
checkRd: (-1) BoxCox.Rd:266-269: Lost braces in \itemize; \value handles \item{}{} directly
checkRd: (-1) BoxCox.Rd:270-275: Lost braces in \itemize; \value handles \item{}{} directly
checkRd: (-1) BoxCox.Rd:276-284: Lost braces in \itemize; \value handles \item{}{} directly
checkRd: (-1) BoxCox.Rd:285-293: Lost braces in \itemize; \value handles \item{}{} directly
checkRd: (-1) Newdata.Rd:88-91: Lost braces
88 | {replace \code{newDat[, x2]}:
| ^
checkRd: (-1) interpPairs.Rd:120: Lost braces
120 | environment / list to use with code{object},
| ^
checkRd: (-1) matchQuote.Rd:72-74: Lost braces in \itemize; \value handles \item{}{} directly
checkRd: (-1) matchQuote.Rd:75-80: Lost braces in \itemize; \value handles \item{}{} directly
checkRd: (-1) matchQuote.Rd:81-88: Lost braces in \itemize; \value handles \item{}{} directly
checkRd: (-1) matchQuote.Rd:89-94: Lost braces in \itemize; \value handles \item{}{} directly
checkRd: (-1) simulate.bic.glm.Rd:81-91: Lost braces in \itemize; meant \describe ?
checkRd: (-1) simulate.bic.glm.Rd:92-103: Lost braces in \itemize; meant \describe ?
checkRd: (-1) simulate.bic.glm.Rd:104-108: Lost braces in \itemize; meant \describe ?
checkRd: (-1) simulate.glm.Rd:79-83: Lost braces in \itemize; meant \describe ?
checkRd: (-1) simulate.glm.Rd:84-95: Lost braces in \itemize; meant \describe ?
checkRd: (-1) simulate.glm.Rd:96-100: Lost braces in \itemize; meant \describe ?
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-devel-windows-x86_64, r-patched-linux-x86_64, r-release-linux-x86_64, r-release-macos-arm64, r-release-windows-x86_64
Version: 0.3-2
Check: examples
Result: ERROR
Running examples in ‘Ecfun-Ex.R’ failed
The error most likely occurred in:
> ### Name: asNumericDF
> ### Title: Coerce to numeric dropping commas and info after a blank
> ### Aliases: asNumericChar asNumericDF
> ### Keywords: manip
>
> ### ** Examples
>
> ##
> ## 1. an example
> ##
> (xDate <- as.Date('1970-01-01')+c(0, 365))
[1] "1970-01-01" "1971-01-01"
> (xPOSIX <- as.POSIXct(xDate)+c(1, 99))
[1] "1970-01-01 00:00:01 UTC" "1971-01-01 00:01:39 UTC"
> xMSdate <- as.Date(1,
+ as.Date('1899-12-31'))+1:2
> (fakeF1 <- data.frame(yr=c('1948',
+ '1947 (1)'),
+ q1=c(' 1,234 ', ''), duh=rep(NA, 2),
+ dol=c('$1,234', ''),
+ pct=c('1%', '2%'),
+ xDate=as.character(xDate,
+ format='%Y-%m-%d'),
+ xPOSIX=as.character(xPOSIX,
+ format='%Y-%m-%d %H:%M:%S'),
+ xMSdate=2:3, junk=c('this is',
+ 'junk')))
Warning in as.character.POSIXt(as.POSIXlt(x), ...) :
as.character(td, ..) no longer obeys a 'format' argument; use format(td, ..) ?
Warning in as.character.POSIXt(xPOSIX, format = "%Y-%m-%d %H:%M:%S") :
as.character(td, ..) no longer obeys a 'format' argument; use format(td, ..) ?
yr q1 duh dol pct xDate xPOSIX xMSdate
1 1948 1,234 NA $1,234 1% 1970-01-01 1970-01-01 00:00:01 2
2 1947 (1) NA 2% 1971-01-01 1971-01-01 00:01:39 3
junk
1 this is
2 junk
>
> # This converts the last 3 columns to NAs and drops them:
>
> str(nF1.1 <- asNumericChar(fakeF1$yr))
num [1:2] 1948 1947
> str(nF1.2 <- asNumericChar(fakeF1$q1))
num [1:2] 1234 NA
> str(nF1.3 <- asNumericChar(fakeF1$duh))
logi [1:2] NA NA
> (nF1.4 <- asNumericChar('1969-12-31 18:00:01',
+ class.='POSIXct'))
[1] "1969-12-31 06:00:01 UTC"
>
> (nF1 <- asNumericDF(fakeF1))
Warning in asNumericDF(fakeF1) :
NAs introduced by coercion in asNumericChar(q1[2])
Warning in asNumericDF(fakeF1) :
NAs introduced by coercion in asNumericChar(dol[2])
Warning in asNumericDF(fakeF1) :
NAs introduced by coercion in asNumericChar(xDate[c(1, 2)])
Warning in asNumericDF(fakeF1) :
NAs introduced by coercion in asNumericChar(xPOSIX[c(1, 2)])
Warning in asNumericDF(fakeF1) :
NAs introduced by coercion in asNumericChar(junk[c(1, 2)])
yr q1 dol pct xMSdate
1 1948 1234 1234 0.01 2
2 1947 NA NA 0.02 3
> (nF2 <- asNumericDF(fakeF1, Dates=6,
+ MSdate='xMSdate',
+ ignore=c('junk', 'xPOSIX'),
+ format.='%Y-%m-%d'))
Warning in asNumericDF(fakeF1, Dates = 6, MSdate = "xMSdate", ignore = c("junk", :
NAs introduced by coercion in asNumericChar(q1[2])
Warning in asNumericDF(fakeF1, Dates = 6, MSdate = "xMSdate", ignore = c("junk", :
NAs introduced by coercion in asNumericChar(dol[2])
yr q1 dol pct xDate xPOSIX xMSdate junk
1 1948 1234 1234 0.01 1970-01-01 1970-01-01 00:00:01 1900-01-02 this is
2 1947 NA NA 0.02 1971-01-01 1971-01-01 00:01:39 1900-01-03 junk
> # check
> nF1. <- data.frame(yr=
+ asNumericChar(fakeF1$yr),
+ q1=asNumericChar(fakeF1$q1),
+ dol=asNumericChar(fakeF1$dol),
+ pct=c(.01, .02), xMSdate=2:3)
>
> nF1c <- data.frame(yr=1948:1947,
+ q1=c(1234, NA), dol=c(1234, NA),
+ pct=c(.01, .02), xMSdate=2:3)
>
> ## Don't show:
> stopifnot(
+ ## End(Don't show)
+ all.equal(nF1, nF1.)
+ ## Don't show:
+ )
> ## End(Don't show)
> ## Don't show:
> stopifnot(
+ ## End(Don't show)
+ all.equal(nF1., nF1c)
+ ## Don't show:
+ )
> ## End(Don't show)
>
> ##
> ## 2. as.Date default example
> ##
> xD <- asNumericChar(
+ as.character(xDate), class.='Date')
> ## Don't show:
> stopifnot(
+ ## End(Don't show)
+ all.equal(xDate, xD)
+ ## Don't show:
+ )
> ## End(Don't show)
>
> ##
> ## 3. as.POSIXct default example
> ##
> xPOSIX
[1] "1970-01-01 00:00:01 UTC" "1971-01-01 00:01:39 UTC"
> (xPOSIXch <- as.character(xPOSIX))
[1] "1970-01-01 00:00:01" "1971-01-01 00:01:39"
> (xP <- asNumericChar(xPOSIXch, class.='POSIXct'))
[1] "1969-12-31 12:00:01 UTC" "1970-12-31 12:01:39 UTC"
> attr(xPOSIX, 'tzone')
[1] "UTC"
> attr(xP, 'tzone')
[1] "UTC"
> # R-Devel after 4.2.1 breaks earlier code; fix
> if(is.null(attr(xPOSIX, 'tzone')))
+ attr(xPOSIX, 'tzone') <- attr(xP, 'tzone')
> (dP <- difftime(xPOSIX, xP, units='secs'))
Time differences in secs
[1] 43200 43200
> (madP <- max(abs(as.numeric(dP))))
[1] 43200
> ## Don't show:
> stopifnot(
+ ## End(Don't show)
+ {
+ #all.equal(xPOSIX, xP)
+ # As of 2022-10-06 I don't know how to write code
+ # that will get a consistent answer with
+ # different version R-devel with differences
+ # less than an hour
+ if(madP>3600){
+ stop('Discrepancy betw fn and manual comp ',
+ 'too large.')
+ }
+ TRUE
+ }
+ ## Don't show:
+ )
Error in stopifnot({ : Discrepancy betw fn and manual comp too large.
Execution halted
Flavors: r-release-macos-arm64, r-oldrel-macos-arm64
Version: 0.3-2
Check: examples
Result: ERROR
Running examples in ‘Ecfun-Ex.R’ failed
The error most likely occurred in:
> ### Name: asNumericDF
> ### Title: Coerce to numeric dropping commas and info after a blank
> ### Aliases: asNumericChar asNumericDF
> ### Keywords: manip
>
> ### ** Examples
>
> ##
> ## 1. an example
> ##
> (xDate <- as.Date('1970-01-01')+c(0, 365))
[1] "1970-01-01" "1971-01-01"
> (xPOSIX <- as.POSIXct(xDate)+c(1, 99))
[1] "1970-01-01 00:00:01 UTC" "1971-01-01 00:01:39 UTC"
> xMSdate <- as.Date(1,
+ as.Date('1899-12-31'))+1:2
> (fakeF1 <- data.frame(yr=c('1948',
+ '1947 (1)'),
+ q1=c(' 1,234 ', ''), duh=rep(NA, 2),
+ dol=c('$1,234', ''),
+ pct=c('1%', '2%'),
+ xDate=as.character(xDate,
+ format='%Y-%m-%d'),
+ xPOSIX=as.character(xPOSIX,
+ format='%Y-%m-%d %H:%M:%S'),
+ xMSdate=2:3, junk=c('this is',
+ 'junk')))
Warning in as.character.POSIXt(as.POSIXlt(x), ...) :
as.character(td, ..) no longer obeys a 'format' argument; use format(td, ..) ?
Warning in as.character.POSIXt(xPOSIX, format = "%Y-%m-%d %H:%M:%S") :
as.character(td, ..) no longer obeys a 'format' argument; use format(td, ..) ?
yr q1 duh dol pct xDate xPOSIX xMSdate
1 1948 1,234 NA $1,234 1% 1970-01-01 1970-01-01 00:00:01 2
2 1947 (1) NA 2% 1971-01-01 1971-01-01 00:01:39 3
junk
1 this is
2 junk
>
> # This converts the last 3 columns to NAs and drops them:
>
> str(nF1.1 <- asNumericChar(fakeF1$yr))
num [1:2] 1948 1947
> str(nF1.2 <- asNumericChar(fakeF1$q1))
num [1:2] 1234 NA
> str(nF1.3 <- asNumericChar(fakeF1$duh))
logi [1:2] NA NA
> (nF1.4 <- asNumericChar('1969-12-31 18:00:01',
+ class.='POSIXct'))
[1] "1969-12-31 23:00:01 UTC"
>
> (nF1 <- asNumericDF(fakeF1))
Warning in asNumericDF(fakeF1) :
NAs introduced by coercion in asNumericChar(q1[2])
Warning in asNumericDF(fakeF1) :
NAs introduced by coercion in asNumericChar(dol[2])
Warning in asNumericDF(fakeF1) :
NAs introduced by coercion in asNumericChar(xDate[c(1, 2)])
Warning in asNumericDF(fakeF1) :
NAs introduced by coercion in asNumericChar(xPOSIX[c(1, 2)])
Warning in asNumericDF(fakeF1) :
NAs introduced by coercion in asNumericChar(junk[c(1, 2)])
yr q1 dol pct xMSdate
1 1948 1234 1234 0.01 2
2 1947 NA NA 0.02 3
> (nF2 <- asNumericDF(fakeF1, Dates=6,
+ MSdate='xMSdate',
+ ignore=c('junk', 'xPOSIX'),
+ format.='%Y-%m-%d'))
Warning in asNumericDF(fakeF1, Dates = 6, MSdate = "xMSdate", ignore = c("junk", :
NAs introduced by coercion in asNumericChar(q1[2])
Warning in asNumericDF(fakeF1, Dates = 6, MSdate = "xMSdate", ignore = c("junk", :
NAs introduced by coercion in asNumericChar(dol[2])
yr q1 dol pct xDate xPOSIX xMSdate junk
1 1948 1234 1234 0.01 1970-01-01 1970-01-01 00:00:01 1900-01-02 this is
2 1947 NA NA 0.02 1971-01-01 1971-01-01 00:01:39 1900-01-03 junk
> # check
> nF1. <- data.frame(yr=
+ asNumericChar(fakeF1$yr),
+ q1=asNumericChar(fakeF1$q1),
+ dol=asNumericChar(fakeF1$dol),
+ pct=c(.01, .02), xMSdate=2:3)
>
> nF1c <- data.frame(yr=1948:1947,
+ q1=c(1234, NA), dol=c(1234, NA),
+ pct=c(.01, .02), xMSdate=2:3)
>
> ## Don't show:
> stopifnot(
+ ## End(Don't show)
+ all.equal(nF1, nF1.)
+ ## Don't show:
+ )
> ## End(Don't show)
> ## Don't show:
> stopifnot(
+ ## End(Don't show)
+ all.equal(nF1., nF1c)
+ ## Don't show:
+ )
> ## End(Don't show)
>
> ##
> ## 2. as.Date default example
> ##
> xD <- asNumericChar(
+ as.character(xDate), class.='Date')
> ## Don't show:
> stopifnot(
+ ## End(Don't show)
+ all.equal(xDate, xD)
+ ## Don't show:
+ )
> ## End(Don't show)
>
> ##
> ## 3. as.POSIXct default example
> ##
> xPOSIX
[1] "1970-01-01 00:00:01 UTC" "1971-01-01 00:01:39 UTC"
> (xPOSIXch <- as.character(xPOSIX))
[1] "1970-01-01 00:00:01" "1971-01-01 00:01:39"
> (xP <- asNumericChar(xPOSIXch, class.='POSIXct'))
[1] "1970-01-01 05:00:01 UTC" "1971-01-01 05:01:39 UTC"
> attr(xPOSIX, 'tzone')
[1] "UTC"
> attr(xP, 'tzone')
[1] "UTC"
> # R-Devel after 4.2.1 breaks earlier code; fix
> if(is.null(attr(xPOSIX, 'tzone')))
+ attr(xPOSIX, 'tzone') <- attr(xP, 'tzone')
> (dP <- difftime(xPOSIX, xP, units='secs'))
Time differences in secs
[1] -18000 -18000
> (madP <- max(abs(as.numeric(dP))))
[1] 18000
> ## Don't show:
> stopifnot(
+ ## End(Don't show)
+ {
+ #all.equal(xPOSIX, xP)
+ # As of 2022-10-06 I don't know how to write code
+ # that will get a consistent answer with
+ # different version R-devel with differences
+ # less than an hour
+ if(madP>3600){
+ stop('Discrepancy betw fn and manual comp ',
+ 'too large.')
+ }
+ TRUE
+ }
+ ## Don't show:
+ )
Error in stopifnot({ : Discrepancy betw fn and manual comp too large.
Execution halted
Flavor: r-oldrel-macos-x86_64
These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.
Health stats visible at Monitor.