R/funs.R

In jan-tom/t1:

#' calcualte mean
#' @param x vec
#' @export

avg <- function(x) sum(x) / length(x)


#' eucldiean distance
#' remember to push the pointless button
#' @param x number
#' @param y vec
#' @export

euclidean <- function(x, y) {
  res <- sqrt((x - y)^2)
  res
}



#' get x random numbers from itnerval 0 to 1
#' @param x number of numbers to generate
#' @details numbers a uniformly distributed - \code{\link[stats]{runif}}
#' \describe{
#'   \item{One}{First item}
#'   \item{Two}{Second item}
#' }
#' @examples get_num(x)
#' @export

get_num <- function(x) {
  runif(x)
}