R/wp.R

In pablorcw/pwind: Package for wind energy

#' wp
#'
#' Wind profile calculates wind speed at a height with the power law exponent
#' with a given coefficient alpha
#'
#' @param Vhub wind speed at hub height of wind turbine
#' @param zhub hub height of wind turbine
#' @param z height at which wind speed is calculated
#' @param alpha
#'
#' @return Function returns wind speed value at a given height
#' @export
#'
#' @examples
#' wp(Vhub = 10, zhub = 80, z = 120, alpha = 0.3)
#' wp(5.5, 80, 100, 0.3)

wp <- function(Vhub = 10, zhub = 80, z = 120, alpha = 0.3) {
  V <- Vhub*(z/zhub)^alpha
  V
}