Last updated on 2020-02-19 14:48:20 CET.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 1.9-2 | 5.10 | 23.67 | 28.77 | ERROR | |
| r-devel-linux-x86_64-debian-gcc | 1.9-2 | 3.63 | 18.89 | 22.52 | ERROR | |
| r-devel-linux-x86_64-fedora-clang | 1.9-2 | 41.18 | ERROR | |||
| r-devel-linux-x86_64-fedora-gcc | 1.9-2 | 34.09 | ERROR | |||
| r-devel-windows-ix86+x86_64 | 1.9-2 | 14.00 | 41.00 | 55.00 | NOTE | |
| r-devel-windows-ix86+x86_64-gcc8 | 1.9-2 | 22.00 | 66.00 | 88.00 | NOTE | |
| r-patched-linux-x86_64 | 1.9-2 | 3.65 | 21.79 | 25.44 | NOTE | |
| r-patched-solaris-x86 | 1.9-2 | 47.40 | NOTE | |||
| r-release-linux-x86_64 | 1.9-2 | 3.23 | 21.95 | 25.18 | NOTE | |
| r-release-windows-ix86+x86_64 | 1.9-2 | 10.00 | 47.00 | 57.00 | NOTE | |
| r-release-osx-x86_64 | 1.9-2 | NOTE | ||||
| r-oldrel-windows-ix86+x86_64 | 1.9-2 | 10.00 | 44.00 | 54.00 | NOTE | |
| r-oldrel-osx-x86_64 | 1.9-2 | NOTE |
Version: 1.9-2
Check: R code for possible problems
Result: NOTE
plot.topics: no visible global function definition for 'hist'
plot.topics: no visible global function definition for 'grey'
plot.topics: no visible global function definition for 'plot'
plot.topics: no visible global function definition for 'par'
plot.topics: no visible global function definition for 'image'
plot.topics: no visible global function definition for 'axis'
plot.topics: no visible global function definition for 'points'
plot.topics: no visible global function definition for 'text'
rdir: no visible global function definition for 'rgamma'
summary.topics: no visible global function definition for 'pchisq'
tpxResids: no visible global function definition for 'pchisq'
Undefined global functions or variables:
axis grey hist image par pchisq plot points rgamma text
Consider adding
importFrom("grDevices", "grey")
importFrom("graphics", "axis", "hist", "image", "par", "plot",
"points", "text")
importFrom("stats", "pchisq", "rgamma")
to your NAMESPACE file.
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-ix86+x86_64, r-devel-windows-ix86+x86_64-gcc8, r-patched-linux-x86_64, r-patched-solaris-x86, r-release-linux-x86_64, r-release-windows-ix86+x86_64, r-release-osx-x86_64, r-oldrel-windows-ix86+x86_64, r-oldrel-osx-x86_64
Version: 1.9-2
Check: examples
Result: ERROR
Running examples in 'maptpx-Ex.R' failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: predict.topics
> ### Title: topic predict
> ### Aliases: predict.topics
>
> ### ** Examples
>
>
> ## Simulate some data
> omega <- t(rdir(500, rep(1/10,10)))
> theta <- rdir(10, rep(1/1000,1000))
> Q <- omega%*%t(theta)
> counts <- matrix(ncol=1000, nrow=500)
> totals <- rpois(500, 200)
> for(i in 1:500){ counts[i,] <- rmultinom(1, size=totals[i], prob=Q[i,]) }
>
> ## predict omega given theta
> W <- predict.topics( theta, counts )
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
maptpx
--- call from context ---
predict.topics(theta, counts)
--- call from argument ---
if (!(class(object) %in% c("topics", "matrix"))) {
stop("object class must be `topics' or 'matrix'.")
}
--- R stacktrace ---
where 1: predict.topics(theta, counts)
--- value of length: 2 type: logical ---
[1] FALSE TRUE
--- function from context ---
function (object, newcounts, loglhd = FALSE, ...)
{
if (is.vector(newcounts)) {
newcounts <- matrix(newcounts, nrow = 1)
}
if (class(newcounts)[1] == "TermDocumentMatrix") {
newcounts <- t(newcounts)
}
X <- as.simple_triplet_matrix(newcounts)
if (!(class(object) %in% c("topics", "matrix"))) {
stop("object class must be `topics' or 'matrix'.")
}
if (class(object) == "topics") {
theta <- object$theta
if (nrow(theta) != ncol(X)) {
stop("Dimension mismatch: nrow(theta) != ncol(X)")
}
if (nrow(object$X) != nrow(object$omega)) {
Q <- matrix(tpxMixQ(X, omega = object$omega, theta = theta,
...)$lQ, ncol = ncol(theta))
return((1:ncol(theta))[apply(Q, 1, which.max)])
}
}
else {
theta <- object
}
start <- tpxOmegaStart(X = X, theta = theta)
doc <- c(0, cumsum(as.double(table(factor(X$i, levels = c(1:nrow(X)))))))
xvo <- X$v[order(X$i)]
wrd <- X$j[order(X$i)] - 1
W <- tpxweights(n = nrow(X), p = ncol(X), xvo = xvo, wrd = wrd,
doc = doc, start = start, theta = theta, ...)
if (loglhd) {
L <- sum(X$v * log(tpxQ(theta = theta, omega = W, doc = X$i,
wrd = X$j)))
return(list(W = W, L = L))
}
else {
return(W)
}
}
<bytecode: 0x3b5a268>
<environment: namespace:maptpx>
--- function search by body ---
Function predict.topics in namespace maptpx has this body.
----------- END OF FAILURE REPORT --------------
Error in if (!(class(object) %in% c("topics", "matrix"))) { :
the condition has length > 1
Calls: predict.topics
Execution halted
Flavor: r-devel-linux-x86_64-debian-clang
Version: 1.9-2
Check: examples
Result: ERROR
Running examples in ‘maptpx-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: predict.topics
> ### Title: topic predict
> ### Aliases: predict.topics
>
> ### ** Examples
>
>
> ## Simulate some data
> omega <- t(rdir(500, rep(1/10,10)))
> theta <- rdir(10, rep(1/1000,1000))
> Q <- omega%*%t(theta)
> counts <- matrix(ncol=1000, nrow=500)
> totals <- rpois(500, 200)
> for(i in 1:500){ counts[i,] <- rmultinom(1, size=totals[i], prob=Q[i,]) }
>
> ## predict omega given theta
> W <- predict.topics( theta, counts )
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
maptpx
--- call from context ---
predict.topics(theta, counts)
--- call from argument ---
if (!(class(object) %in% c("topics", "matrix"))) {
stop("object class must be `topics' or 'matrix'.")
}
--- R stacktrace ---
where 1: predict.topics(theta, counts)
--- value of length: 2 type: logical ---
[1] FALSE TRUE
--- function from context ---
function (object, newcounts, loglhd = FALSE, ...)
{
if (is.vector(newcounts)) {
newcounts <- matrix(newcounts, nrow = 1)
}
if (class(newcounts)[1] == "TermDocumentMatrix") {
newcounts <- t(newcounts)
}
X <- as.simple_triplet_matrix(newcounts)
if (!(class(object) %in% c("topics", "matrix"))) {
stop("object class must be `topics' or 'matrix'.")
}
if (class(object) == "topics") {
theta <- object$theta
if (nrow(theta) != ncol(X)) {
stop("Dimension mismatch: nrow(theta) != ncol(X)")
}
if (nrow(object$X) != nrow(object$omega)) {
Q <- matrix(tpxMixQ(X, omega = object$omega, theta = theta,
...)$lQ, ncol = ncol(theta))
return((1:ncol(theta))[apply(Q, 1, which.max)])
}
}
else {
theta <- object
}
start <- tpxOmegaStart(X = X, theta = theta)
doc <- c(0, cumsum(as.double(table(factor(X$i, levels = c(1:nrow(X)))))))
xvo <- X$v[order(X$i)]
wrd <- X$j[order(X$i)] - 1
W <- tpxweights(n = nrow(X), p = ncol(X), xvo = xvo, wrd = wrd,
doc = doc, start = start, theta = theta, ...)
if (loglhd) {
L <- sum(X$v * log(tpxQ(theta = theta, omega = W, doc = X$i,
wrd = X$j)))
return(list(W = W, L = L))
}
else {
return(W)
}
}
<bytecode: 0x557b5a427738>
<environment: namespace:maptpx>
--- function search by body ---
Function predict.topics in namespace maptpx has this body.
----------- END OF FAILURE REPORT --------------
Error in if (!(class(object) %in% c("topics", "matrix"))) { :
the condition has length > 1
Calls: predict.topics
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 1.9-2
Check: compiled code
Result: NOTE
File ‘maptpx/libs/maptpx.so’:
Found no calls to: ‘R_registerRoutines’, ‘R_useDynamicSymbols’
It is good practice to register native routines and to disable symbol
search.
See ‘Writing portable packages’ in the ‘Writing R Extensions’ manual.
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Version: 1.9-2
Check: examples
Result: ERROR
Running examples in ‘maptpx-Ex.R’ failed
The error most likely occurred in:
> ### Name: predict.topics
> ### Title: topic predict
> ### Aliases: predict.topics
>
> ### ** Examples
>
>
> ## Simulate some data
> omega <- t(rdir(500, rep(1/10,10)))
> theta <- rdir(10, rep(1/1000,1000))
> Q <- omega%*%t(theta)
> counts <- matrix(ncol=1000, nrow=500)
> totals <- rpois(500, 200)
> for(i in 1:500){ counts[i,] <- rmultinom(1, size=totals[i], prob=Q[i,]) }
>
> ## predict omega given theta
> W <- predict.topics( theta, counts )
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
maptpx
--- call from context ---
predict.topics(theta, counts)
--- call from argument ---
if (!(class(object) %in% c("topics", "matrix"))) {
stop("object class must be `topics' or 'matrix'.")
}
--- R stacktrace ---
where 1: predict.topics(theta, counts)
--- value of length: 2 type: logical ---
[1] FALSE TRUE
--- function from context ---
function (object, newcounts, loglhd = FALSE, ...)
{
if (is.vector(newcounts)) {
newcounts <- matrix(newcounts, nrow = 1)
}
if (class(newcounts)[1] == "TermDocumentMatrix") {
newcounts <- t(newcounts)
}
X <- as.simple_triplet_matrix(newcounts)
if (!(class(object) %in% c("topics", "matrix"))) {
stop("object class must be `topics' or 'matrix'.")
}
if (class(object) == "topics") {
theta <- object$theta
if (nrow(theta) != ncol(X)) {
stop("Dimension mismatch: nrow(theta) != ncol(X)")
}
if (nrow(object$X) != nrow(object$omega)) {
Q <- matrix(tpxMixQ(X, omega = object$omega, theta = theta,
...)$lQ, ncol = ncol(theta))
return((1:ncol(theta))[apply(Q, 1, which.max)])
}
}
else {
theta <- object
}
start <- tpxOmegaStart(X = X, theta = theta)
doc <- c(0, cumsum(as.double(table(factor(X$i, levels = c(1:nrow(X)))))))
xvo <- X$v[order(X$i)]
wrd <- X$j[order(X$i)] - 1
W <- tpxweights(n = nrow(X), p = ncol(X), xvo = xvo, wrd = wrd,
doc = doc, start = start, theta = theta, ...)
if (loglhd) {
L <- sum(X$v * log(tpxQ(theta = theta, omega = W, doc = X$i,
wrd = X$j)))
return(list(W = W, L = L))
}
else {
return(W)
}
}
<bytecode: 0x34e36e0>
<environment: namespace:maptpx>
--- function search by body ---
Function predict.topics in namespace maptpx has this body.
----------- END OF FAILURE REPORT --------------
Error in if (!(class(object) %in% c("topics", "matrix"))) { :
the condition has length > 1
Calls: predict.topics
Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 1.9-2
Check: examples
Result: ERROR
Running examples in ‘maptpx-Ex.R’ failed
The error most likely occurred in:
> ### Name: predict.topics
> ### Title: topic predict
> ### Aliases: predict.topics
>
> ### ** Examples
>
>
> ## Simulate some data
> omega <- t(rdir(500, rep(1/10,10)))
> theta <- rdir(10, rep(1/1000,1000))
> Q <- omega%*%t(theta)
> counts <- matrix(ncol=1000, nrow=500)
> totals <- rpois(500, 200)
> for(i in 1:500){ counts[i,] <- rmultinom(1, size=totals[i], prob=Q[i,]) }
>
> ## predict omega given theta
> W <- predict.topics( theta, counts )
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
maptpx
--- call from context ---
predict.topics(theta, counts)
--- call from argument ---
if (!(class(object) %in% c("topics", "matrix"))) {
stop("object class must be `topics' or 'matrix'.")
}
--- R stacktrace ---
where 1: predict.topics(theta, counts)
--- value of length: 2 type: logical ---
[1] FALSE TRUE
--- function from context ---
function (object, newcounts, loglhd = FALSE, ...)
{
if (is.vector(newcounts)) {
newcounts <- matrix(newcounts, nrow = 1)
}
if (class(newcounts)[1] == "TermDocumentMatrix") {
newcounts <- t(newcounts)
}
X <- as.simple_triplet_matrix(newcounts)
if (!(class(object) %in% c("topics", "matrix"))) {
stop("object class must be `topics' or 'matrix'.")
}
if (class(object) == "topics") {
theta <- object$theta
if (nrow(theta) != ncol(X)) {
stop("Dimension mismatch: nrow(theta) != ncol(X)")
}
if (nrow(object$X) != nrow(object$omega)) {
Q <- matrix(tpxMixQ(X, omega = object$omega, theta = theta,
...)$lQ, ncol = ncol(theta))
return((1:ncol(theta))[apply(Q, 1, which.max)])
}
}
else {
theta <- object
}
start <- tpxOmegaStart(X = X, theta = theta)
doc <- c(0, cumsum(as.double(table(factor(X$i, levels = c(1:nrow(X)))))))
xvo <- X$v[order(X$i)]
wrd <- X$j[order(X$i)] - 1
W <- tpxweights(n = nrow(X), p = ncol(X), xvo = xvo, wrd = wrd,
doc = doc, start = start, theta = theta, ...)
if (loglhd) {
L <- sum(X$v * log(tpxQ(theta = theta, omega = W, doc = X$i,
wrd = X$j)))
return(list(W = W, L = L))
}
else {
return(W)
}
}
<bytecode: 0x2d50268>
<environment: namespace:maptpx>
--- function search by body ---
Function predict.topics in namespace maptpx has this body.
----------- END OF FAILURE REPORT --------------
Error in if (!(class(object) %in% c("topics", "matrix"))) { :
the condition has length > 1
Calls: predict.topics
Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc