Last updated on 2025-09-06 03:49:52 CEST.
Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
---|---|---|---|---|---|---|
r-devel-linux-x86_64-debian-clang | 0.2-9 | 3.32 | 66.05 | 69.37 | ERROR | |
r-devel-linux-x86_64-debian-gcc | 0.2-9 | 3.00 | 48.18 | 51.18 | OK | |
r-devel-linux-x86_64-fedora-clang | 0.2-9 | 106.01 | OK | |||
r-devel-linux-x86_64-fedora-gcc | 0.2-9 | 114.67 | OK | |||
r-devel-windows-x86_64 | 0.2-9 | 10.00 | 104.00 | 114.00 | ERROR | |
r-patched-linux-x86_64 | 0.2-9 | 4.39 | 63.39 | 67.78 | OK | |
r-release-linux-x86_64 | 0.2-9 | 3.35 | 63.01 | 66.36 | OK | |
r-release-macos-arm64 | 0.2-9 | 48.00 | OK | |||
r-release-macos-x86_64 | 0.2-9 | 93.00 | OK | |||
r-release-windows-x86_64 | 0.2-9 | 9.00 | 106.00 | 115.00 | OK | |
r-oldrel-macos-arm64 | 0.2-9 | 210.00 | OK | |||
r-oldrel-macos-x86_64 | 0.2-9 | 290.00 | OK | |||
r-oldrel-windows-x86_64 | 0.2-9 | 11.00 | 116.00 | 127.00 | OK |
Version: 0.2-9
Check: examples
Result: ERROR
Running examples in ‘movMF-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: FLXMCvMF
> ### Title: Flexmix Driver for Mixtures of von Mises-Fisher Distributions
> ### Aliases: FLXMCvMF
> ### Keywords: cluster
>
> ### ** Examples
>
> if (requireNamespace("flexmix", quietly = TRUE)) {
+ ## Generate and fit a "small-mix" data set a la Banerjee et al.
+ mu <- rbind(c(-0.251, -0.968),
+ c(0.399, 0.917))
+ kappa <- c(4, 4)
+ theta <- kappa * mu
+ theta
+ alpha <- c(0.48, 0.52)
+ ## Generate a sample of size n = 50 from the von Mises-Fisher mixture
+ ## with the above parameters.
+ set.seed(123)
+ x <- rmovMF(50, theta, alpha)
+ ## Fit a von Mises-Fisher mixture with the "right" number of components,
+ ## using 10 EM runs.
+ set.seed(123)
+ y2 <- flexmix::stepFlexmix(x ~ 1, k = 2, model = FLXMCvMF(), verbose = FALSE)
+ ## Inspect the fitted parameters:
+ y2
+ ## Compare the fitted classes to the true ones:
+ table(True = attr(x, "z"), Fitted = flexmix::clusters(y2))
+ ## To use a common kappa:
+ y2cv <- flexmix::stepFlexmix(x ~ 1, k = 2,
+ model = FLXMCvMF(kappa = list(common = TRUE)), verbose = FALSE)
+ ## To use a common kappa fixed to the true value of 4:
+ y2cf <- flexmix::stepFlexmix(x ~ 1, k = 2,
+ model = FLXMCvMF(kappa = 4), verbose = FALSE)
+ ## Comparing solutions via BIC:
+ sapply(list(y2, y2cf, y2cv), BIC)
+ ## Use a different kappa solver:
+ set.seed(123)
+ y2a <- flexmix::stepFlexmix(x ~ 1, k = 2,
+ model = FLXMCvMF(kappa = "uniroot"), verbose = FALSE)
+ y2a
+ ## Using a sparse matrix:
+ x <- slam::as.simple_triplet_matrix(x)
+ y2 <- flexmix::stepFlexmix(x ~ 1, k = 2,
+ model = FLXMCvMF(), verbose = FALSE)
+ }
Error in UseMethod("logLik") :
no applicable method for 'logLik' applied to an object of class "c('flexmix', 'FLXdist')"
Calls: sapply -> lapply -> FUN -> BIC.default -> ll
Execution halted
Flavor: r-devel-linux-x86_64-debian-clang
Version: 0.2-9
Check: examples
Result: ERROR
Running examples in 'movMF-Ex.R' failed
The error most likely occurred in:
> ### Name: FLXMCvMF
> ### Title: Flexmix Driver for Mixtures of von Mises-Fisher Distributions
> ### Aliases: FLXMCvMF
> ### Keywords: cluster
>
> ### ** Examples
>
> if (requireNamespace("flexmix", quietly = TRUE)) {
+ ## Generate and fit a "small-mix" data set a la Banerjee et al.
+ mu <- rbind(c(-0.251, -0.968),
+ c(0.399, 0.917))
+ kappa <- c(4, 4)
+ theta <- kappa * mu
+ theta
+ alpha <- c(0.48, 0.52)
+ ## Generate a sample of size n = 50 from the von Mises-Fisher mixture
+ ## with the above parameters.
+ set.seed(123)
+ x <- rmovMF(50, theta, alpha)
+ ## Fit a von Mises-Fisher mixture with the "right" number of components,
+ ## using 10 EM runs.
+ set.seed(123)
+ y2 <- flexmix::stepFlexmix(x ~ 1, k = 2, model = FLXMCvMF(), verbose = FALSE)
+ ## Inspect the fitted parameters:
+ y2
+ ## Compare the fitted classes to the true ones:
+ table(True = attr(x, "z"), Fitted = flexmix::clusters(y2))
+ ## To use a common kappa:
+ y2cv <- flexmix::stepFlexmix(x ~ 1, k = 2,
+ model = FLXMCvMF(kappa = list(common = TRUE)), verbose = FALSE)
+ ## To use a common kappa fixed to the true value of 4:
+ y2cf <- flexmix::stepFlexmix(x ~ 1, k = 2,
+ model = FLXMCvMF(kappa = 4), verbose = FALSE)
+ ## Comparing solutions via BIC:
+ sapply(list(y2, y2cf, y2cv), BIC)
+ ## Use a different kappa solver:
+ set.seed(123)
+ y2a <- flexmix::stepFlexmix(x ~ 1, k = 2,
+ model = FLXMCvMF(kappa = "uniroot"), verbose = FALSE)
+ y2a
+ ## Using a sparse matrix:
+ x <- slam::as.simple_triplet_matrix(x)
+ y2 <- flexmix::stepFlexmix(x ~ 1, k = 2,
+ model = FLXMCvMF(), verbose = FALSE)
+ }
Error in UseMethod("logLik") :
no applicable method for 'logLik' applied to an object of class "c('flexmix', 'FLXdist')"
Calls: sapply -> lapply -> FUN -> BIC.default -> ll
Execution halted
Flavor: r-devel-windows-x86_64