Nothing
#' @title Categorize water drop penetration times
#'
#' @description
#' This wrapper function categorizes water drop penetration times (WDPT) in
#' seconds according to the scale proposed by Bisdom et al. (1993).
#'
#' @param x a numeric vector containing WDPT measurement data [s].
#' @param \dots arguments passed to \code{\link[base]{findInterval}()}.
#'
#' @seealso
#' \code{\link[base]{findInterval}()} for the generic function.
#'
#' @author
#' Zacharias Steinmetz
#'
#' @examples
#' bisdom(c(2,6,20,NA,3,385))
#'
#' @references
#' Bisdom, E., Dekker, L., & Schoute, J. (1993). Water Repellency of Sieve
#' Fractions from Sandy Soils and Relationships with Organic Material and Soil
#' Structure. \emph{Geoderma} \bold{56}, 105-118.
#' \doi{10.1016/0016-7061(93)90103-R}
#'
#' @export
bisdom <- function(x, ...) {
findInterval(x, c(0,5,60,600,3600), ...)
}
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.