gistfile1.txt

#' Obtain the fractional part of a numeric
#'
#' Takes a numeric vector and returns a vector of the numbers after the decimal
#' place
#'
#' @param vec A numeric vector of any length
#' @return A vector of the same length as the input vec containing only the decimal component.
#' @examples
#' x <- runif(100)
#' fpart(x)
#'
fpart = function(vec) {
	ret = vec - as.integer(vec)
	ret
}