Last updated on 2026-03-21 21:53:36 CET.
| Package | ERROR | OK |
|---|---|---|
| eks | 1 | 13 |
| feature | 14 | |
| ks | 14 | |
| prim | 14 |
Current CRAN status: ERROR: 1, OK: 13
Version: 1.1.2
Check: examples
Result: ERROR
Running examples in 'eks-Ex.R' failed
The error most likely occurred in:
> ### Name: tidyst_kms
> ### Title: Tidy and geospatial kernel mean shift clustering
> ### Aliases: tidy_kms st_kms
> ### Keywords: smooth
>
> ### ** Examples
>
> ## tidy 2-d mean shift clustering
> library(ggplot2)
> data(crabs, package="MASS")
> crabs2 <- dplyr::select(crabs, FL, CW)
> t1 <- tidy_kms(crabs2)
> ## convex hulls of clusters
> t2 <- dplyr::group_by(t1, label)
> t2 <- dplyr::slice(t2, chull(FL,CW))
>
> gt <- ggplot(t1, aes(x=FL, y=CW))
> gt + geom_point(aes(colour=label)) +
+ geom_polygon(data=t2, aes(fill=label), alpha=0.1, col=1, linetype="dotted")
>
> ## geospatial mean shift clustering
> data(wa)
> data(grevilleasf)
> hakeoides <- dplyr::filter(grevilleasf, species=="hakeoides")
> s1 <- st_kms(hakeoides)
> ## convex hulls of clusters
> s2 <- dplyr::group_by(s1$sf, label)
> s2 <- dplyr::summarise(s2, geometry=sf::st_combine(geometry))
> s2 <- sf::st_convex_hull(s2)
>
> ## base R plot
> xlim <- c(1.2e5, 1.1e6); ylim <- c(6.1e6, 7.2e6)
> plot(wa, xlim=xlim, ylim=ylim)
> plot(s1, add=TRUE, pch=16)
> plot(s2, add=TRUE, lty=3, pal=function(.){
+ colorspace::qualitative_hcl(n=., palette="Set2", alpha=0.15)})
>
> ## geom_sf plot
> gs <- ggplot(s1) + geom_sf(data=wa, fill=NA) + ggthemes::theme_map()
> gs + geom_sf(data=s1$sf, aes(colour=label), alpha=0.5) +
+ geom_sf(data=s2, aes(fill=label), linetype="dotted", alpha=0.15) +
+ coord_sf(xlim=xlim, ylim=ylim)
Flavor: r-devel-windows-x86_64
Current CRAN status: OK: 14
Current CRAN status: OK: 14
Current CRAN status: OK: 14