#' Investigate possible concatenation
#'
#' @param df \code{ntdf} created dataframe
#' @param ... Other keyword arguments
#' @return Frequncy table of each neighborhood type
#' @export
ntcheck <- function(df, ...)
df %>% dplyr::group_by(NeighType) %>% dplyr::count() %>% dplyr::arrange(dplyr::desc(n)) %>% data.frame()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.