R/attach_TyG.R

In yikeshu0611/nhanesR: Tools for "NHANES" Database

#' fasting triglycerides and glucose index ，TyG
#'
#' @param data data
#' @param years years
#' @param Year logical
#'
#' @return fasting triglycerides and glucose index ，TyG
#' @export
#'
attach_TyG <- function(data,years,Year=FLASE){
    years <- data_years(data,years)
    d <- attach_HemalBiochemistry(years = years,
                             fast_triglyceride1 = 'ftrig',
                             fast_glucose1 = 'fglu')
    d$TyG <- log(d$ftrig * d$fglu /2)
    attach_return_data(data,d,Year,'seqn')
}