Nothing
#' Generate Random Vector of Areas
#'
#' Generate a random vector of areas ("Suburban", "Urban", "Rural").
#'
#' @inheritParams r_sample_factor
#' @return Returns a random vector of area status elements.
#' @keywords area
#' @export
#' @include utils.R r_sample.R
#' @family variable functions
#' @examples
#' area(10)
#' barplot(table(area(10000)))
area <- hijack(r_sample_factor,
name = "Area",
x = c("Suburban", "Urban", "Rural")
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.