R/nwp.R

In pablorcw/pwind: Package for wind energy

#' nwp
#'
#' Normal wind profile calculats wind speed at a height with the power law exponent,
#' the coefficient alpha, shall be assumed to be 0.2
#'
#' @param Vhub wind speed at hb height of wind turbine
#' @param zhub hub height of wind turbine
#' @param z height at which wind speed is calculated
#'
#' @return Function returns wind speed value at a given height
#' @export
#'
#' @examples
#' nwp(Vhub = 10, zhub = 80, z = 120)
#' nwp(5.5, 80, 100)

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