R/knots2ms.r

In alfcrisci/rWeatherITA: Daily Italian Weather Data

#' knots2ms
#'
#' @description Return  metertoseconds velocity from knots value.
#' 
#' 
#' @param val numeric: Value in knots.
#' @param digits integer: Decimal for rounding. Default is 2.
#' @return  Return   numeric Velocity of wind in meteronsecond.
#' @author  Istituto di Biometeorologia Firenze Italy  Alfonso crisci \email{a.crisci@@ibimet.cnr.it}.
#' @keywords GSOD data
#'
#'
#'
#' @export

knots2ms <- function(val, digits=2) {
  
  kmperhour = val*1.8535
  val_new = kmperhour*(1000/3600) 
  val_new <- round(val_new, digits)
  
  return(val_new)
}