<commit_before>#' clomin_7730
#'
#' Calculate minimal clothing insulation value needed for thermal comfort in moderate thermal environments based on PMV ISO 7730.
#'
#' @param numeric t Air temperature in Celsius degrees.
#' @param numeric rh Air Relative humidity in percentage.
#' @param numeric wind Wind speed in meter per second.
#' @param numeric tr Mean radiant temperature in Celsius degrees.
#' @param numeric M Metabolic rate of subject in Watt per mq.
#' @param character outcome Type of outcome expected. Two parameters are available "clomax" and "clomin".

#' @return 
#'
#'
#' @author  Istituto di Biometeorologia Firenze Italy  <NAME> \email{<EMAIL>}
#' @keywords  ocir 
#' 
#' @export
#'
#'
#'
#'

clomin_7730=function(t,rh,wind,tr,M) {
                          ct$assign("ta", as.array(t))
                         ct$assign("rh", as.array(rh))
                         ct$assign("vel", as.array(wind))
                         ct$assign("tr", as.array(tr))
                         ct$assign("M", as.array(M))
                         ct$eval("var res=[]; for(var i=0, len=outcome.length; i < len; i++){ res[i]=clomin_7730(outcome[i],ta[i],rh[i],vel[i],tr[i],M[0])};")
                         res=ct$get("res")
                         return(ifelse(res==9999,NA,res))
}

<commit_msg>Update clomin_7730.r<commit_after>#' clomin_7730
#'
#' Calculate minimal clothing insulation value needed for thermal comfort in moderate thermal environments based on PMV ISO 7730.
#'
#' @param numeric t Air temperature in Celsius degrees.
#' @param numeric rh Air Relative humidity in percentage.
#' @param numeric wind Wind speed in meter per second.
#' @param numeric tr Mean radiant temperature in Celsius degrees.
#' @param numeric M Metabolic rate of subject in Watt per mq.
#' @return 
#'
#'
#' @author  Istituto di Biometeorologia Firenze Italy  <NAME> \email{<EMAIL>}
#' @keywords  ocir 
#' 
#' @export
#'
#'
#'
#'

clomin_7730=function(t,rh,wind,tr,M) {
                         ct$assign("ta", as.array(t))
                         ct$assign("rh", as.array(rh))
                         ct$assign("vel", as.array(wind))
                         ct$assign("tr", as.array(tr))
                         ct$assign("M", as.array(M))
                         ct$eval("var res=[]; for(var i=0, len=ta.length; i < len; i++){ res[i]=clomin_7730(ta[i],rh[i],vel[i],tr[i],M[0])};")
                         res=ct$get("res")
                         return(ifelse(res==9999,NA,res))
}


{'fraction_non_alphanumeric': 0.14572460859092734, 'fraction_numerical': 0.019269369731031716, 'mean_word_length': 2.5297450424929178, 'pattern_counts': {'":': 0, '<': 9, '<?xml version=': 0, '>': 7, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '4774369', 'n_tokens_mistral': 871, 'n_tokens_neox': 751, 'n_words': 213}