if (FALSE) { # (identical(Sys.getenv("IN_PKGDOWN"), "true") || interactive())
# \donttest{
data(img_A) # load example image from the package
result <- cog_potential(img_A)
draw_potential(result, show_cog = TRUE)
# }
}
Run the code above in your browser using DataLab