R/define_col.R

Defines functions define_col

Documented in define_col

#' Define column types for data reading
#'
#' @param ins Character, the instrument
#' @param adm Character, fixed or adaptive
#' @param date_format Specification how to read the date field
#' @param datetime_format Specification how to read the datetime field
define_col <- function(ins = c("sf", "lf", "bsid"),
                       adm = c("fixed", "adaptive", "tan", "pak", "ban"),
                       date_format = "",
                       datetime_format = "") {
  ins <- match.arg(ins)
  adm <- match.arg(adm)
  if (ins == "sf" && adm == "fixed") {
    spec <- cols(
      GSED_ID = col_character(),
      `Ma_SF_Parent ID` = col_character(),
      `Ma_SF_Worker Code` = col_double(),
      `Ma_SF_Vist Type` = col_double(),
      Ma_SF_Location = col_double(),
      Ma_SF_Age = col_double(),
      Ma_SF_AH01 = col_double(),
      Ma_SF_AH02 = col_double(),
      Ma_SF_AH03 = col_double(),
      Ma_SF_AH04 = col_double(),
      Ma_SF_AH05 = col_double(),
      Ma_SF_AH06 = col_double(),
      Ma_SF_AH07 = col_double(),
      Ma_SF_AH08 = col_double(),
      Ma_SF_M01 = col_double(),
      Ma_SF_M02 = col_double(),
      Ma_SF_M03 = col_character(),
      Ma_SF_Date = col_date(format = date_format),
      Ma_SF_Caregiver = col_double(),
      Ma_SF_C01 = col_integer(),
      Ma_SF_C02 = col_integer(),
      Ma_SF_C03 = col_integer(),
      Ma_SF_C04 = col_integer(),
      Ma_SF_C05 = col_integer(),
      Ma_SF_C06 = col_integer(),
      Ma_SF_C07 = col_integer(),
      Ma_SF_C08 = col_integer(),
      Ma_SF_C09 = col_integer(),
      Ma_SF_C10 = col_integer(),
      Ma_SF_C11 = col_integer(),
      Ma_SF_C12 = col_integer(),
      Ma_SF_C13 = col_integer(),
      Ma_SF_C14 = col_integer(),
      Ma_SF_C15 = col_integer(),
      Ma_SF_C16 = col_integer(),
      Ma_SF_C17 = col_integer(),
      Ma_SF_C18 = col_integer(),
      Ma_SF_C19 = col_integer(),
      Ma_SF_C20 = col_integer(),
      Ma_SF_C21 = col_integer(),
      Ma_SF_C22 = col_integer(),
      Ma_SF_C23 = col_integer(),
      Ma_SF_C24 = col_integer(),
      Ma_SF_C25 = col_integer(),
      Ma_SF_C26 = col_integer(),
      Ma_SF_C27 = col_integer(),
      Ma_SF_C28 = col_integer(),
      Ma_SF_C29 = col_integer(),
      Ma_SF_C30 = col_integer(),
      Ma_SF_C31 = col_integer(),
      Ma_SF_C32 = col_integer(),
      Ma_SF_C33 = col_integer(),
      Ma_SF_C34 = col_integer(),
      Ma_SF_C35 = col_integer(),
      Ma_SF_C36 = col_integer(),
      Ma_SF_C37 = col_integer(),
      Ma_SF_C38 = col_integer(),
      Ma_SF_C39 = col_integer(),
      Ma_SF_C40 = col_integer(),
      Ma_SF_C41 = col_integer(),
      Ma_SF_C42 = col_integer(),
      Ma_SF_C43 = col_integer(),
      Ma_SF_C44 = col_integer(),
      Ma_SF_C45 = col_integer(),
      Ma_SF_C46 = col_integer(),
      Ma_SF_C47 = col_integer(),
      Ma_SF_C48 = col_integer(),
      Ma_SF_C49 = col_integer(),
      Ma_SF_C50 = col_integer(),
      Ma_SF_C51 = col_integer(),
      Ma_SF_C52 = col_integer(),
      Ma_SF_C53 = col_integer(),
      Ma_SF_C54 = col_integer(),
      Ma_SF_C55 = col_integer(),
      Ma_SF_C56 = col_integer(),
      Ma_SF_C57 = col_integer(),
      Ma_SF_C58 = col_integer(),
      Ma_SF_C59 = col_integer(),
      Ma_SF_C60 = col_integer(),
      Ma_SF_C61 = col_integer(),
      Ma_SF_C62 = col_integer(),
      Ma_SF_C63 = col_integer(),
      Ma_SF_C64 = col_integer(),
      Ma_SF_C65 = col_integer(),
      Ma_SF_C66 = col_integer(),
      Ma_SF_C67 = col_integer(),
      Ma_SF_C68 = col_integer(),
      Ma_SF_C69 = col_integer(),
      Ma_SF_C70 = col_integer(),
      Ma_SF_C71 = col_integer(),
      Ma_SF_C72 = col_integer(),
      Ma_SF_C73 = col_integer(),
      Ma_SF_C74 = col_integer(),
      Ma_SF_C75 = col_integer(),
      Ma_SF_C76 = col_integer(),
      Ma_SF_C77 = col_integer(),
      Ma_SF_C78 = col_integer(),
      Ma_SF_C79 = col_integer(),
      Ma_SF_C80 = col_integer(),
      Ma_SF_C81 = col_integer(),
      Ma_SF_C82 = col_integer(),
      Ma_SF_C83 = col_integer(),
      Ma_SF_C84 = col_integer(),
      Ma_SF_C85 = col_integer(),
      Ma_SF_C86 = col_integer(),
      Ma_SF_C87 = col_integer(),
      Ma_SF_C88 = col_integer(),
      Ma_SF_C89 = col_integer(),
      Ma_SF_C90 = col_integer(),
      Ma_SF_C91 = col_integer(),
      Ma_SF_C92 = col_integer(),
      Ma_SF_C93 = col_integer(),
      Ma_SF_C94 = col_integer(),
      Ma_SF_C95 = col_integer(),
      Ma_SF_C96 = col_integer(),
      Ma_SF_C97 = col_integer(),
      Ma_SF_C98 = col_integer(),
      Ma_SF_C99 = col_integer(),
      Ma_SF_C100 = col_integer(),
      Ma_SF_C101 = col_integer(),
      Ma_SF_C102 = col_integer(),
      Ma_SF_C103 = col_integer(),
      Ma_SF_C104 = col_integer(),
      Ma_SF_C105 = col_integer(),
      Ma_SF_C106 = col_integer(),
      Ma_SF_C107 = col_integer(),
      Ma_SF_C108 = col_integer(),
      Ma_SF_C109 = col_integer(),
      Ma_SF_C110 = col_integer(),
      Ma_SF_C111 = col_integer(),
      Ma_SF_C112 = col_integer(),
      Ma_SF_C113 = col_integer(),
      Ma_SF_C114 = col_integer(),
      Ma_SF_C115 = col_integer(),
      Ma_SF_C116 = col_integer(),
      Ma_SF_C117 = col_integer(),
      Ma_SF_C118 = col_integer(),
      Ma_SF_C119 = col_integer(),
      Ma_SF_C120 = col_integer(),
      Ma_SF_C121 = col_integer(),
      Ma_SF_C122 = col_integer(),
      Ma_SF_C123 = col_integer(),
      Ma_SF_C124 = col_integer(),
      Ma_SF_C125 = col_integer(),
      Ma_SF_C126 = col_integer(),
      Ma_SF_C127 = col_integer(),
      Ma_SF_C128 = col_integer(),
      Ma_SF_C129 = col_integer(),
      Ma_SF_C130 = col_integer(),
      Ma_SF_C131 = col_integer(),
      Ma_SF_C132 = col_integer(),
      Ma_SF_C133 = col_integer(),
      Ma_SF_C134 = col_integer(),
      Ma_SF_C135 = col_integer(),
      Ma_SF_C136 = col_integer(),
      Ma_SF_C137 = col_integer(),
      Ma_SF_C138 = col_integer(),
      Ma_SF_C139 = col_integer())
  }

  if (ins == "lf" && adm == "fixed") {
    spec <- cols(
      GSED_ID = col_character(),
      `Ma_LF_Parent ID` = col_character(),
      `Ma_LF_Worker Code` = col_double(),
      `Ma_LF_Vist Type` = col_double(),
      Ma_LF_Location = col_double(),
      Ma_LF_Age = col_double(),
      Ma_LF_AH01 = col_double(),
      Ma_LF_AH02 = col_double(),
      Ma_LF_AH03 = col_double(),
      Ma_LF_AH04 = col_double(),
      Ma_LF_AH05 = col_double(),
      Ma_LF_AH06 = col_double(),
      Ma_LF_AH07 = col_double(),
      Ma_LF_AH08 = col_double(),
      Ma_LF_M01 = col_double(),
      Ma_LF_M02 = col_double(),
      Ma_LF_M03 = col_character(),
      Ma_LF_Date = col_date(format = date_format),
      Ma_LF_Caregiver = col_double(),
      Ma_LF_A01 = col_integer(),
      Ma_LF_A02 = col_integer(),
      Ma_LF_A03 = col_integer(),
      Ma_LF_A04 = col_integer(),
      Ma_LF_A05 = col_integer(),
      Ma_LF_A06 = col_integer(),
      Ma_LF_A07 = col_integer(),
      Ma_LF_A08 = col_integer(),
      Ma_LF_A09 = col_integer(),
      Ma_LF_A10 = col_integer(),
      Ma_LF_A11 = col_integer(),
      Ma_LF_A12 = col_integer(),
      Ma_LF_A13 = col_integer(),
      Ma_LF_A14 = col_integer(),
      Ma_LF_A15 = col_integer(),
      Ma_LF_A16 = col_integer(),
      Ma_LF_A17 = col_integer(),
      Ma_LF_A18 = col_integer(),
      Ma_LF_A19 = col_integer(),
      Ma_LF_A20 = col_integer(),
      Ma_LF_A21 = col_integer(),
      Ma_LF_A22 = col_integer(),
      Ma_LF_A23 = col_integer(),
      Ma_LF_A24 = col_integer(),
      Ma_LF_A25 = col_integer(),
      Ma_LF_A26 = col_integer(),
      Ma_LF_A27 = col_integer(),
      Ma_LF_A28 = col_integer(),
      Ma_LF_A29 = col_integer(),
      Ma_LF_A30 = col_integer(),
      Ma_LF_A31 = col_integer(),
      Ma_LF_A32 = col_integer(),
      Ma_LF_A33 = col_integer(),
      Ma_LF_A34 = col_integer(),
      Ma_LF_A35 = col_integer(),
      Ma_LF_A36 = col_integer(),
      Ma_LF_A37 = col_integer(),
      Ma_LF_A38 = col_integer(),
      Ma_LF_A39 = col_integer(),
      Ma_LF_A40 = col_integer(),
      Ma_LF_A41 = col_integer(),
      Ma_LF_A42 = col_integer(),
      Ma_LF_A43 = col_integer(),
      Ma_LF_A44 = col_integer(),
      Ma_LF_A45 = col_integer(),
      Ma_LF_A46 = col_integer(),
      Ma_LF_A47 = col_integer(),
      Ma_LF_A48 = col_integer(),
      Ma_LF_A49 = col_integer(),
      Ma_LF_B01 = col_integer(),
      Ma_LF_B02 = col_integer(),
      Ma_LF_B03 = col_integer(),
      Ma_LF_B04 = col_integer(),
      Ma_LF_B05 = col_integer(),
      Ma_LF_B06 = col_integer(),
      Ma_LF_B07 = col_integer(),
      Ma_LF_B08 = col_integer(),
      Ma_LF_B09 = col_integer(),
      Ma_LF_B10 = col_integer(),
      Ma_LF_B11 = col_integer(),
      Ma_LF_B12 = col_integer(),
      Ma_LF_B13 = col_integer(),
      Ma_LF_B14 = col_integer(),
      Ma_LF_B15 = col_integer(),
      Ma_LF_B16 = col_integer(),
      Ma_LF_B17 = col_integer(),
      Ma_LF_B18 = col_integer(),
      Ma_LF_B19 = col_integer(),
      Ma_LF_B20 = col_integer(),
      Ma_LF_B21 = col_integer(),
      Ma_LF_B22 = col_integer(),
      Ma_LF_B23 = col_integer(),
      Ma_LF_B24 = col_integer(),
      Ma_LF_B25 = col_integer(),
      Ma_LF_B26 = col_integer(),
      Ma_LF_B27 = col_integer(),
      Ma_LF_B28 = col_integer(),
      Ma_LF_B29 = col_integer(),
      Ma_LF_B30 = col_integer(),
      Ma_LF_B31 = col_integer(),
      Ma_LF_B32 = col_integer(),
      Ma_LF_B33 = col_integer(),
      Ma_LF_B34 = col_integer(),
      Ma_LF_B35 = col_integer(),
      Ma_LF_B36 = col_integer(),
      Ma_LF_B37 = col_integer(),
      Ma_LF_B38 = col_integer(),
      Ma_LF_B39 = col_integer(),
      Ma_LF_B40 = col_integer(),
      Ma_LF_B41 = col_integer(),
      Ma_LF_B42 = col_integer(),
      Ma_LF_B43 = col_integer(),
      Ma_LF_B44 = col_integer(),
      Ma_LF_B45 = col_integer(),
      Ma_LF_B46 = col_integer(),
      Ma_LF_B47 = col_integer(),
      Ma_LF_B48 = col_integer(),
      Ma_LF_B49 = col_integer(),
      Ma_LF_B50 = col_integer(),
      Ma_LF_B51 = col_integer(),
      Ma_LF_B52 = col_integer(),
      Ma_LF_C01 = col_integer(),
      Ma_LF_C02 = col_integer(),
      Ma_LF_C03 = col_integer(),
      Ma_LF_C04 = col_integer(),
      Ma_LF_C05 = col_integer(),
      Ma_LF_C06 = col_integer(),
      Ma_LF_C07 = col_integer(),
      Ma_LF_C08 = col_integer(),
      Ma_LF_C09 = col_integer(),
      Ma_LF_C10 = col_integer(),
      Ma_LF_C11 = col_integer(),
      Ma_LF_C12 = col_integer(),
      Ma_LF_C13 = col_integer(),
      Ma_LF_C14 = col_integer(),
      Ma_LF_C15 = col_integer(),
      Ma_LF_C16 = col_integer(),
      Ma_LF_C17 = col_integer(),
      Ma_LF_C18 = col_integer(),
      Ma_LF_C19 = col_integer(),
      Ma_LF_C20 = col_integer(),
      Ma_LF_C21 = col_integer(),
      Ma_LF_C22 = col_integer(),
      Ma_LF_C23 = col_integer(),
      Ma_LF_C24 = col_integer(),
      Ma_LF_C25 = col_integer(),
      Ma_LF_C26 = col_integer(),
      Ma_LF_C27 = col_integer(),
      Ma_LF_C28 = col_integer(),
      Ma_LF_C29 = col_integer(),
      Ma_LF_C30 = col_integer(),
      Ma_LF_C31 = col_integer(),
      Ma_LF_C32 = col_integer(),
      Ma_LF_C33 = col_integer(),
      Ma_LF_C34 = col_integer(),
      Ma_LF_C35 = col_integer(),
      Ma_LF_C36 = col_integer(),
      Ma_LF_C37 = col_integer(),
      Ma_LF_C38 = col_integer(),
      Ma_LF_C39 = col_integer(),
      Ma_LF_C40 = col_integer(),
      Ma_LF_C41 = col_integer(),
      Ma_LF_C42 = col_integer(),
      Ma_LF_C43 = col_integer(),
      Ma_LF_C44 = col_integer(),
      Ma_LF_C45 = col_integer(),
      Ma_LF_C46 = col_integer(),
      Ma_LF_C47 = col_integer(),
      Ma_LF_C48 = col_integer(),
      Ma_LF_C49 = col_integer(),
      Ma_LF_C50 = col_integer(),
      Ma_LF_C51 = col_integer(),
      Ma_LF_C52 = col_integer(),
      Ma_LF_C53 = col_integer(),
      Ma_LF_C54 = col_integer(),
      Ma_LF_D01 = col_integer(),
      Ma_LF_D01_SPCY = col_character(),
      Ma_LF_D02 = col_integer(),
      Ma_LF_D02_SPCFY = col_character()
    )
  }

  if (ins == "sf" && adm == "adaptive") {
    spec <- cols(
      GSED_ID = col_character(),
      parent_study_id = col_character(),
      Ma_SF_DOB = col_date(format = date_format),
      Ma_SF_DOV = col_date(format = date_format),
      Ma_SF_Location = col_integer(),
      Ma_Age_Year = col_double(),
      Ma_SF_item = col_character(),
      Ma_SF_timestamp = col_datetime(format = datetime_format),
      p = col_integer(),
      Ma_SF_order = col_integer(),
      Ma_SF_scores = col_integer(),
      Ma_SF_d = col_double(),
      Ma_SF_sem = col_double()
    )
  }

  if (ins == "lf" && adm == "adaptive") {
    spec <- cols(
      GSED_ID = col_character(),
      parent_study_id = col_character(),
      Ma_LF_DOB = col_date(format = date_format),
      Ma_LF_DOV = col_date(format = date_format),
      Ma_LF_Location = col_integer(),
      Ma_Age_Year = col_double(),
      Ma_LF_item = col_character(),
      Ma_LF_timestamp = col_datetime(format = datetime_format),
      p = col_integer(),
      Ma_LF_order = col_integer(),
      Ma_LF_scores = col_integer(),
      Ma_LF_d = col_double(),
      Ma_LF_sem = col_double()
    )
  }

  if (ins == "bsid" && adm == "tan") {
    spec <- cols(
      st_country___bsid = col_integer(),
      GSED_ID = col_character(),
      screen_id_bsid = col_date(format = date_format),
      screen_no__bsid = col_character(),
      ra_code_bsid = col_integer(),
      visit_age_bsid = col_integer(),
      bsid_cog01 = col_integer(),
      bsid_cog02 = col_integer(),
      bsid_cog03 = col_integer(),
      bsid_cog04 = col_integer(),
      bsid_cog05 = col_integer(),
      bsid_cog06 = col_integer(),
      bsid_cog07 = col_integer(),
      bsid_cog08 = col_integer(),
      bsid_cog09 = col_integer(),
      bsid_cog10 = col_integer(),
      bsid_cog11 = col_integer(),
      bsid_cog12 = col_integer(),
      bsid_cog13 = col_integer(),
      bsid_cog14 = col_integer(),
      bsid_cog15 = col_integer(),
      bsid_cog16 = col_integer(),
      bsid_cog17 = col_integer(),
      bsid_cog18 = col_integer(),
      bsid_cog19 = col_integer(),
      bsid_cog20 = col_integer(),
      bsid_cog21 = col_integer(),
      bsid_cog22 = col_integer(),
      bsid_cog23 = col_integer(),
      bsid_cog24 = col_integer(),
      bsid_cog25 = col_integer(),
      bsid_cog26 = col_integer(),
      bsid_cog27 = col_integer(),
      bsid_cog28 = col_integer(),
      bsid_cog29 = col_integer(),
      bsid_cog30 = col_integer(),
      bsid_cog31 = col_integer(),
      bsid_cog32 = col_integer(),
      bsid_cog33 = col_integer(),
      bsid_cog34 = col_integer(),
      bsid_cog35 = col_integer(),
      bsid_cog36 = col_integer(),
      bsid_cog37 = col_integer(),
      bsid_cog38 = col_integer(),
      bsid_cog39 = col_integer(),
      bsid_cog40 = col_integer(),
      bsid_cog41 = col_integer(),
      bsid_cog42 = col_integer(),
      bsid_cog43 = col_integer(),
      bsid_cog44 = col_integer(),
      bsid_cog45 = col_integer(),
      bsid_cog46 = col_integer(),
      bsid_cog47 = col_integer(),
      bsid_cog48 = col_integer(),
      bsid_cog49 = col_integer(),
      bsid_cog50 = col_integer(),
      bsid_cog51 = col_integer(),
      bsid_cog52 = col_integer(),
      bsid_cog53 = col_integer(),
      bsid_cog54 = col_integer(),
      bsid_cog55 = col_integer(),
      bsid_cog56 = col_integer(),
      bsid_cog57 = col_integer(),
      bsid_cog58 = col_integer(),
      bsid_cog59 = col_integer(),
      bsid_cog60 = col_integer(),
      bsid_cog61 = col_integer(),
      bsid_cog62 = col_integer(),
      bsid_cog63 = col_integer(),
      bsid_cog64 = col_integer(),
      bsid_cog65 = col_integer(),
      bsid_cog66 = col_integer(),
      bsid_cog67 = col_integer(),
      bsid_cog68 = col_integer(),
      bsid_cog69 = col_integer(),
      bsid_cog70 = col_integer(),
      bsid_cog71 = col_integer(),
      bsid_cog72 = col_integer(),
      bsid_cog73 = col_integer(),
      bsid_cog74 = col_integer(),
      bsid_cog75 = col_integer(),
      bsid_cog76 = col_integer(),
      bsid_cog77 = col_integer(),
      bsid_cog78 = col_integer(),
      bsid_cog79 = col_integer(),
      bsid_cog80 = col_integer(),
      bsid_cog81 = col_integer(),
      bsid_cog82 = col_integer(),
      bsid_cog83 = col_integer(),
      bsid_cog84 = col_integer(),
      bsid_cog85 = col_integer(),
      bsid_cog86 = col_integer(),
      bsid_cog87 = col_integer(),
      bsid_cog88 = col_integer(),
      bsid_cog89 = col_integer(),
      bsid_cog90 = col_integer(),
      bsid_cog91 = col_integer(),
      bsid_cog_comment = col_character(),
      bsid_rc01 = col_integer(),
      bsid_rc02 = col_integer(),
      bsid_rc03 = col_integer(),
      bsid_rc04 = col_integer(),
      bsid_rc05 = col_integer(),
      bsid_rc06 = col_integer(),
      bsid_rc07 = col_integer(),
      bsid_rc08 = col_integer(),
      bsid_rc09 = col_integer(),
      bsid_rc10 = col_integer(),
      bsid_rc11 = col_integer(),
      bsid_rc12 = col_integer(),
      bsid_rc13 = col_integer(),
      bsid_rc14 = col_integer(),
      bsid_rc15 = col_integer(),
      bsid_rc16 = col_integer(),
      bsid_rc17 = col_integer(),
      bsid_rc18 = col_integer(),
      bsid_rc19 = col_integer(),
      bsid_rc20 = col_integer(),
      bsid_rc21 = col_integer(),
      bsid_rc22 = col_integer(),
      bsid_rc23 = col_integer(),
      bsid_rc24 = col_integer(),
      bsid_rc25 = col_integer(),
      bsid_rc26 = col_integer(),
      bsid_rc27 = col_integer(),
      bsid_rc28 = col_integer(),
      bsid_rc29 = col_integer(),
      bsid_rc30 = col_integer(),
      bsid_rc31 = col_integer(),
      bsid_rc32 = col_integer(),
      bsid_rc33 = col_integer(),
      bsid_rc34 = col_integer(),
      bsid_rc35 = col_integer(),
      bsid_rc36 = col_integer(),
      bsid_rc37 = col_integer(),
      bsid_rc38 = col_integer(),
      bsid_rc39 = col_integer(),
      bsid_rc40 = col_integer(),
      bsid_rc41 = col_integer(),
      bsid_rc42 = col_integer(),
      bsid_rc43 = col_integer(),
      bsid_rc44 = col_integer(),
      bsid_rc45 = col_integer(),
      bsid_rc46 = col_integer(),
      bsid_rc47 = col_integer(),
      bsid_rc48 = col_integer(),
      bsid_rc49 = col_integer(),
      bsid_rc_comment = col_character(),
      bsid_ec01 = col_integer(),
      bsid_ec02 = col_integer(),
      bsid_ec03 = col_integer(),
      bsid_ec04 = col_integer(),
      bsid_ec05 = col_integer(),
      bsid_ec06 = col_integer(),
      bsid_ec07 = col_integer(),
      bsid_ec08 = col_integer(),
      bsid_ec09 = col_integer(),
      bsid_ec10 = col_integer(),
      bsid_ec11 = col_integer(),
      bsid_ec12 = col_integer(),
      bsid_ec13 = col_integer(),
      bsid_ec14 = col_integer(),
      bsid_ec15 = col_integer(),
      bsid_ec16 = col_integer(),
      bsid_ec17 = col_integer(),
      bsid_ec18 = col_integer(),
      bsid_ec19 = col_integer(),
      bsid_ec20 = col_integer(),
      bsid_ec21 = col_integer(),
      bsid_ec22 = col_integer(),
      bsid_ec23 = col_integer(),
      bsid_ec24 = col_integer(),
      bsid_ec25 = col_integer(),
      bsid_ec26 = col_integer(),
      bsid_ec27 = col_integer(),
      bsid_ec28 = col_integer(),
      bsid_ec29 = col_integer(),
      bsid_ec30 = col_integer(),
      bsid_ec31 = col_integer(),
      bsid_ec32 = col_integer(),
      bsid_ec33 = col_integer(),
      bsid_ec34 = col_integer(),
      bsid_ec35 = col_integer(),
      bsid_ec36 = col_integer(),
      bsid_ec37 = col_integer(),
      bsid_ec38 = col_integer(),
      bsid_ec39 = col_integer(),
      bsid_ec40 = col_integer(),
      bsid_ec41 = col_integer(),
      bsid_ec42 = col_integer(),
      bsid_ec43 = col_integer(),
      bsid_ec44 = col_integer(),
      bsid_ec45 = col_integer(),
      bsid_ec46 = col_integer(),
      bsid_ec47 = col_integer(),
      bsid_ec48 = col_integer(),
      bsid_ec_comment = col_character(),
      bsid_fm01 = col_integer(),
      bsid_fm02 = col_integer(),
      bsid_fm03 = col_integer(),
      bsid_fm04 = col_integer(),
      bsid_fm05 = col_integer(),
      bsid_fm06 = col_integer(),
      bsid_fm07 = col_integer(),
      bsid_fm08 = col_integer(),
      bsid_fm09 = col_integer(),
      bsid_fm10 = col_integer(),
      bsid_fm11 = col_integer(),
      bsid_fm12 = col_integer(),
      bsid_fm13 = col_integer(),
      bsid_fm14 = col_integer(),
      bsid_fm15 = col_integer(),
      bsid_fm16 = col_integer(),
      bsid_fm17 = col_integer(),
      bsid_fm18 = col_integer(),
      bsid_fm19 = col_integer(),
      bsid_fm20 = col_integer(),
      bsid_fm21 = col_integer(),
      bsid_fm22 = col_integer(),
      bsid_fm23 = col_integer(),
      bsid_fm24 = col_integer(),
      bsid_fm25 = col_integer(),
      bsid_fm26 = col_integer(),
      bsid_fm27 = col_integer(),
      bsid_fm28 = col_integer(),
      bsid_fm29 = col_integer(),
      bsid_fm30 = col_integer(),
      bsid_fm31 = col_integer(),
      bsid_fm32 = col_integer(),
      bsid_fm33 = col_integer(),
      bsid_fm34 = col_integer(),
      bsid_fm35 = col_integer(),
      bsid_fm36 = col_integer(),
      bsid_fm37 = col_integer(),
      bsid_fm38 = col_integer(),
      bsid_fm39 = col_integer(),
      bsid_fm40 = col_integer(),
      bsid_fm41 = col_integer(),
      bsid_fm42 = col_integer(),
      bsid_fm43 = col_integer(),
      bsid_fm44 = col_integer(),
      bsid_fm45 = col_integer(),
      bsid_fm46 = col_integer(),
      bsid_fm47 = col_integer(),
      bsid_fm48 = col_integer(),
      bsid_fm49 = col_integer(),
      bsid_fm50 = col_integer(),
      bsid_fm51 = col_integer(),
      bsid_fm52 = col_integer(),
      bsid_fm53 = col_integer(),
      bsid_fm54 = col_integer(),
      bsid_fm55 = col_integer(),
      bsid_fm56 = col_integer(),
      bsid_fm57 = col_integer(),
      bsid_fm58 = col_integer(),
      bsid_fm59 = col_integer(),
      bsid_fm60 = col_integer(),
      bsid_fm61 = col_integer(),
      bsid_fm62 = col_integer(),
      bsid_fm63 = col_integer(),
      bsid_fm64 = col_integer(),
      bsid_fm65 = col_integer(),
      bsid_fm66 = col_integer(),
      bsid_fm_comment = col_character(),
      bsid_gsm01 = col_integer(),
      bsid_gsm02 = col_integer(),
      bsid_gsm03 = col_integer(),
      bsid_gsm04 = col_integer(),
      bsid_gsm05 = col_integer(),
      bsid_gsm06 = col_integer(),
      bsid_gsm07 = col_integer(),
      bsid_gsm08 = col_integer(),
      bsid_gsm09 = col_integer(),
      bsid_gsm10 = col_integer(),
      bsid_gsm11 = col_integer(),
      bsid_gsm12 = col_integer(),
      bsid_gsm13 = col_integer(),
      bsid_gsm14 = col_integer(),
      bsid_gsm15 = col_integer(),
      bsid_gsm16 = col_integer(),
      bsid_gsm17 = col_integer(),
      bsid_gsm18 = col_integer(),
      bsid_gsm19 = col_integer(),
      bsid_gsm20 = col_integer(),
      bsid_gsm21 = col_integer(),
      bsid_gsm22 = col_integer(),
      bsid_gsm23 = col_integer(),
      bsid_gsm24 = col_integer(),
      bsid_gsm25 = col_integer(),
      bsid_gsm26 = col_integer(),
      bsid_gsm27 = col_integer(),
      bsid_gsm28 = col_integer(),
      bsid_gsm29 = col_integer(),
      bsid_gsm30 = col_integer(),
      bsid_gsm31 = col_integer(),
      bsid_gsm32 = col_integer(),
      bsid_gsm33 = col_integer(),
      bsid_gsm34 = col_integer(),
      bsid_gsm35 = col_integer(),
      bsid_gsm36 = col_integer(),
      bsid_gsm37 = col_integer(),
      bsid_gsm38 = col_integer(),
      bsid_gsm39 = col_integer(),
      bsid_gsm40 = col_integer(),
      bsid_gsm41 = col_integer(),
      bsid_gsm42 = col_integer(),
      bsid_gsm43 = col_integer(),
      bsid_gsm44 = col_integer(),
      bsid_gsm45 = col_integer(),
      bsid_gsm46 = col_integer(),
      bsid_gsm47 = col_integer(),
      bsid_gsm48 = col_integer(),
      bsid_gsm49 = col_integer(),
      bsid_gsm50 = col_integer(),
      bsid_gsm51 = col_integer(),
      bsid_gsm52 = col_integer(),
      bsid_gsm53 = col_integer(),
      bsid_gsm54 = col_integer(),
      bsid_gsm55 = col_integer(),
      bsid_gsm56 = col_integer(),
      bsid_gsm57 = col_integer(),
      bsid_gsm58 = col_integer(),
      bsid_gsm59 = col_integer(),
      bsid_gsm60 = col_integer(),
      bsid_gsm61 = col_integer(),
      bsid_gsm62 = col_integer(),
      bsid_gsm63 = col_integer(),
      bsid_gsm64 = col_integer(),
      bsid_gsm65 = col_integer(),
      bsid_gsm66 = col_integer(),
      bsid_gsm67 = col_integer(),
      bsid_gsm68 = col_integer(),
      bsid_gsm69 = col_integer(),
      bsid_gsm70 = col_integer(),
      bsid_gsm71 = col_integer(),
      bsid_gsm72 = col_integer(),
      bsid_motor_comment = col_character(),
      age_adj_premature = col_integer()
    )
  }

  if (ins == "bsid" && adm == "pak") {
    spec <- cols(
      Study_Country = col_integer(),
      GSED_ID = col_character(),
      Parent_study_ID = col_character(),
      DATE_OF_VISIT = col_date(format = date_format),
      Researcher_Code = col_integer(),
      Age_at_assessment = col_integer(),
      bsid_cog01 = col_integer(),
      bsid_cog02 = col_integer(),
      bsid_cog03 = col_integer(),
      bsid_cog04 = col_integer(),
      bsid_cog05 = col_integer(),
      bsid_cog06 = col_integer(),
      bsid_cog07 = col_integer(),
      bsid_cog08 = col_integer(),
      bsid_cog09 = col_integer(),
      bsid_cog10 = col_integer(),
      bsid_cog11 = col_integer(),
      bsid_cog12 = col_integer(),
      bsid_cog13 = col_integer(),
      bsid_cog14 = col_integer(),
      bsid_cog15 = col_integer(),
      bsid_cog16 = col_integer(),
      bsid_cog17 = col_integer(),
      bsid_cog18 = col_integer(),
      bsid_cog19 = col_integer(),
      bsid_cog20 = col_integer(),
      bsid_cog21 = col_integer(),
      bsid_cog22 = col_integer(),
      bsid_cog23 = col_integer(),
      bsid_cog24 = col_integer(),
      bsid_cog25 = col_integer(),
      bsid_cog26 = col_integer(),
      bsid_cog27 = col_integer(),
      bsid_cog28 = col_integer(),
      bsid_cog29 = col_integer(),
      bsid_cog30 = col_integer(),
      bsid_cog31 = col_integer(),
      bsid_cog32 = col_integer(),
      bsid_cog33 = col_integer(),
      bsid_cog34 = col_integer(),
      bsid_cog35 = col_integer(),
      bsid_cog36 = col_integer(),
      bsid_cog37 = col_integer(),
      bsid_cog38 = col_integer(),
      bsid_cog39 = col_integer(),
      bsid_cog40 = col_integer(),
      bsid_cog41 = col_integer(),
      bsid_cog42 = col_integer(),
      bsid_cog43 = col_integer(),
      bsid_cog44 = col_integer(),
      bsid_cog45 = col_integer(),
      bsid_cog46 = col_integer(),
      bsid_cog47 = col_integer(),
      bsid_cog48 = col_integer(),
      bsid_cog49 = col_integer(),
      bsid_cog50 = col_integer(),
      bsid_cog51 = col_integer(),
      bsid_cog52 = col_integer(),
      bsid_cog53 = col_integer(),
      bsid_cog54 = col_integer(),
      bsid_cog55 = col_integer(),
      bsid_cog56 = col_integer(),
      bsid_cog57 = col_integer(),
      bsid_cog58 = col_integer(),
      bsid_cog59 = col_integer(),
      bsid_cog60 = col_integer(),
      bsid_cog61 = col_integer(),
      bsid_cog62 = col_integer(),
      bsid_cog63 = col_integer(),
      bsid_cog64 = col_integer(),
      bsid_cog65 = col_integer(),
      bsid_cog66 = col_integer(),
      bsid_cog67 = col_integer(),
      bsid_cog68 = col_integer(),
      bsid_cog69 = col_integer(),
      bsid_cog70 = col_integer(),
      bsid_cog71 = col_integer(),
      bsid_cog72 = col_integer(),
      bsid_cog73 = col_integer(),
      bsid_cog74 = col_integer(),
      bsid_cog75 = col_integer(),
      bsid_cog76 = col_integer(),
      bsid_cog77 = col_integer(),
      bsid_cog78 = col_integer(),
      bsid_cog79 = col_integer(),
      bsid_cog80 = col_integer(),
      bsid_cog81 = col_integer(),
      bsid_cog82 = col_integer(),
      bsid_cog83 = col_integer(),
      bsid_cog84 = col_integer(),
      bsid_cog85 = col_integer(),
      bsid_cog86 = col_integer(),
      bsid_cog87 = col_integer(),
      bsid_cog88 = col_integer(),
      bsid_cog89 = col_integer(),
      bsid_cog90 = col_integer(),
      bsid_cog91 = col_integer(),
      bsid_cog_comment = col_character(),
      bsid_rc01 = col_integer(),
      bsid_rc02 = col_integer(),
      bsid_rc03 = col_integer(),
      bsid_rc04 = col_integer(),
      bsid_rc05 = col_integer(),
      bsid_rc06 = col_integer(),
      bsid_rc07 = col_integer(),
      bsid_rc08 = col_integer(),
      bsid_rc09 = col_integer(),
      bsid_rc10 = col_integer(),
      bsid_rc11 = col_integer(),
      bsid_rc12 = col_integer(),
      bsid_rc13 = col_integer(),
      bsid_rc14 = col_integer(),
      bsid_rc15 = col_integer(),
      bsid_rc16 = col_integer(),
      bsid_rc17 = col_integer(),
      bsid_rc18 = col_integer(),
      bsid_rc19 = col_integer(),
      bsid_rc20 = col_integer(),
      bsid_rc21 = col_integer(),
      bsid_rc22 = col_integer(),
      bsid_rc23 = col_integer(),
      bsid_rc24 = col_integer(),
      bsid_rc25 = col_integer(),
      bsid_rc26 = col_integer(),
      bsid_rc27 = col_integer(),
      bsid_rc28 = col_integer(),
      bsid_rc29 = col_integer(),
      bsid_rc30 = col_integer(),
      bsid_rc31 = col_integer(),
      bsid_rc32 = col_integer(),
      bsid_rc33 = col_integer(),
      bsid_rc34 = col_integer(),
      bsid_rc35 = col_integer(),
      bsid_rc36 = col_integer(),
      bsid_rc37 = col_integer(),
      bsid_rc38 = col_integer(),
      bsid_rc39 = col_integer(),
      bsid_rc40 = col_integer(),
      bsid_rc41 = col_integer(),
      bsid_rc42 = col_integer(),
      bsid_rc43 = col_integer(),
      bsid_rc44 = col_integer(),
      bsid_rc45 = col_integer(),
      bsid_rc46 = col_integer(),
      bsid_rc47 = col_integer(),
      bsid_rc48 = col_integer(),
      bsid_rc49 = col_integer(),
      bsid_rc_comment = col_character(),
      bsid_ec01 = col_integer(),
      bsid_ec02 = col_integer(),
      bsid_ec03 = col_integer(),
      bsid_ec04 = col_integer(),
      bsid_ec05 = col_integer(),
      bsid_ec06 = col_integer(),
      bsid_ec07 = col_integer(),
      bsid_ec08 = col_integer(),
      bsid_ec09 = col_integer(),
      bsid_ec10 = col_integer(),
      bsid_ec11 = col_integer(),
      bsid_ec12 = col_integer(),
      bsid_ec13 = col_integer(),
      bsid_ec14 = col_integer(),
      bsid_ec15 = col_integer(),
      bsid_ec16 = col_integer(),
      bsid_ec17 = col_integer(),
      bsid_ec18 = col_integer(),
      bsid_ec19 = col_integer(),
      bsid_ec20 = col_integer(),
      bsid_ec21 = col_integer(),
      bsid_ec22 = col_integer(),
      bsid_ec23 = col_integer(),
      bsid_ec24 = col_integer(),
      bsid_ec25 = col_integer(),
      bsid_ec26 = col_integer(),
      bsid_ec27 = col_integer(),
      bsid_ec28 = col_integer(),
      bsid_ec29 = col_integer(),
      bsid_ec30 = col_integer(),
      bsid_ec31 = col_integer(),
      bsid_ec32 = col_integer(),
      bsid_ec33 = col_integer(),
      bsid_ec34 = col_integer(),
      bsid_ec35 = col_integer(),
      bsid_ec36 = col_integer(),
      bsid_ec37 = col_integer(),
      bsid_ec38 = col_integer(),
      bsid_ec39 = col_integer(),
      bsid_ec40 = col_integer(),
      bsid_ec41 = col_integer(),
      bsid_ec42 = col_integer(),
      bsid_ec43 = col_integer(),
      bsid_ec44 = col_integer(),
      bsid_ec45 = col_integer(),
      bsid_ec46 = col_integer(),
      bsid_ec47 = col_integer(),
      bsid_ec48 = col_integer(),
      bsid_ec_comment = col_character(),
      bsid_fm01 = col_integer(),
      bsid_fm02 = col_integer(),
      bsid_fm03 = col_integer(),
      bsid_fm04 = col_integer(),
      bsid_fm05 = col_integer(),
      bsid_fm06 = col_integer(),
      bsid_fm07 = col_integer(),
      bsid_fm08 = col_integer(),
      bsid_fm09 = col_integer(),
      bsid_fm10 = col_integer(),
      bsid_fm11 = col_integer(),
      bsid_fm12 = col_integer(),
      bsid_fm13 = col_integer(),
      bsid_fm14 = col_integer(),
      bsid_fm15 = col_integer(),
      bsid_fm16 = col_integer(),
      bsid_fm17 = col_integer(),
      bsid_fm18 = col_integer(),
      bsid_fm19 = col_integer(),
      bsid_fm20 = col_integer(),
      bsid_fm21 = col_integer(),
      bsid_fm22 = col_integer(),
      bsid_fm23 = col_integer(),
      bsid_fm24 = col_integer(),
      bsid_fm25 = col_integer(),
      bsid_fm26 = col_integer(),
      bsid_fm27 = col_integer(),
      bsid_fm28 = col_integer(),
      bsid_fm29 = col_integer(),
      bsid_fm30 = col_integer(),
      bsid_fm31 = col_integer(),
      bsid_fm32 = col_integer(),
      bsid_fm33 = col_integer(),
      bsid_fm34 = col_integer(),
      bsid_fm35 = col_integer(),
      bsid_fm36 = col_integer(),
      bsid_fm37 = col_integer(),
      bsid_fm38 = col_integer(),
      bsid_fm39 = col_integer(),
      bsid_fm40 = col_integer(),
      bsid_fm41 = col_integer(),
      bsid_fm42 = col_integer(),
      bsid_fm43 = col_integer(),
      bsid_fm44 = col_integer(),
      bsid_fm45 = col_integer(),
      bsid_fm46 = col_integer(),
      bsid_fm47 = col_integer(),
      bsid_fm48 = col_integer(),
      bsid_fm49 = col_integer(),
      bsid_fm50 = col_integer(),
      bsid_fm51 = col_integer(),
      bsid_fm52 = col_integer(),
      bsid_fm53 = col_integer(),
      bsid_fm54 = col_integer(),
      bsid_fm55 = col_integer(),
      bsid_fm56 = col_integer(),
      bsid_fm57 = col_integer(),
      bsid_fm58 = col_integer(),
      bsid_fm59 = col_integer(),
      bsid_fm60 = col_integer(),
      bsid_fm61 = col_integer(),
      bsid_fm62 = col_integer(),
      bsid_fm63 = col_integer(),
      bsid_fm64 = col_integer(),
      bsid_fm65 = col_integer(),
      bsid_fm66 = col_integer(),
      bsid_fm_comment = col_character(),
      bsid_gsm01 = col_integer(),
      bsid_gsm02 = col_integer(),
      bsid_gsm03 = col_integer(),
      bsid_gsm04 = col_integer(),
      bsid_gsm05 = col_integer(),
      bsid_gsm06 = col_integer(),
      bsid_gsm07 = col_integer(),
      bsid_gsm08 = col_integer(),
      bsid_gsm09 = col_integer(),
      bsid_gsm10 = col_integer(),
      bsid_gsm11 = col_integer(),
      bsid_gsm12 = col_integer(),
      bsid_gsm13 = col_integer(),
      bsid_gsm14 = col_integer(),
      bsid_gsm15 = col_integer(),
      bsid_gsm16 = col_integer(),
      bsid_gsm17 = col_integer(),
      bsid_gsm18 = col_integer(),
      bsid_gsm19 = col_integer(),
      bsid_gsm20 = col_integer(),
      bsid_gsm21 = col_integer(),
      bsid_gsm22 = col_integer(),
      bsid_gsm23 = col_integer(),
      bsid_gsm24 = col_integer(),
      bsid_gsm25 = col_integer(),
      bsid_gsm26 = col_integer(),
      bsid_gsm27 = col_integer(),
      bsid_gsm28 = col_integer(),
      bsid_gsm29 = col_integer(),
      bsid_gsm30 = col_integer(),
      bsid_gsm31 = col_integer(),
      bsid_gsm32 = col_integer(),
      bsid_gsm33 = col_integer(),
      bsid_gsm34 = col_integer(),
      bsid_gsm35 = col_integer(),
      bsid_gsm36 = col_integer(),
      bsid_gsm37 = col_integer(),
      bsid_gsm38 = col_integer(),
      bsid_gsm39 = col_integer(),
      bsid_gsm40 = col_integer(),
      bsid_gsm41 = col_integer(),
      bsid_gsm42 = col_integer(),
      bsid_gsm43 = col_integer(),
      bsid_gsm44 = col_integer(),
      bsid_gsm45 = col_integer(),
      bsid_gsm46 = col_integer(),
      bsid_gsm47 = col_integer(),
      bsid_gsm48 = col_integer(),
      bsid_gsm49 = col_integer(),
      bsid_gsm50 = col_integer(),
      bsid_gsm51 = col_integer(),
      bsid_gsm52 = col_integer(),
      bsid_gsm53 = col_integer(),
      bsid_gsm54 = col_integer(),
      bsid_gsm55 = col_integer(),
      bsid_gsm56 = col_integer(),
      bsid_gsm57 = col_integer(),
      bsid_gsm58 = col_integer(),
      bsid_gsm59 = col_integer(),
      bsid_gsm60 = col_integer(),
      bsid_gsm61 = col_integer(),
      bsid_gsm62 = col_integer(),
      bsid_gsm63 = col_integer(),
      bsid_gsm64 = col_integer(),
      bsid_gsm65 = col_integer(),
      bsid_gsm66 = col_integer(),
      bsid_gsm67 = col_integer(),
      bsid_gsm68 = col_integer(),
      bsid_gsm69 = col_integer(),
      bsid_gsm70 = col_integer(),
      bsid_gsm71 = col_integer(),
      bsid_gsm72 = col_integer(),
      bsid_motor_comment = col_character(),
      age_adj_premature = col_integer(),
      bsid_cog_raw = col_integer(),
      bsid_rc_raw = col_integer(),
      bsid_ec_raw = col_integer(),
      bsid_fm_raw = col_integer(),
      bsid_gm_raw = col_integer()
    )
  }

  if (ins == "bsid" && adm == "ban") {
    spec <- cols(
    Exaname = col_character(),
    st_country___bsid = col_integer(),
    GSED_ID = col_character(),
    screen_no__bsid = col_character(),
    date_of_visit = col_date(format = date_format),
    ra_code_bsid = col_integer(),
    visit_age_bsid = col_integer(),
    bsid_Cog1 = col_integer(),
    bsid_Cog2 = col_integer(),
    bsid_Cog3 = col_integer(),
    bsid_Cog4 = col_integer(),
    bsid_Cog5 = col_integer(),
    bsid_Cog6 = col_integer(),
    bsid_Cog7 = col_integer(),
    bsid_Cog8 = col_integer(),
    bsid_Cog9 = col_integer(),
    bsid_Cog10 = col_integer(),
    bsid_Cog11 = col_integer(),
    bsid_Cog12 = col_integer(),
    bsid_Cog13 = col_integer(),
    bsid_Cog14 = col_integer(),
    bsid_Cog15 = col_integer(),
    bsid_Cog16 = col_integer(),
    bsid_Cog17 = col_integer(),
    bsid_Cog18 = col_integer(),
    bsid_Cog19 = col_integer(),
    bsid_Cog20 = col_integer(),
    bsid_Cog21 = col_integer(),
    bsid_Cog22 = col_integer(),
    bsid_Cog23 = col_integer(),
    bsid_Cog24 = col_integer(),
    bsid_Cog25 = col_integer(),
    bsid_Cog26 = col_integer(),
    bsid_Cog27 = col_integer(),
    bsid_Cog28 = col_integer(),
    bsid_Cog29 = col_integer(),
    bsid_Cog30 = col_integer(),
    bsid_Cog31 = col_integer(),
    bsid_Cog32 = col_integer(),
    bsid_Cog33 = col_integer(),
    bsid_Cog34 = col_integer(),
    bsid_Cog35 = col_integer(),
    bsid_Cog36 = col_integer(),
    bsid_Cog37 = col_integer(),
    bsid_Cog38 = col_integer(),
    bsid_Cog39 = col_integer(),
    bsid_Cog40 = col_integer(),
    bsid_Cog41 = col_integer(),
    bsid_Cog42 = col_integer(),
    bsid_Cog43 = col_integer(),
    bsid_Cog44 = col_integer(),
    bsid_Cog45 = col_integer(),
    bsid_Cog46 = col_integer(),
    bsid_Cog47 = col_integer(),
    bsid_Cog48 = col_integer(),
    bsid_Cog49 = col_integer(),
    bsid_Cog50 = col_integer(),
    bsid_Cog51 = col_integer(),
    bsid_Cog52 = col_integer(),
    bsid_Cog53 = col_integer(),
    bsid_Cog54 = col_integer(),
    bsid_Cog55 = col_integer(),
    bsid_Cog56 = col_integer(),
    bsid_Cog57 = col_integer(),
    bsid_Cog58 = col_integer(),
    bsid_Cog59 = col_integer(),
    bsid_Cog60 = col_integer(),
    bsid_Cog61 = col_integer(),
    bsid_Cog62 = col_integer(),
    bsid_Cog63 = col_integer(),
    bsid_Cog64 = col_integer(),
    bsid_Cog65 = col_integer(),
    bsid_Cog66 = col_integer(),
    bsid_Cog67 = col_integer(),
    bsid_Cog68 = col_integer(),
    bsid_Cog69 = col_integer(),
    bsid_Cog70 = col_integer(),
    bsid_Cog71 = col_integer(),
    bsid_Cog72 = col_integer(),
    bsid_Cog73 = col_integer(),
    bsid_Cog74 = col_integer(),
    bsid_Cog75 = col_integer(),
    bsid_Cog76 = col_integer(),
    bsid_Cog77 = col_integer(),
    bsid_Cog78 = col_integer(),
    bsid_Cog79 = col_integer(),
    bsid_Cog80 = col_integer(),
    bsid_Cog81 = col_integer(),
    bsid_Cog82 = col_integer(),
    bsid_Cog83 = col_integer(),
    bsid_Cog84 = col_integer(),
    bsid_Cog85 = col_integer(),
    bsid_Cog86 = col_integer(),
    bsid_Cog87 = col_integer(),
    bsid_Cog88 = col_integer(),
    bsid_Cog89 = col_integer(),
    bsid_Cog90 = col_integer(),
    bsid_Cog91 = col_integer(),
    bsid_RC1 = col_integer(),
    bsid_RC2 = col_integer(),
    bsid_RC3 = col_integer(),
    bsid_RC4 = col_integer(),
    bsid_RC5 = col_integer(),
    bsid_RC6 = col_integer(),
    bsid_RC7 = col_integer(),
    bsid_RC8 = col_integer(),
    bsid_RC9 = col_integer(),
    bsid_RC10 = col_integer(),
    bsid_RC11 = col_integer(),
    bsid_RC12 = col_integer(),
    bsid_RC13 = col_integer(),
    bsid_RC14 = col_integer(),
    bsid_RC15 = col_integer(),
    bsid_RC16 = col_integer(),
    bsid_RC17 = col_integer(),
    bsid_RC18 = col_integer(),
    bsid_RC19 = col_integer(),
    bsid_RC20 = col_integer(),
    bsid_RC21 = col_integer(),
    bsid_RC22 = col_integer(),
    bsid_RC23 = col_integer(),
    bsid_RC24 = col_integer(),
    bsid_RC25 = col_integer(),
    bsid_RC26 = col_integer(),
    bsid_RC27 = col_integer(),
    bsid_RC28 = col_integer(),
    bsid_RC29 = col_integer(),
    bsid_RC30 = col_integer(),
    bsid_RC31 = col_integer(),
    bsid_RC32 = col_integer(),
    bsid_RC33 = col_integer(),
    bsid_RC34 = col_integer(),
    bsid_RC35 = col_integer(),
    bsid_RC36 = col_integer(),
    bsid_RC37 = col_integer(),
    bsid_RC38 = col_integer(),
    bsid_RC39 = col_integer(),
    bsid_RC40 = col_integer(),
    bsid_RC41 = col_integer(),
    bsid_RC42 = col_integer(),
    bsid_RC43 = col_integer(),
    bsid_RC44 = col_integer(),
    bsid_RC45 = col_integer(),
    bsid_RC46 = col_integer(),
    bsid_RC47 = col_integer(),
    bsid_RC48 = col_integer(),
    bsid_RC49 = col_integer(),
    bsid_EC1 = col_integer(),
    bsid_EC2 = col_integer(),
    bsid_EC3 = col_integer(),
    bsid_EC4 = col_integer(),
    bsid_EC5 = col_integer(),
    bsid_EC6 = col_integer(),
    bsid_EC7 = col_integer(),
    bsid_EC8 = col_integer(),
    bsid_EC9 = col_integer(),
    bsid_EC10 = col_integer(),
    bsid_EC11 = col_integer(),
    bsid_EC12 = col_integer(),
    bsid_EC13 = col_integer(),
    bsid_EC14 = col_integer(),
    bsid_EC15 = col_integer(),
    bsid_EC16 = col_integer(),
    bsid_EC17 = col_integer(),
    bsid_EC18 = col_integer(),
    bsid_EC19 = col_integer(),
    bsid_EC20 = col_integer(),
    bsid_EC21 = col_integer(),
    bsid_EC22 = col_integer(),
    bsid_EC23 = col_integer(),
    bsid_EC24 = col_integer(),
    bsid_EC25 = col_integer(),
    bsid_EC26 = col_integer(),
    bsid_EC27 = col_integer(),
    bsid_EC28 = col_integer(),
    bsid_EC29 = col_integer(),
    bsid_EC30 = col_integer(),
    bsid_EC31 = col_integer(),
    bsid_EC32 = col_integer(),
    bsid_EC33 = col_integer(),
    bsid_EC34 = col_integer(),
    bsid_EC35 = col_integer(),
    bsid_EC36 = col_integer(),
    bsid_EC37 = col_integer(),
    bsid_EC38 = col_integer(),
    bsid_EC39 = col_integer(),
    bsid_EC40 = col_integer(),
    bsid_EC41 = col_integer(),
    bsid_EC42 = col_integer(),
    bsid_EC43 = col_integer(),
    bsid_EC44 = col_integer(),
    bsid_EC45 = col_integer(),
    bsid_EC46 = col_integer(),
    bsid_EC47 = col_integer(),
    bsid_EC48 = col_integer(),
    bsid_FM1 = col_integer(),
    bsid_FM2 = col_integer(),
    bsid_FM3 = col_integer(),
    bsid_FM4 = col_integer(),
    bsid_FM5 = col_integer(),
    bsid_FM6 = col_integer(),
    bsid_FM7 = col_integer(),
    bsid_FM8 = col_integer(),
    bsid_FM9 = col_integer(),
    bsid_FM10 = col_integer(),
    bsid_FM11 = col_integer(),
    bsid_FM12 = col_integer(),
    bsid_FM13 = col_integer(),
    bsid_FM14 = col_integer(),
    bsid_FM15 = col_integer(),
    bsid_FM16 = col_integer(),
    bsid_FM17 = col_integer(),
    bsid_FM18 = col_integer(),
    bsid_FM19 = col_integer(),
    bsid_FM20 = col_integer(),
    bsid_FM21 = col_integer(),
    bsid_FM22 = col_integer(),
    bsid_FM23 = col_integer(),
    bsid_FM24 = col_integer(),
    bsid_FM25 = col_integer(),
    bsid_FM26 = col_integer(),
    bsid_FM27 = col_integer(),
    bsid_FM28 = col_integer(),
    bsid_FM29 = col_integer(),
    bsid_FM30 = col_integer(),
    bsid_FM31 = col_integer(),
    bsid_FM32 = col_integer(),
    bsid_FM33 = col_integer(),
    bsid_FM34 = col_integer(),
    bsid_FM35 = col_integer(),
    bsid_FM36 = col_integer(),
    bsid_FM37 = col_integer(),
    bsid_FM38 = col_integer(),
    bsid_FM39 = col_integer(),
    bsid_FM40 = col_integer(),
    bsid_FM41 = col_integer(),
    bsid_FM42 = col_integer(),
    bsid_FM43 = col_integer(),
    bsid_FM44 = col_integer(),
    bsid_FM45 = col_integer(),
    bsid_FM46 = col_integer(),
    bsid_FM47 = col_integer(),
    bsid_FM48 = col_integer(),
    bsid_FM49 = col_integer(),
    bsid_FM50 = col_integer(),
    bsid_FM51 = col_integer(),
    bsid_FM52 = col_integer(),
    bsid_FM53 = col_integer(),
    bsid_FM54 = col_integer(),
    bsid_FM55 = col_integer(),
    bsid_FM56 = col_integer(),
    bsid_FM57 = col_integer(),
    bsid_FM58 = col_integer(),
    bsid_FM59 = col_integer(),
    bsid_FM60 = col_integer(),
    bsid_FM61 = col_integer(),
    bsid_FM62 = col_integer(),
    bsid_FM63 = col_integer(),
    bsid_FM64 = col_integer(),
    bsid_FM65 = col_integer(),
    bsid_FM66 = col_integer(),
    bsid_GSM1 = col_integer(),
    bsid_GSM2 = col_integer(),
    bsid_GSM3 = col_integer(),
    bsid_GSM4 = col_integer(),
    bsid_GSM5 = col_integer(),
    bsid_GSM6 = col_integer(),
    bsid_GSM7 = col_integer(),
    bsid_GSM8 = col_integer(),
    bsid_GSM9 = col_integer(),
    bsid_GSM10 = col_integer(),
    bsid_GSM11 = col_integer(),
    bsid_GSM12 = col_integer(),
    bsid_GSM13 = col_integer(),
    bsid_GSM14 = col_integer(),
    bsid_GSM15 = col_integer(),
    bsid_GSM16 = col_integer(),
    bsid_GSM17 = col_integer(),
    bsid_GSM18 = col_integer(),
    bsid_GSM19 = col_integer(),
    bsid_GSM20 = col_integer(),
    bsid_GSM21 = col_integer(),
    bsid_GSM22 = col_integer(),
    bsid_GSM23 = col_integer(),
    bsid_GSM24 = col_integer(),
    bsid_GSM25 = col_integer(),
    bsid_GSM26 = col_integer(),
    bsid_GSM27 = col_integer(),
    bsid_GSM28 = col_integer(),
    bsid_GSM29 = col_integer(),
    bsid_GSM30 = col_integer(),
    bsid_GSM31 = col_integer(),
    bsid_GSM32 = col_integer(),
    bsid_GSM33 = col_integer(),
    bsid_GSM34 = col_integer(),
    bsid_GSM35 = col_integer(),
    bsid_GSM36 = col_integer(),
    bsid_GSM37 = col_integer(),
    bsid_GSM38 = col_integer(),
    bsid_GSM39 = col_integer(),
    bsid_GSM40 = col_integer(),
    bsid_GSM41 = col_integer(),
    bsid_GSM42 = col_integer(),
    bsid_GSM43 = col_integer(),
    bsid_GSM44 = col_integer(),
    bsid_GSM45 = col_integer(),
    bsid_GSM46 = col_integer(),
    bsid_GSM47 = col_integer(),
    bsid_GSM48 = col_integer(),
    bsid_GSM49 = col_integer(),
    bsid_GSM50 = col_integer(),
    bsid_GSM51 = col_integer(),
    bsid_GSM52 = col_integer(),
    bsid_GSM53 = col_integer(),
    bsid_GSM54 = col_integer(),
    bsid_GSM55 = col_integer(),
    bsid_GSM56 = col_integer(),
    bsid_GSM57 = col_integer(),
    bsid_GSM58 = col_integer(),
    bsid_GSM59 = col_integer(),
    bsid_GSM60 = col_integer(),
    bsid_GSM61 = col_integer(),
    bsid_GSM62 = col_integer(),
    bsid_GSM63 = col_integer(),
    bsid_GSM64 = col_integer(),
    bsid_GSM65 = col_integer(),
    bsid_GSM66 = col_integer(),
    bsid_GSM67 = col_integer(),
    bsid_GSM68 = col_integer(),
    bsid_GSM69 = col_integer(),
    bsid_GSM70 = col_integer(),
    bsid_GSM71 = col_integer(),
    bsid_GSM72 = col_integer(),
    age_adj_premature = col_integer(),
    bsid_cog_raw = col_integer(),
    bsid_rc_raw = col_integer(),
    bsid_ec_raw = col_integer(),
    bsid_fm_raw = col_integer(),
    bsid_gm_raw = col_integer()
  )
}

  return(spec)
}
D-score/gsedread documentation built on April 19, 2023, 8:59 a.m.