R/ITed2.R

In pablorcw/pwind: Package for wind energy

#' ITed2
#'
#' Turbulence intensity according to IEC 61400-1 Ed.2 1999
#'
#' IEC 61400-1 Wind turbine generator systems. Part 1: Safety requirements.
#' Second Edition 1999-02
#'
#' @param ws wind speed at the hub height (m/s)
#' @param wtc wind turbine class,
#' @param wtc = "A" - class designates the category for higher turbulence characteristic,
#' @param wtc = "B" - class designates the category for lower turbulence characteristic
#'
#' @return Function returns turublence intensity
#' @export
#'
#' @examples ws(ws = 4, wtc = "A")
#' @examples ws()
#'
ITed2 <- function(ws = 2, wtc = "A") {
  IT <- tsd.sigma1.ed2(ws,wtc)/ws
  return(IT)
}