############################################################################ # PROGRAM: NISPUF10.R # # # # PURPOSE: THIS R PROGRAM CREATES A PERMANENT R DATASET # # FROM THE 2010 NIS PUBLIC-USE ASCII FILE # # # # NOTES: THIS PROGRAM IS DIVIDED INTO SEVEN STEPS AS FOLLOWS: # # # # STEP 1: LOAD AN R PACKAGE AND ASSIGN FILE NAMES # # # # ONE R PACKAGE FOR TWO FUNCTIONS (CONTENTS, WTD.TABLE) # # WILL BE LOADED # # THE USER CAN ENTER THE PATH TO THE ASCII DATA FILE AND # # THE PATH WHERE THE R DATASET WILL BE CREATED # # # # STEP 2: CREATE FORMATS # # # # STEP 3: READ THE FLAT DATA FILE # # # # STEP 4: ASSIGN VARIABLE LABELS # # # # STEP 5: CREATE A PERMANENT R DATASET # # # # STEP 6: ASSIGN FORMATS # # # # FORMATS ARE APPLICABLE ONLY TO CATEGORICAL VARIABLES IN R # # # # STEP 7: CONTENTS AND STATISTICAL ESTIMATES(FREQUENCY) EXAMPLE # # # ############################################################################ ############################################################################ # Step 1: LOAD R PACKAGES AND ASSIGN FILE NAMES # ############################################################################ #Users may need to install the Hmisc library before invoking it. library(Hmisc) #TO USE contents() #---USE SLASH(/) TO SEPERATE A FILE PATH---# PUF <- "path-to-data" flatfile <- "path-to-file/NISPUF10.DAT" ############################################################################ # Step 2: CREATE FORMATS # ############################################################################ AGEGRPlevels=c(1,2,3) AGEGRPlabels=c("19 - 23 MONTHS", "24 - 29 MONTHS", "30 - 35 MONTHS") LANGUAGElevels=c(1,2,3) LANGUAGElabels=c("ENGLISH", "SPANISH", "OTHER") YNDKRFlevels=c(1,2,77,99) YNDKRFlabels=c("YES", "NO", "DON'T KNOW", "REFUSED") SHOTCOUNlevels=c(77,88,99) SHOTCOUNlabels=c("DON'T KNOW", "1+ BUT UNKNOWN NUMBER", "REFUSED") SCUTDlevels=c(1,2,77,88,99) SCUTDlabels=c("UTD / SC", "NOT UTD / SC", "DON'T KNOW", "UNKNOWN", "REFUSED") HHNUMlevels=c(0,1,50,77,99) HHNUMlabels=c("NONE", "AT LEAST ONE", "ALL", "DON'T KNOW", "REFUSED") YNlevels=c(1,2) YNlabels=c("YES", "NO") SHOTCARDlevels=c(1,2) SHOTCARDlabels=c("SHOTCARD", "NO SHOTCARD") Ylevels=c(1) Ylabels=c("YES") CHILDNMlevels=c(1,2,3,77,99) CHILDNMlabels=c("ONE", "TWO OR THREE", "FOUR OR MORE", "DON'T KNOW", "REFUSED") CWIClevels=c(1,2,3,77,99) CWIClabels=c("YES", "NO", "NEVER HEARD OF WIC", "DON'T KNOW", "REFUSED") EDUC1_levels=c(1,2,3,4,77,99) EDUC1_labels=c("< 12 YEARS", "12 YEARS", "> 12 YEARS, NON-COLLEGE GRAD", "COLLEGE GRAD", "DON'T KNOW", "REFUSED") HISPlevels=c(1,2,3,4,5) HISPlabels=c("HISPANIC", "NON-HISPANIC", "OTHER", "DON'T KNOW", "REFUSED") MAGEGRPlevels=c(1,2,3,77,99) MAGEGRPlabels=c("<= 19 YEARS", "20 - 29 YEARS", ">= 30 YEARS", "DON'T KNOW", "REFUSED") MOBILlevels=c(1,2,77,99) MOBILlabels=c("MOVED FROM DIFFERENT STATE", "DID NOT MOVE FROM DIFFERENT STATE", "DON'T KNOW", "REFUSED") SEXlevels=c(1,2,77,99) SEXlabels=c("MALE", "FEMALE", "DON'T KNOW", "REFUSED") INCPOVlevels=c(1,2,3,4) INCPOVlabels=c("ABOVE POVERTY, > $75K", "ABOVE POVERTY, <= $75K", "BELOW POVERTY", "UNKNOWN") DISPlevels=c(1,10,11,2,3,4,5,6,7,8,9) DISPlabels=c("COMPLETE PROVIDER INFO, NO PROBLEMS", "INCOMPLETE PROVIDER RESP, HH NOT EXACT", "INCOMPLETE PROVIDER RESP, HH WITHOUT SHOT CARD", "COMPLETE PROVIDER INFO, NO SHOT CARD", "COMPLETE PROVIDER INFO, POOR HISTORY", "COMPLETE PROVIDER INFO, POOR HIST/OTHER", "INCOMPLETE PROVIDER RESP, BUT 4:3:1:3:3 INDICATED", "INCOMPLETE PROVIDER RESP, INFO MATCHES", "INCOMPLETE PROVIDER RESP, HISTORY UNKNOWN", "INCOMPLETE PROVIDER RESP, 4:3:1:3:3 WITH HH", "INCOMPLETE PROVIDER RESP, MATCHES HH") HASPDA2Flevels=c(1,2) HASPDA2Flabels=c("CHILD HAS ADEQUATE PROVIDER DATA OR ZERO VACCINATIONS", "CHILD DOES NOT HAVE ADEQUATE PROVIDER DATA") PROVIDlevels=c(1,2,3,4,5,6,7) PROVIDlabels=c("ALL PUBLIC FACILITIES", "ALL HOSPITAL FACILITIES", "ALL PRIVATE FACILITIES", "ALL MILITARY/OTHER FACILITIES", "MIXED", "TYPE OF PROVIDER UNKNOWN", "ALL WIC CLINIC PROVIDERS") REGISTRYlevels=c(1,2,3,4) REGISTRYlabels=c("ALL PROVIDERS", "SOME BUT POSSIBLY OR DEFINITELY NOT ALL PROVIDERS", "NO PROVIDERS", "UNKNOWN/DON'T KNOW") TYPElevels=c("","01","02","03","04","05","07","08","1L","1M","1N","20","21","22","30","31","32","33","43","44","60","70","71","72","73","74","BC","D3","DH","DK","FL","FM","FN","FO","H2","HA","HB","HG","HI","HM","HS","MA","MB","MM","MP","NC","OT","RB","RG", "RM","RO","TY","UN","VA","VM","VO","YF") TYPElabels=c("MISSING", "DT", "DTP", "DTP-UNKNOWN", "DTAP", "DTP-HIB", "DTAP-HIB", "DTAP-HEPB-IPV", "H1N1 FLU-UNKNOWN", "H1N1 FLU SPRAY", "H1N1 FLU INJECTED", "OPV", "IPV", "POLIO-UNKNOWN", "MMR", "MEASLES ONLY", "MEASLES-MUMPS", "MEASLES-RUBELLA", "HEPB-HIB", "HIB ONLY-UNKNOWN", "HEPB ONLY", "PCV CONJUGATE-UNKNOWN", "PCV POLYSACCHARIDE", "PCV-UNKNOWN", "PCV CONJUGATE-7", "PCV CONJUGATE-13", "BCG (TUBERCULOSIS)", "DTAP-IPV-HIB", "DTP-HEPB", "DON'T KNOW", "SEASONAL FLU-UNKNOWN", "SEASONAL FLU SPRAY", "SEASONAL FLU INJECTED", "FOUR-IN-ONE", "HIB (SANOFI OR GLAXOSMITHKLINE)", "HEPA", "HEPB-UNKNOWN", "HIB (GLAXOSMITHKLINE)", "HIB-UNKNOWN", "HIB (MERCK)", "HIB (SANOFI)", "MALARIA", "MUMPS-RUBELLA", "MCV-UNKNOWN", "MUMPS", "NEVER CODABLE", "OTHER", "RUBELLA", "ROTARIX (GSK)", "ROTATEQ (MERCK)", "ROTAVIRUS-UNKNOWN", "TYPHOID", "UNCODABLE", "VARICELLA-UNKNOWN", "MMR-VARICELLA", "VARICELLA-ONLY", "YELLOW FEVER") HEPBRTlevels=c(1,2) HEPBRTlabels=c("AT LEAST ONE PROVIDER CHECKED GIVEN AT BIRTH", "NO PROVIDERS CHECKED GIVEN AT BIRTH") HEPFLGlevels=c(1,2) HEPFLGlabels=c("HEPB BIRTH SHOT DATE IMPUTED FROM SHOTCARD", "HEPB BIRTH SHOT DATE IMPUTED FROM DISTRIBUTION OF BIRTH DOSE DATES") UTDlevels=c(0,1) UTDlabels=c("NOT UTD", "UTD") CENREGlevels=c(1,2,3,4) CENREGlabels=c("NORTHEAST", "MIDWEST", "SOUTH", "WEST") STATElevels=c(1,10,11,12,13,14,15,16,17,18,19,2,20,21,22,23,24,25,26,27,28,29,3,30,31,32,33,34,35,36,37,38,39,4,40,41,42,43,44,45,46,47,48,49,5,50,51,52,53,54,55,56,6,7,78,8,9) STATElabels=c("ALABAMA", "DELAWARE", "DISTRICT OF COLUMBIA", "FLORIDA", "GEORGIA", "", "HAWAII", "IDAHO", "ILLINOIS", "INDIANA", "IOWA", "ALASKA", "KANSAS", "KENTUCKY", "LOUISIANA", "MAINE", "MARYLAND", "MASSACHUSETTS", "MICHIGAN", "MINNESOTA", "MISSISSIPPI", "MISSOURI", "", "MONTANA", "NEBRASKA", "NEVADA", "NEW HAMPSHIRE", "NEW JERSEY", "NEW MEXICO", "NEW YORK", "NORTH CAROLINA", "NORTH DAKOTA", "OHIO", "ARIZONA", "OKLAHOMA", "OREGON", "PENNSYLVANIA", "", "RHODE ISLAND", "SOUTH CAROLINA", "SOUTH DAKOTA", "TENNESSEE", "TEXAS", "UTAH", "ARKANSAS", "VERMONT", "VIRGINIA", "", "WASHINGTON", "WEST VIRGINIA", "WISCONSIN", "WYOMING", "CALIFORNIA", "", "U.S. VIRGIN ISLANDS", "COLORADO", "CONNECTICUT") FLUUTDlevels=c(1,2,3) FLUUTDlabels=c("VACCINATED", "NOT VACCINATED", "NOT ELIGIBLE") RACE_PUFlevels=c(1,2,3) RACE_PUFlabels=c("WHITE ONLY", "BLACK ONLY", "OTHER + MULTIPLE RACE") AGECPOXRlevels=c(1,2,3,4) AGECPOXRlabels=c("0 TO 6 MONTHS OLD", "7 TO 12 MONTHS OLD", "13 TO 18 MONTHS OLD", "19+ MONTHS OLD") C1Rlevels=c(1,2,3,4,5,6,7,8) C1Rlabels=c("1", "2", "3", "4", "5", "6", "7", "8+") C5Rlevels=c(1,2,3,4,77,99) C5Rlabels=c("MOTHER (STEP, FOSTER, ADOPTIVE) OR FEMALE GUARDIAN", "FATHER (STEP, FOSTER, ADOPTIVE) OR MALE GUARDIAN", "GRANDPARENT", "OTHER FAMILY MEMBER/FRIEND", "DON'T KNOW", "REFUSED") INCQ298Alevels=c(10,11,12,13,14,3,4,5,6,7,77,8,9,99) INCQ298Alabels=c("$35001 - $40000", "$40001 - $50000", "$50001 - $60000", "$60001 - $75000", "$75001+", "$0 - $7500", "$7501 - $10000", "$10001 - $17500", "$17501 - $20000", "$20001 - $25000", "DON'T KNOW", "$25001 - $30000", "$30001 - $35000", "REFUSED") RACEETHKlevels=c(1,2,3,4) RACEETHKlabels=c("HISPANIC", "NON-HISPANIC WHITE ONLY", "NON-HISPANIC BLACK ONLY", "NON-HISPANIC OTHER + MULTIPLE RACE") D6Rlevels=c(0,1,2,3) D6Rlabels=c("0", "1", "2", "3+") FRSTBRNlevels=c(1,2,77,99) FRSTBRNlabels=c("NO", "YES", "DON'T KNOW", "REFUSED") CHARIDlevels=c( ) CHARIDlabels=c("MISSING") BFFORM08Flevels=c(888) BFFORM08Flabels=c("NEVER FED FORMULA") RENTOWNlevels=c(1,2,3,77,99) RENTOWNlabels=c("OWNED OR BEING BOUGHT", "RENTED", "OTHER ARRANGMENT", "DON'T KNOW", "REFUSED") NUM_PHONlevels=c(1,2,3,4,77,99) NUM_PHONlabels=c("ONE", "TWO", "THREE OR MORE", "NONE", "DON'T KNOW", "REFUSED") INS_STATlevels=c(1,2,3) INS_STATlabels=c("YES", "NO", "NOT ASCERTAINED") MAR_PUF2_levels=c(1,2) MAR_PUF2_labels=c("MARRIED", "NEVER MARRIED/WIDOWED/DIVORCED/SEPARATED/DECEASED") ESTIAP10Flevels=c(1,10,102,11,12,13,14,16,17,18,19,2,20,22,25,27,28,29,30,31,34,35,36,38,4,40,41,44,46,47,49,5,50,51,52,53,54,55,56,57,58,59,6,60,61,62,63,64,65,66,68,69,7,72,73,74,75,76,8,95,97) ESTIAP10Flabels=c("CT", "NY-REST OF STATE", "WA-WESTERN WA", "NY-CITY OF NEW YORK", "DC", "DE", "MD", "PA-REST OF STATE", "PA-PHILADELPHIA COUNTY", "VA", "WV", "MA", "AL", "FL", "GA", "KY", "MS", "NC", "SC", "TN", "IL-REST OF STATE", "IL-CITY OF CHICAGO", "IN", "MI", "ME", "MN", "OH", "WI", "AR", "LA", "NM", "NH", "OK", "TX-REST OF STATE", "TX-DALLAS COUNTY", "TX-EL PASO COUNTY", "TX-CITY OF HOUSTON", "TX-BEXAR COUNTY", "IA", "KS", "MO", "NE", "RI", "CO", "MT", "ND", "SD", "UT", "WY", "AZ", "CA-REST OF STATE", "CA-LOS ANGELES COUNTY", "VT", "HI", "NV", "AK", "ID", "OR", "NJ", "US VIRGIN ISLANDS", "WA-EASTERN WA") UTDPCVBlevels=c(1,2,3) UTDPCVBlabels=c("4+ PCV7 PLUS 1+ PCV13", "4+ PCV7, NO FOLLOWING PCV13, WITH TYPE OF ALL VACCINES (IF ANY) FOLLOWING THE 4 PCV7 KNOWN", "ALL OTHERS WITH ADEQUATE PROVIDER DATA") ############################################################################ # Step 3: READ THE FLAT DATA FILE # ############################################################################ LIST.NAMEWIDTH <- c("SEQNUMC",6, "SEQNUMHH",5, "PDAT",1, "PROVWT",20, "PROVWTVI",20, "RDDWT",19, "RDDWTVI",19, "YEAR",4, "AGECPOXR",1, "SC_431",2, "SC_4313",2, "SC_43133",2, "SC_DTP",2, "SC_HEPB",2, "SC_HIB",2, "SC_MCV",2, "SC_POL",2, "SC_VRC",2, "HH_DTP",2, "HH_HEPB",2, "HH_HIB",2, "HH_MCV",2, "HH_POL",2, "HH_VRC",2, "HH_FLU",2, "HH_H1N",2, "HAD_CPOX",2, "SHOTCARD",1, "AGEGRP",1, "BF_ENDR06",8, "BF_EXCLR06",8, "BF_FORMR08",8, "BFENDFL06",1, "BFFORMFL06",1, "C1R",1, "C5R",2, "CBF_01",2, "CEN_REG",1, "CHILDNM",1, "CWIC_01",2, "CWIC_02",2, "EDUC1",1, "FRSTBRN",1, "I_HISP_K",1, "INCPORAR",16, "INCPOV1",1, "INCQ298A",2, "INTRP",1, "LANGUAGE",1, "M_AGEGRP",1, "MARITAL2",1, "MOBIL_I",1, "NUM_PHONE",2, "NUM_CELLS_HH",2, "NUM_CELLS_PARENTS",2, "RACE_K",1, "RACEETHK",1, "RENT_OWN",2, "SEX",1, "ESTIAP10",3, "STATE",2, "D6R",1, "D7",1, "DISPCODE",2, "N_PRVR",1, "PROV_FAC",1, "REGISTRY",1, "VFC_ORDER",1, "HEP_BRTH",1, "HEP_FLAG",1, "P_NUHEPX",1, "P_NUHIBX",1, "P_NUHPHB",1, "P_NUMDAH",1, "P_NUMDHI",1, "P_NUMDIH",1, "P_NUMDTA",1, "P_NUMDTP",1, "P_NUMFLU",1, "P_NUMFLUL",1, "P_NUMFLUM",1, "P_NUMFLUN",1, "P_NUMH1N",1, "P_NUM1L",1, "P_NUM1M",1, "P_NUM1N",1, "P_NUMHEA",1, "P_NUMHEN",1, "P_NUMHEP",1, "P_NUMHIB",1, "P_NUMHIN",1, "P_NUMHION",1, "P_NUMHM",1, "P_NUMHG",1, "P_NUMHS",1, "P_NUMIPV",1, "P_NUMMCN",1, "P_NUMMMR",1, "P_NUMMMRX",1, "P_NUMMMX",1, "P_NUMMP",1, "P_NUMMPR",1, "P_NUMMRV",1, "P_NUMMS",1, "P_NUMMSM",1, "P_NUMMSR",1, "P_NUMOLN",1, "P_NUMOPV",1, "P_NUMPCV",1, "P_NUMPCP",1, "P_NUMPCC",1, "P_NUMPCC7",1, "P_NUMPCC13",1, "P_NUMPCCN",1, "P_NUMPCN",1, "P_NUMPOL",1, "P_NUMRB",1, "P_NUMRG",1, "P_NUMRM",1, "P_NUMRO",1, "P_NUMROT",1, "P_NUMTPN",1, "P_NUMVRC",1, "P_NUMVRN",1, "P_NUMVRX",1, "P_U12VRC",1, "P_UTD331",1, "P_UTD431",1, "P_UTDFL1",1, "P_UTDFL2",1, "P_UTDFL3",1, "P_UTDH1N_1",1, "P_UTDH1N_2",1, "P_UTDHEP",1, "P_UTDHEPA2",1, "P_UTDHIB",1, "P_UTDHIB_ROUT_S",1, "P_UTDHIB_SHORT_S",1, "P_UTDMCV",1, "P_UTDMMX",1, "P_UTDPC3",1, "P_UTDPCV",1, "P_UTDPCVB13",1, "P_UTDPOL",1, "P_UTDROT_S",1, "P_UTDTP3",1, "P_UTDTP4",1, "PU431331",1, "P_UTD431H31_ROUT_S",1, "PU431_31",1, "PU4313313",1, "P_UTD431H313_ROUT_S",1, "PU4313314",1, "P_UTD431H314_ROUT_S",1, "PU431_314",1, "PUT43133",1, "P_UTD431H3_ROUT_S",1, "PUTD4313",1, "P_UTD431H_ROUT_S",1, "DDTP1",4, "DDTP2",4, "DDTP3",4, "DDTP4",4, "DDTP5",4, "DDTP6",3, "DDTP7",1, "DDTP8",1, "DDTP9",1, "DFLU1",4, "DFLU2",4, "DFLU3",4, "DFLU4",4, "DFLU5",4, "DFLU6",4, "DFLU7",1, "DFLU8",1, "DFLU9",1, "DH1N1",4, "DH1N2",4, "DH1N3",4, "DH1N4",3, "DH1N5",1, "DH1N6",1, "DH1N7",1, "DH1N8",1, "DH1N9",1, "DHEPA1",4, "DHEPA2",4, "DHEPA3",4, "DHEPA4",3, "DHEPA5",1, "DHEPA6",1, "DHEPA7",1, "DHEPA8",1, "DHEPA9",1, "DHEPB1",4, "DHEPB2",4, "DHEPB3",4, "DHEPB4",4, "DHEPB5",4, "DHEPB6",3, "DHEPB7",1, "DHEPB8",1, "DHEPB9",1, "DHIB1",4, "DHIB2",4, "DHIB3",4, "DHIB4",4, "DHIB5",4, "DHIB6",3, "DHIB7",1, "DHIB8",1, "DHIB9",1, "DMMR1",4, "DMMR2",4, "DMMR3",3, "DMMR4",1, "DMMR5",1, "DMMR6",1, "DMMR7",1, "DMMR8",1, "DMMR9",1, "DMP1",3, "DMP2",1, "DMP3",1, "DMP4",1, "DMP5",1, "DMP6",1, "DMP7",1, "DMP8",1, "DMP9",1, "DMPRB1",3, "DMPRB2",1, "DMPRB3",1, "DMPRB4",1, "DMPRB5",1, "DMPRB6",1, "DMPRB7",1, "DMPRB8",1, "DMPRB9",1, "DPCV1",4, "DPCV2",4, "DPCV3",4, "DPCV4",4, "DPCV5",4, "DPCV6",4, "DPCV7",1, "DPCV8",1, "DPCV9",1, "DPOLIO1",3, "DPOLIO2",4, "DPOLIO3",4, "DPOLIO4",4, "DPOLIO5",4, "DPOLIO6",3, "DPOLIO7",1, "DPOLIO8",1, "DPOLIO9",1, "DRB1",3, "DRB2",1, "DRB3",1, "DRB4",1, "DRB5",1, "DRB6",1, "DRB7",1, "DRB8",1, "DRB9",1, "DROT1",4, "DROT2",3, "DROT3",4, "DROT4",3, "DROT5",1, "DROT6",1, "DROT7",1, "DROT8",1, "DROT9",1, "DVRC1",4, "DVRC2",4, "DVRC3",1, "DVRC4",1, "DVRC5",1, "DVRC6",1, "DVRC7",1, "DVRC8",1, "DVRC9",1, "DTP1_AGE",2, "DTP2_AGE",2, "DTP3_AGE",2, "DTP4_AGE",2, "DTP5_AGE",2, "DTP6_AGE",2, "DTP7_AGE",1, "DTP8_AGE",1, "DTP9_AGE",1, "FLU1_AGE",2, "FLU2_AGE",2, "FLU3_AGE",2, "FLU4_AGE",2, "FLU5_AGE",2, "FLU6_AGE",2, "FLU7_AGE",1, "FLU8_AGE",1, "FLU9_AGE",1, "H1N1_AGE",2, "H1N2_AGE",2, "H1N3_AGE",2, "H1N4_AGE",2, "H1N5_AGE",1, "H1N6_AGE",1, "H1N7_AGE",1, "H1N8_AGE",1, "H1N9_AGE",1, "HEA1_AGE",2, "HEA2_AGE",2, "HEA3_AGE",2, "HEA4_AGE",2, "HEA5_AGE",1, "HEA6_AGE",1, "HEA7_AGE",1, "HEA8_AGE",1, "HEA9_AGE",1, "HEP1_AGE",2, "HEP2_AGE",2, "HEP3_AGE",2, "HEP4_AGE",2, "HEP5_AGE",2, "HEP6_AGE",2, "HEP7_AGE",1, "HEP8_AGE",1, "HEP9_AGE",1, "HIB1_AGE",2, "HIB2_AGE",2, "HIB3_AGE",2, "HIB4_AGE",2, "HIB5_AGE",2, "HIB6_AGE",2, "HIB7_AGE",1, "HIB8_AGE",1, "HIB9_AGE",1, "MMR1_AGE",2, "MMR2_AGE",2, "MMR3_AGE",2, "MMR4_AGE",1, "MMR5_AGE",1, "MMR6_AGE",1, "MMR7_AGE",1, "MMR8_AGE",1, "MMR9_AGE",1, "MP1_AGE",2, "MP2_AGE",1, "MP3_AGE",1, "MP4_AGE",1, "MP5_AGE",1, "MP6_AGE",1, "MP7_AGE",1, "MP8_AGE",1, "MP9_AGE",1, "MPR1_AGE",2, "MPR2_AGE",1, "MPR3_AGE",1, "MPR4_AGE",1, "MPR5_AGE",1, "MPR6_AGE",1, "MPR7_AGE",1, "MPR8_AGE",1, "MPR9_AGE",1, "PCV1_AGE",2, "PCV2_AGE",2, "PCV3_AGE",2, "PCV4_AGE",2, "PCV5_AGE",2, "PCV6_AGE",2, "PCV7_AGE",1, "PCV8_AGE",1, "PCV9_AGE",1, "POL1_AGE",2, "POL2_AGE",2, "POL3_AGE",2, "POL4_AGE",2, "POL5_AGE",2, "POL6_AGE",2, "POL7_AGE",1, "POL8_AGE",1, "POL9_AGE",1, "RB1_AGE",2, "RB2_AGE",1, "RB3_AGE",1, "RB4_AGE",1, "RB5_AGE",1, "RB6_AGE",1, "RB7_AGE",1, "RB8_AGE",1, "RB9_AGE",1, "ROT1_AGE",2, "ROT2_AGE",2, "ROT3_AGE",2, "ROT4_AGE",2, "ROT5_AGE",1, "ROT6_AGE",1, "ROT7_AGE",1, "ROT8_AGE",1, "ROT9_AGE",1, "VRC1_AGE",2, "VRC2_AGE",2, "VRC3_AGE",1, "VRC4_AGE",1, "VRC5_AGE",1, "VRC6_AGE",1, "VRC7_AGE",1, "VRC8_AGE",1, "VRC9_AGE",1, "XDTPTY1",2, "XDTPTY2",2, "XDTPTY3",2, "XDTPTY4",2, "XDTPTY5",2, "XDTPTY6",2, "XDTPTY7",1, "XDTPTY8",1, "XDTPTY9",1, "XFLUTY1",2, "XFLUTY2",2, "XFLUTY3",2, "XFLUTY4",2, "XFLUTY5",2, "XFLUTY6",2, "XFLUTY7",1, "XFLUTY8",1, "XFLUTY9",1, "XH1NTY1",2, "XH1NTY2",2, "XH1NTY3",2, "XH1NTY4",2, "XH1NTY5",1, "XH1NTY6",1, "XH1NTY7",1, "XH1NTY8",1, "XH1NTY9",1, "XHEPTY1",2, "XHEPTY2",2, "XHEPTY3",2, "XHEPTY4",2, "XHEPTY5",2, "XHEPTY6",2, "XHEPTY7",1, "XHEPTY8",1, "XHEPTY9",1, "XHIBTY1",2, "XHIBTY2",2, "XHIBTY3",2, "XHIBTY4",2, "XHIBTY5",2, "XHIBTY6",2, "XHIBTY7",1, "XHIBTY8",1, "XHIBTY9",1, "XMMRTY1",2, "XMMRTY2",2, "XMMRTY3",2, "XMMRTY4",1, "XMMRTY5",1, "XMMRTY6",1, "XMMRTY7",1, "XMMRTY8",1, "XMMRTY9",1, "XPCVTY1",2, "XPCVTY2",2, "XPCVTY3",2, "XPCVTY4",2, "XPCVTY5",2, "XPCVTY6",2, "XPCVTY7",1, "XPCVTY8",1, "XPCVTY9",1, "XPOLTY1",2, "XPOLTY2",2, "XPOLTY3",2, "XPOLTY4",2, "XPOLTY5",2, "XPOLTY6",2, "XPOLTY7",1, "XPOLTY8",1, "XPOLTY9",1, "XROTTY1",2, "XROTTY2",2, "XROTTY3",2, "XROTTY4",2, "XROTTY5",1, "XROTTY6",1, "XROTTY7",1, "XROTTY8",1, "XROTTY9",1, "XVRCTY1",2, "XVRCTY2",2, "XVRCTY3",1, "XVRCTY4",1, "XVRCTY5",1, "XVRCTY6",1, "XVRCTY7",1, "XVRCTY8",1, "XVRCTY9",1, "INS_1",2, "INS_2",2, "INS_3",2, "INS_3A",2, "INS_4_5",2, "INS_6",2, "INS_11",2, "VFC_I",1 ) NAMEWIDTH <- matrix(LIST.NAMEWIDTH, 509, 2, byrow=T, dimnames = list(NULL, c("VARIABLE","WIDTH"))) NA_STRING <- c(" ", ".", " .", " .", " .", " . ", " . ", " . ", " . ", " . ") NISPUF10 <- read.fwf(flatfile, widths= as.numeric(NAMEWIDTH[,2]), col.names = NAMEWIDTH[,1], na.strings= NA_STRING, as.is=TRUE) NISPUF10$SEQNUMC <- as.character(NISPUF10$SEQNUMC) NISPUF10$SEQNUMHH <- as.character(NISPUF10$SEQNUMHH) NISPUF10$XDTPTY1 <- as.character(NISPUF10$XDTPTY1) NISPUF10$XDTPTY2 <- as.character(NISPUF10$XDTPTY2) NISPUF10$XDTPTY3 <- as.character(NISPUF10$XDTPTY3) NISPUF10$XDTPTY4 <- as.character(NISPUF10$XDTPTY4) NISPUF10$XDTPTY5 <- as.character(NISPUF10$XDTPTY5) NISPUF10$XDTPTY6 <- as.character(NISPUF10$XDTPTY6) NISPUF10$XDTPTY7 <- as.character(NISPUF10$XDTPTY7) NISPUF10$XDTPTY8 <- as.character(NISPUF10$XDTPTY8) NISPUF10$XDTPTY9 <- as.character(NISPUF10$XDTPTY9) NISPUF10$XFLUTY1 <- as.character(NISPUF10$XFLUTY1) NISPUF10$XFLUTY2 <- as.character(NISPUF10$XFLUTY2) NISPUF10$XFLUTY3 <- as.character(NISPUF10$XFLUTY3) NISPUF10$XFLUTY4 <- as.character(NISPUF10$XFLUTY4) NISPUF10$XFLUTY5 <- as.character(NISPUF10$XFLUTY5) NISPUF10$XFLUTY6 <- as.character(NISPUF10$XFLUTY6) NISPUF10$XFLUTY7 <- as.character(NISPUF10$XFLUTY7) NISPUF10$XFLUTY8 <- as.character(NISPUF10$XFLUTY8) NISPUF10$XFLUTY9 <- as.character(NISPUF10$XFLUTY9) NISPUF10$XH1NTY1 <- as.character(NISPUF10$XH1NTY1) NISPUF10$XH1NTY2 <- as.character(NISPUF10$XH1NTY2) NISPUF10$XH1NTY3 <- as.character(NISPUF10$XH1NTY3) NISPUF10$XH1NTY4 <- as.character(NISPUF10$XH1NTY4) NISPUF10$XH1NTY5 <- as.character(NISPUF10$XH1NTY5) NISPUF10$XH1NTY6 <- as.character(NISPUF10$XH1NTY6) NISPUF10$XH1NTY7 <- as.character(NISPUF10$XH1NTY7) NISPUF10$XH1NTY8 <- as.character(NISPUF10$XH1NTY8) NISPUF10$XH1NTY9 <- as.character(NISPUF10$XH1NTY9) NISPUF10$XHEPTY1 <- as.character(NISPUF10$XHEPTY1) NISPUF10$XHEPTY2 <- as.character(NISPUF10$XHEPTY2) NISPUF10$XHEPTY3 <- as.character(NISPUF10$XHEPTY3) NISPUF10$XHEPTY4 <- as.character(NISPUF10$XHEPTY4) NISPUF10$XHEPTY5 <- as.character(NISPUF10$XHEPTY5) NISPUF10$XHEPTY6 <- as.character(NISPUF10$XHEPTY6) NISPUF10$XHEPTY7 <- as.character(NISPUF10$XHEPTY7) NISPUF10$XHEPTY8 <- as.character(NISPUF10$XHEPTY8) NISPUF10$XHEPTY9 <- as.character(NISPUF10$XHEPTY9) NISPUF10$XHIBTY1 <- as.character(NISPUF10$XHIBTY1) NISPUF10$XHIBTY2 <- as.character(NISPUF10$XHIBTY2) NISPUF10$XHIBTY3 <- as.character(NISPUF10$XHIBTY3) NISPUF10$XHIBTY4 <- as.character(NISPUF10$XHIBTY4) NISPUF10$XHIBTY5 <- as.character(NISPUF10$XHIBTY5) NISPUF10$XHIBTY6 <- as.character(NISPUF10$XHIBTY6) NISPUF10$XHIBTY7 <- as.character(NISPUF10$XHIBTY7) NISPUF10$XHIBTY8 <- as.character(NISPUF10$XHIBTY8) NISPUF10$XHIBTY9 <- as.character(NISPUF10$XHIBTY9) NISPUF10$XMMRTY1 <- as.character(NISPUF10$XMMRTY1) NISPUF10$XMMRTY2 <- as.character(NISPUF10$XMMRTY2) NISPUF10$XMMRTY3 <- as.character(NISPUF10$XMMRTY3) NISPUF10$XMMRTY4 <- as.character(NISPUF10$XMMRTY4) NISPUF10$XMMRTY5 <- as.character(NISPUF10$XMMRTY5) NISPUF10$XMMRTY6 <- as.character(NISPUF10$XMMRTY6) NISPUF10$XMMRTY7 <- as.character(NISPUF10$XMMRTY7) NISPUF10$XMMRTY8 <- as.character(NISPUF10$XMMRTY8) NISPUF10$XMMRTY9 <- as.character(NISPUF10$XMMRTY9) NISPUF10$XPCVTY1 <- as.character(NISPUF10$XPCVTY1) NISPUF10$XPCVTY2 <- as.character(NISPUF10$XPCVTY2) NISPUF10$XPCVTY3 <- as.character(NISPUF10$XPCVTY3) NISPUF10$XPCVTY4 <- as.character(NISPUF10$XPCVTY4) NISPUF10$XPCVTY5 <- as.character(NISPUF10$XPCVTY5) NISPUF10$XPCVTY6 <- as.character(NISPUF10$XPCVTY6) NISPUF10$XPCVTY7 <- as.character(NISPUF10$XPCVTY7) NISPUF10$XPCVTY8 <- as.character(NISPUF10$XPCVTY8) NISPUF10$XPCVTY9 <- as.character(NISPUF10$XPCVTY9) NISPUF10$XPOLTY1 <- as.character(NISPUF10$XPOLTY1) NISPUF10$XPOLTY2 <- as.character(NISPUF10$XPOLTY2) NISPUF10$XPOLTY3 <- as.character(NISPUF10$XPOLTY3) NISPUF10$XPOLTY4 <- as.character(NISPUF10$XPOLTY4) NISPUF10$XPOLTY5 <- as.character(NISPUF10$XPOLTY5) NISPUF10$XPOLTY6 <- as.character(NISPUF10$XPOLTY6) NISPUF10$XPOLTY7 <- as.character(NISPUF10$XPOLTY7) NISPUF10$XPOLTY8 <- as.character(NISPUF10$XPOLTY8) NISPUF10$XPOLTY9 <- as.character(NISPUF10$XPOLTY9) NISPUF10$XROTTY1 <- as.character(NISPUF10$XROTTY1) NISPUF10$XROTTY2 <- as.character(NISPUF10$XROTTY2) NISPUF10$XROTTY3 <- as.character(NISPUF10$XROTTY3) NISPUF10$XROTTY4 <- as.character(NISPUF10$XROTTY4) NISPUF10$XROTTY5 <- as.character(NISPUF10$XROTTY5) NISPUF10$XROTTY6 <- as.character(NISPUF10$XROTTY6) NISPUF10$XROTTY7 <- as.character(NISPUF10$XROTTY7) NISPUF10$XROTTY8 <- as.character(NISPUF10$XROTTY8) NISPUF10$XROTTY9 <- as.character(NISPUF10$XROTTY9) NISPUF10$XVRCTY1 <- as.character(NISPUF10$XVRCTY1) NISPUF10$XVRCTY2 <- as.character(NISPUF10$XVRCTY2) NISPUF10$XVRCTY3 <- as.character(NISPUF10$XVRCTY3) NISPUF10$XVRCTY4 <- as.character(NISPUF10$XVRCTY4) NISPUF10$XVRCTY5 <- as.character(NISPUF10$XVRCTY5) NISPUF10$XVRCTY6 <- as.character(NISPUF10$XVRCTY6) NISPUF10$XVRCTY7 <- as.character(NISPUF10$XVRCTY7) NISPUF10$XVRCTY8 <- as.character(NISPUF10$XVRCTY8) NISPUF10$XVRCTY9 <- as.character(NISPUF10$XVRCTY9) ############################################################################ # Step 4: ASSIGN VARIABLE LABELS # ############################################################################ label(NISPUF10$SEQNUMC) <- "UNIQUE CHILD IDENTIFIER" label(NISPUF10$SEQNUMHH) <- "UNIQUE HOUSEHOLD IDENTIFIER" label(NISPUF10$PDAT) <- "CHILD HAS ADEQUATE PROVIDER DATA" label(NISPUF10$PROVWT) <- "WEIGHT FOR CHILDREN WITH ADEQUATE PROVIDER DATA AND UNVACCINATED CHILDREN (EXCLUDING U.S. VIRGIN ISLANDS)" label(NISPUF10$PROVWTVI) <- "WEIGHT FOR CHILDREN WITH ADEQUATE PROVIDER DATA AND UNVACCINATED CHILDREN (INCLUDING U.S. VIRGIN ISLANDS)" label(NISPUF10$RDDWT) <- "HH-PHASE CHILD INTERVIEW WEIGHT (EXCLUDING U.S. VIRGIN ISLANDS)" label(NISPUF10$RDDWTVI) <- "HH-PHASE CHILD INTERVIEW WEIGHT (INCLUDING U.S. VIRGIN ISLANDS)" label(NISPUF10$YEAR) <- "YEAR OF INTERVIEW" label(NISPUF10$AGECPOXR) <- "AGE IN MONTHS AT CHICKEN POX DISEASE (RECODE)" label(NISPUF10$SC_431) <- "HH SHOT CARD REPORT OF 4:3:1 UP-TO-DATE" label(NISPUF10$SC_4313) <- "HH SHOT CARD REPORT OF 4:3:1:3 UP-TO-DATE" label(NISPUF10$SC_43133) <- "HH SHOT CARD REPORT OF 4:3:1:3:3 UP-TO-DATE" label(NISPUF10$SC_DTP) <- "HH SHOT CARD REPORT OF 4+ DT-CONTAINING UP-TO-DATE" label(NISPUF10$SC_HEPB) <- "HH SHOT CARD REPORT OF 3+ HEPATITIS B-CONTAINING UP-TO-DATE" label(NISPUF10$SC_HIB) <- "HH SHOT CARD REPORT OF 3+ HIB-CONTAINING UP-TO-DATE" label(NISPUF10$SC_MCV) <- "HH SHOT CARD REPORT OF 1+ MEASLES-CONTAINING UP-TO-DATE" label(NISPUF10$SC_POL) <- "HH SHOT CARD REPORT OF 3+ POLIO-CONTAINING UP-TO-DATE" label(NISPUF10$SC_VRC) <- "HH SHOT CARD REPORT OF 1+ VARICELLA-CONTAINING UP-TO-DATE" label(NISPUF10$HH_DTP) <- "HH REPORT OF NUMBER OF DT-CONTAINING SHOTS RECEIVED" label(NISPUF10$HH_HEPB) <- "HH REPORT OF NUMBER OF HEPATITIS B-CONTAINING SHOTS RECEIVED" label(NISPUF10$HH_HIB) <- "HH REPORT OF NUMBER OF HIB-CONTAINING SHOTS RECEIVED" label(NISPUF10$HH_MCV) <- "HH REPORT OF NUMBER OF MEASLES-CONTAINING SHOTS RECEIVED" label(NISPUF10$HH_POL) <- "HH REPORT OF NUMBER OF POLIO-CONTAINING SHOTS RECEIVED" label(NISPUF10$HH_VRC) <- "HH REPORT OF NUMBER OF VARICELLA-CONTAINING SHOTS RECEIVED" label(NISPUF10$HH_FLU) <- "HH REPORT OF NUMBER OF SEASONAL INFLUENZA-CONTAINING VACCINATIONS RECEIVED IN THE 12 MONTHS PRIOR TO INTERVIEW" label(NISPUF10$HH_H1N) <- "HH REPORT OF NUMBER OF MONOVALENT 2009 H1N1 INFLUENZA VACCINATIONS RECEIVED IN THE TWELVE MONTHS PRIOR TO INTERVIEW" label(NISPUF10$HAD_CPOX) <- "CHILD EVER HAD CHICKEN POX DISEASE?" label(NISPUF10$SHOTCARD) <- "SHOT CARD USE FLAG" label(NISPUF10$AGEGRP) <- "AGE CATEGORY OF CHILD (19-23, 24-29, 30-35 MO) (RECODE)" label(NISPUF10$BF_ENDR06) <- "DURATION OF BREAST FEEDING IN DAYS (RECODE)" label(NISPUF10$BF_EXCLR06) <- "DURATION OF EXCLUSIVE BREAST/FORMULA FEEDING IN DAYS (RECODE)" label(NISPUF10$BF_FORMR08) <- "AGE IN DAYS WHEN CHILD FIRST FED FORMULA (RECODE)" label(NISPUF10$BFENDFL06) <- "DURATION OF BREAST FEEDING EXCEEDS CHILD AGE IN DAYS, WITH BUFFER" label(NISPUF10$BFFORMFL06) <- "AGE IN DAYS WHEN CHILD FIRST FED FORMULA EXCEEDS CHILD AGE IN DAYS, WITH BUFFER" label(NISPUF10$C1R) <- "NUMBER OF PEOPLE IN HOUSEHOLD (RECODE)" label(NISPUF10$C5R) <- "RELATIONSHIP OF RESPONDENT TO CHILD (RECODE)" label(NISPUF10$CBF_01) <- "WAS CHILD EVER BREAST FED OR FED BREAST MILK?" label(NISPUF10$CEN_REG) <- "CENSUS REGION BASED ON TRUE STATE OF RESIDENCE" label(NISPUF10$CHILDNM) <- "NUMBER OF CHILDREN LESS THAN 18 YEARS IN HH (RECODE)" label(NISPUF10$CWIC_01) <- "CHILD EVER RECEIVED WIC BENEFITS?" label(NISPUF10$CWIC_02) <- "CHILD CURRENTLY RECEIVING WIC BENEFITS?" label(NISPUF10$EDUC1) <- "EDUCATION OF MOTHER CATEGORIES (RECODE)" label(NISPUF10$FRSTBRN) <- "FIRST BORN STATUS OF CHILD" label(NISPUF10$I_HISP_K) <- "HISPANIC ORIGIN OF CHILD" label(NISPUF10$INCPORAR) <- "INCOME TO POVERTY RATIO (RECODE)" label(NISPUF10$INCPOV1) <- "POVERTY STATUS" label(NISPUF10$INCQ298A) <- "FAMILY INCOME CATEGORIES (RECODE)" label(NISPUF10$INTRP) <- "PHONE INTERRUPTION OF 7 DAYS OR MORE IN PAST YEAR?" label(NISPUF10$LANGUAGE) <- "LANGUAGE IN WHICH INTERVIEW WAS CONDUCTED" label(NISPUF10$M_AGEGRP) <- "AGE OF MOTHER CATEGORIES (RECODE)" label(NISPUF10$MARITAL2) <- "MARITAL STATUS OF MOTHER (RECODE)" label(NISPUF10$MOBIL_I) <- "GEOGRAPHIC MOBILITY STATUS: STATE OF RESIDENCE OF CHILD AT BIRTH VERSUS CURRENT STATE" label(NISPUF10$NUM_PHONE) <- "NUMBER OF RESIDENTIAL TELEPHONE NUMBERS IN HOUSEHOLD (EXCLUDING CELL PHONES)" label(NISPUF10$NUM_CELLS_HH) <- "NUMBER OF WORKING CELL PHONES HOUSEHOLD MEMBERS HAVE AVAILABLE FOR PERSONAL USE" label(NISPUF10$NUM_CELLS_PARENTS) <- "NUMBER OF WORKING CELL PHONES USUALLY USED BY PARENTS OR GUARDIANS" label(NISPUF10$RACE_K) <- "RACE OF CHILD (RECODE)" label(NISPUF10$RACEETHK) <- "RACE/ETHNICITY OF CHILD (RECODE)" label(NISPUF10$RENT_OWN) <- "IS HOME OWNED/BEING BOUGHT, RENTED, OR OCCUPIED BY SOME OTHER ARRANGEMENT?" label(NISPUF10$SEX) <- "GENDER OF CHILD" label(NISPUF10$ESTIAP10) <- "ESTIMATION AREA OF RESIDENCE" label(NISPUF10$STATE) <- "TRUE STATE OF RESIDENCE (STATE FIPS CODE)" label(NISPUF10$D6R) <- "NUMBER OF VACCINATION PROVIDERS IDENTIFIED BY RESPONDENT (RECODE)" label(NISPUF10$D7) <- "CONSENT TO OBTAIN CHILD'S IMMUNIZATION RECORDS FROM PROVIDERS" label(NISPUF10$DISPCODE) <- "NIS PROVIDER RECORD-CHECK DISPOSITION CODE" label(NISPUF10$N_PRVR) <- "NUMBER OF PROVIDERS RESPONDING WITH VACCINATION DATA FOR CHILD (RECODE)" label(NISPUF10$PROV_FAC) <- "PROVIDER FACILITY TYPES" label(NISPUF10$REGISTRY) <- "CHILD'S PROVIDERS REPORTED CHILD'S VACCINATIONS TO IMMUNIZATION REGISTRY" label(NISPUF10$VFC_ORDER) <- "DO CHILD'S PROVIDERS ORDER VACCINES FROM STATE/LOCAL HEALTH DEPT?" label(NISPUF10$HEP_BRTH) <- "HEPATITIS B-CONTAINING SHOT GIVEN AT BIRTH FLAG" label(NISPUF10$HEP_FLAG) <- "HEPATITIS B BIRTH SHOT DATE IMPUTATION FLAG" label(NISPUF10$P_NUHEPX) <- "NUMBER OF HEPATITIS B-ONLY SHOTS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUHIBX) <- "NUMBER OF HIB-ONLY SHOTS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUHPHB) <- "NUMBER OF HEPATITIS B/HIB COMBO SHOTS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUMDAH) <- "NUMBER OF DTAP/HIB COMBO SHOTS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUMDHI) <- "NUMBER OF DTAP/HEPB/IPV COMBO SHOTS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUMDIH) <- "NUMBER OF DTAP/IPV/HIB COMBO SHOTS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$P_NUMDTA) <- "NUMBER OF DTAP-ONLY SHOTS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUMDTP) <- "NUMBER OF DT-CONTAINING SHOTS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUMFLU) <- "NUMBER OF SEASONAL FLU-CONTAINING VACCINATIONS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUMFLUL) <- "NUMBER OF SEASONAL FLU-CONTAINING VACCINATIONS OF UNKNOWN TYPE BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUMFLUM) <- "NUMBER OF SEASONAL FLU SPRAY VACCINATIONS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUMFLUN) <- "NUMBER OF INJECTED SEASONAL FLU VACCINATIONS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUMH1N) <- "NUMBER OF MONOVALENT 2009 H1N1 INFLUENZA VACCINATIONS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUM1L) <- "NUMBER OF MONOVALENT 2009 H1N1 INFLUENZA VACCINATIONS OF UNKNOWN TYPE BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUM1M) <- "NUMBER OF MONOVALENT 2009 H1N1 INFLUENZA SPRAY VACCINATIONS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUM1N) <- "NUMBER OF INJECTED MONOVALENT 2009 H1N1 INFLUENZA VACCINATIONS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUMHEA) <- "NUMBER OF HEPATITIS A-CONTAINING SHOTS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUMHEN) <- "NUMBER OF HEPATITIS B-CONTAINING SHOTS OF UNKNOWN TYPE BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUMHEP) <- "NUMBER OF HEPATITIS B-CONTAINING SHOTS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUMHIB) <- "NUMBER OF HIB-CONTAINING SHOTS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUMHIN) <- "NUMBER OF HIB-CONTAINING SHOTS OF UNKNOWN TYPE BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUMHION) <- "NUMBER OF HIB-ONLY SHOTS OF UNKNOWN TYPE BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$P_NUMHM) <- "NUMBER OF HIB-MERCK SHOTS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$P_NUMHG) <- "NUMBER OF HIB-GLAXOSMITHKLINE SHOTS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$P_NUMHS) <- "NUMBER OF HIB-SANOFI SHOTS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$P_NUMIPV) <- "NUMBER OF IPV-ONLY SHOTS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUMMCN) <- "NUMBER OF MEASLES-CONTAINING SHOTS OF UNKNOWN TYPE BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUMMMR) <- "NUMBER OF MEASLES-CONTAINING SHOTS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUMMMRX) <- "NUMBER OF MMR-ONLY SHOTS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUMMMX) <- "NUMBER OF MMR-CONTAINING SHOTS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUMMP) <- "NUMBER OF MUMPS-ONLY SHOTS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUMMPR) <- "NUMBER OF (MUMPS/RUBELLA)-ONLY SHOTS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUMMRV) <- "NUMBER OF MMR/VARICELLA COMBO SHOTS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUMMS) <- "NUMBER OF MEASLES-ONLY SHOTS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUMMSM) <- "NUMBER OF MEASLES/MUMPS COMBO SHOTS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUMMSR) <- "NUMBER OF MEASLES/RUBELLA COMBO SHOTS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUMOLN) <- "NUMBER OF POLIO SHOTS OF UNKNOWN TYPE BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUMOPV) <- "NUMBER OF OPV-ONLY SHOTS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUMPCV) <- "NUMBER OF PNEUMOCOCCAL-CONTAINING SHOTS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$P_NUMPCP) <- "NUMBER OF PNEUMOCOCCAL POLYSACCHARIDE SHOTS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$P_NUMPCC) <- "NUMBER OF PNEUMOCOCCAL CONJUGATE SHOTS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$P_NUMPCC7) <- "NUMBER OF PNEUMOCOCCAL CONJUGATE-7 SHOTS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$P_NUMPCC13) <- "NUMBER OF PNEUMOCOCCAL CONJUGATE-13 SHOTS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$P_NUMPCCN) <- "NUMBER OF PNEUMOCOCCAL CONJUGATE SHOTS OF UNKNOWN TYPE BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$P_NUMPCN) <- "NUMBER OF PNEUMOCOCCAL SHOTS OF UNKNOWN TYPE BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$P_NUMPOL) <- "NUMBER OF POLIO-CONTAINING SHOTS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUMRB) <- "NUMBER OF RUBELLA-ONLY SHOTS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUMRG) <- "NUMBER OF ROTARIX-GSK SHOTS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$P_NUMRM) <- "NUMBER OF ROTATEQ-MERCK SHOTS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$P_NUMRO) <- "NUMBER OF ROTAVIRUS SHOTS OF UNKNOWN TYPE BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$P_NUMROT) <- "NUMBER OF ROTAVIRUS-CONTAINING SHOTS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUMTPN) <- "NUMBER OF DT-CONTAINING SHOTS OF UNKNOWN TYPE BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUMVRC) <- "NUMBER OF VARICELLA-CONTAINING SHOTS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUMVRN) <- "NUMBER OF VARICELLA-CONTAINING SHOTS OF UNKNOWN TYPE BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_NUMVRX) <- "NUMBER OF VARICELLA-ONLY SHOTS BY 36 MONTHS OF AGE DETERMINED FROM PROVIDER INFO, EXCLUDING ANY VACCINATIONS AFTER THE HH INTERVIEW DATE." label(NISPUF10$P_U12VRC) <- "UTD (UP-TO-DATE) FLAG FOR PROVIDER 1+ VARICELLA-CONTAINING SHOT AT 12+ MONTHS OF AGE, BY 36 MONTHS OF AGE, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$P_UTD331) <- "UTD (UP-TO-DATE) FLAG FOR PROVIDER 3:3:1 BY 36 MONTHS OF AGE, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$P_UTD431) <- "UTD (UP-TO-DATE) FLAG FOR PROVIDER 4:3:1 BY 36 MONTHS OF AGE, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$P_UTDFL1) <- "UTD FLAG FOR PROVIDER SEASONAL INFLUENZA VARIABLE 1 BY 36 MONTHS OF AGE, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$P_UTDFL2) <- "UTD FLAG FOR PROVIDER SEASONAL INFLUENZA VARIABLE 2 BY 36 MONTHS OF AGE, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$P_UTDFL3) <- "UTD FLAG FOR PROVIDER SEASONAL INFLUENZA VARIABLE 3 BY 36 MONTHS OF AGE, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$P_UTDH1N_1) <- "UTD (UP-TO-DATE) FLAG FOR PROVIDER 1+ MONOVALENT 2009 H1N1 INFLUENZA VACCINATION BY 36 MONTHS OF AGE, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE AND EXCLUDING VACCINATIONS GIVEN PRIOR TO 10/5/2009." label(NISPUF10$P_UTDH1N_2) <- "UTD (UP-TO-DATE) FLAG FOR PROVIDER 2+ MONOVALENT 2009 H1N1 INFLUENZA VACCINATIONS BY 36 MONTHS OF AGE, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE AND EXCLUDING VACCINATIONS GIVEN PRIOR TO 10/5/2009." label(NISPUF10$P_UTDHEP) <- "UTD (UP-TO-DATE) FLAG FOR PROVIDER 3+ HEPATITIS B-CONTAINING SHOTS BY 36 MONTHS OF AGE, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$P_UTDHEPA2) <- "UTD (UP-TO-DATE) FLAG FOR PROVIDER 2+ HEPATITIS A-CONTAINING SHOTS BY 36 MONTHS OF AGE, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$P_UTDHIB) <- "UTD (UP-TO-DATE) FLAG FOR PROVIDER 3+ HIB-CONTAINING SHOTS BY 36 MONTHS OF AGE, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$P_UTDHIB_ROUT_S) <- "UTD (UP-TO-DATE) FLAG FOR PROVIDER 3+ HIB DOSES BY 36 MONTHS OF AGE, BASED ON THE ROUTINE (NON-SHORTAGE) HIB RECOMMENDATIONS AND A STRICT TREATMENT OF HIB SHOTS OF UNKNOWN TYPE, EXCLUDING ANY VACCINATIONS AFTER THE HOUSE HOLD INTERVIEW DATE." label(NISPUF10$P_UTDHIB_SHORT_S) <- "UTD (UP-TO-DATE) FLAG FOR PROVIDER 3+ HIB DOSES BY 36 MONTHS OF AGE, BASED ON THE HIB SHORTAGE RECOMMENDATIONS AND A STRICT TREATMENT OF HIB SHOTS OF UNKNOWN TYPE, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIE W DATE." label(NISPUF10$P_UTDMCV) <- "UTD (UP-TO-DATE) FLAG FOR PROVIDER 1+ MEASLES-CONTAINING SHOT BY 36 MONTHS OF AGE, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$P_UTDMMX) <- "UTD FLAG FOR PROVIDER 1+ MMR COMBO SHOT BY 36 MONTHS OF AGE, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$P_UTDPC3) <- "UTD (UP-TO-DATE) FLAG FOR PROVIDER 3+ PNEUMOCOCCAL-CONTAINING SHOTS BY 36 MONTHS OF AGE, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$P_UTDPCV) <- "UTD (UP-TO-DATE) FLAG FOR PROVIDER 4+ PNEUMOCOCCAL-CONTAINING SHOTS BY 36 MONTHS OF AGE, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$P_UTDPCVB13) <- "UTD (UP-TO-DATE) INDICATOR FOR PROVIDER 1+ PNEUMOCOCCAL VACCINATIONS OF TYPE CONJUGATE-13, GIVEN 4+ DOSES OF TYPE CONJUGATE-7, BY 36 MONTHS OF AGE, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$P_UTDPOL) <- "UTD (UP-TO-DATE) FLAG FOR PROVIDER 3+ POLIO-CONTAINING SHOTS BY 36 MONTHS OF AGE, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$P_UTDROT_S) <- "UTD (UP-TO-DATE) FLAG FOR PROVIDER 3+ ROTAVIRUS DOSES BY 36 MONTHS OF AGE, BASED ON A STRICT TREATMENT OF ROTAVIRUS VACCINATIONS OF UNKNOWN TYPE, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$P_UTDTP3) <- "UTD (UP-TO-DATE) FLAG FOR PROVIDER 3+ DT-CONTAINING SHOTS BY 36 MONTHS OF AGE, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$P_UTDTP4) <- "UTD (UP-TO-DATE) FLAG FOR PROVIDER 4+ DT-CONTAINING SHOTS BY 36 MONTHS OF AGE, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$PU431331) <- "UTD FLAG FOR PROVIDER 4:3:1:3:3:1 (INCLUDES 1+ VARICELLA AT AGE 12+ MTHS) BY 36 MONTHS OF AGE, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$P_UTD431H31_ROUT_S) <- "UTD (UP-TO-DATE) FLAG FOR PROVIDER 4:3:1:3:3:1 BY 36 MONTHS OF AGE (INCLUDES 1+ VARICELLA-CONTAINING AT AGE 12+ MTHS) USING THE ROUTINE, STRICT DEFINITION OF HIB UTD, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INT ERVIEW DATE." label(NISPUF10$PU431_31) <- "UTD FLAG FOR PROVIDER 4:3:1::3:1 (4:3:1:3:3:1 EXCLUDING HIB; INCLUDES 1+ VARICELLA AT AGE 12+ MTHS) BY 36 MONTHS OF AGE, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$PU4313313) <- "UTD FLAG FOR PROVIDER 4:3:1:3:3:1:3 (INCLUDES 1+ VARICELLA AT AGE 12+ MTHS) BY 36 MONTHS OF AGE, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$P_UTD431H313_ROUT_S) <- "UTD (UP-TO-DATE) FLAG FOR PROVIDER 4:3:1:3:3:1:3 BY 36 MONTHS OF AGE (INCLUDES 1+ VARICELLA-CONTAINING AT AGE 12+ MTHS) USING THE ROUTINE, STRICT DEFINITION OF HIB UTD, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$PU4313314) <- "UTD FLAG FOR PROVIDER 4:3:1:3:3:1:4 (INCLUDES 1+ VARICELLA AT AGE 12+ MTHS) BY 36 MONTHS OF AGE, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$P_UTD431H314_ROUT_S) <- "UTD (UP-TO-DATE) FLAG FOR PROVIDER 4:3:1:3:3:1:4 BY 36 MONTHS OF AGE (INCLUDES 1+ VARICELLA-CONTAINING AT AGE 12+ MTHS) USING THE ROUTINE, STRICT DEFINITION OF HIB UTD, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$PU431_314) <- "UTD FLAG FOR PROVIDER 4:3:1::3:1:4 (4:3:1:3:3:1:4 EXCLUDING HIB; INCLUDES 1+ VARICELLA AT AGE 12+ MTHS) BY 36 MONTHS OF AGE, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$PUT43133) <- "UTD FLAG FOR PROVIDER 4:3:1:3:3 BY 36 MONTHS OF AGE, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$P_UTD431H3_ROUT_S) <- "UTD (UP-TO-DATE) FLAG FOR PROVIDER 4:3:1:3:3 BY 36 MONTHS OF AGE, USING THE ROUTINE, STRICT DEFINITION OF HIB UTD, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$PUTD4313) <- "UTD FLAG FOR PROVIDER 4:3:1:3 BY 36 MONTHS OF AGE, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$P_UTD431H_ROUT_S) <- "UTD (UP-TO-DATE) FLAG FOR PROVIDER 4:3:1:3 BY 36 MONTHS OF AGE, USING THE ROUTINE, STRICT DEFINITION OF HIB UTD, EXCLUDING ANY VACCINATIONS AFTER THE HOUSEHOLD INTERVIEW DATE." label(NISPUF10$DDTP1) <- "AGE IN DAYS OF PROV-REPTD DT-CONTAINING SHOT #1" label(NISPUF10$DDTP2) <- "AGE IN DAYS OF PROV-REPTD DT-CONTAINING SHOT #2" label(NISPUF10$DDTP3) <- "AGE IN DAYS OF PROV-REPTD DT-CONTAINING SHOT #3" label(NISPUF10$DDTP4) <- "AGE IN DAYS OF PROV-REPTD DT-CONTAINING SHOT #4" label(NISPUF10$DDTP5) <- "AGE IN DAYS OF PROV-REPTD DT-CONTAINING SHOT #5" label(NISPUF10$DDTP6) <- "AGE IN DAYS OF PROV-REPTD DT-CONTAINING SHOT #6" label(NISPUF10$DDTP7) <- "AGE IN DAYS OF PROV-REPTD DT-CONTAINING SHOT #7" label(NISPUF10$DDTP8) <- "AGE IN DAYS OF PROV-REPTD DT-CONTAINING SHOT #8" label(NISPUF10$DDTP9) <- "AGE IN DAYS OF PROV-REPTD DT-CONTAINING SHOT #9" label(NISPUF10$DFLU1) <- "AGE IN DAYS OF PROV-REPTD SEASONAL FLU-CONTAINING VACCINATION #1" label(NISPUF10$DFLU2) <- "AGE IN DAYS OF PROV-REPTD SEASONAL FLU-CONTAINING VACCINATION #2" label(NISPUF10$DFLU3) <- "AGE IN DAYS OF PROV-REPTD SEASONAL FLU-CONTAINING VACCINATION #3" label(NISPUF10$DFLU4) <- "AGE IN DAYS OF PROV-REPTD SEASONAL FLU-CONTAINING VACCINATION #4" label(NISPUF10$DFLU5) <- "AGE IN DAYS OF PROV-REPTD SEASONAL FLU-CONTAINING VACCINATION #5" label(NISPUF10$DFLU6) <- "AGE IN DAYS OF PROV-REPTD SEASONAL FLU-CONTAINING VACCINATION #6" label(NISPUF10$DFLU7) <- "AGE IN DAYS OF PROV-REPTD SEASONAL FLU-CONTAINING VACCINATION #7" label(NISPUF10$DFLU8) <- "AGE IN DAYS OF PROV-REPTD SEASONAL FLU-CONTAINING VACCINATION #8" label(NISPUF10$DFLU9) <- "AGE IN DAYS OF PROV-REPTD SEASONAL FLU-CONTAINING VACCINATION #9" label(NISPUF10$DH1N1) <- "AGE IN DAYS OF PROV-REPTD MONOVALENT 2009 H1N1 INFLUENZA VACCINATION #1" label(NISPUF10$DH1N2) <- "AGE IN DAYS OF PROV-REPTD MONOVALENT 2009 H1N1 INFLUENZA VACCINATION #2" label(NISPUF10$DH1N3) <- "AGE IN DAYS OF PROV-REPTD MONOVALENT 2009 H1N1 INFLUENZA VACCINATION #3" label(NISPUF10$DH1N4) <- "AGE IN DAYS OF PROV-REPTD MONOVALENT 2009 H1N1 INFLUENZA VACCINATION #4" label(NISPUF10$DH1N5) <- "AGE IN DAYS OF PROV-REPTD MONOVALENT 2009 H1N1 INFLUENZA VACCINATION #5" label(NISPUF10$DH1N6) <- "AGE IN DAYS OF PROV-REPTD MONOVALENT 2009 H1N1 INFLUENZA VACCINATION #6" label(NISPUF10$DH1N7) <- "AGE IN DAYS OF PROV-REPTD MONOVALENT 2009 H1N1 INFLUENZA VACCINATION #7" label(NISPUF10$DH1N8) <- "AGE IN DAYS OF PROV-REPTD MONOVALENT 2009 H1N1 INFLUENZA VACCINATION #8" label(NISPUF10$DH1N9) <- "AGE IN DAYS OF PROV-REPTD MONOVALENT 2009 H1N1 INFLUENZA VACCINATION #9" label(NISPUF10$DHEPA1) <- "AGE IN DAYS OF PROV-REPTD HEPATITIS A-CONTAINING SHOT #1" label(NISPUF10$DHEPA2) <- "AGE IN DAYS OF PROV-REPTD HEPATITIS A-CONTAINING SHOT #2" label(NISPUF10$DHEPA3) <- "AGE IN DAYS OF PROV-REPTD HEPATITIS A-CONTAINING SHOT #3" label(NISPUF10$DHEPA4) <- "AGE IN DAYS OF PROV-REPTD HEPATITIS A-CONTAINING SHOT #4" label(NISPUF10$DHEPA5) <- "AGE IN DAYS OF PROV-REPTD HEPATITIS A-CONTAINING SHOT #5" label(NISPUF10$DHEPA6) <- "AGE IN DAYS OF PROV-REPTD HEPATITIS A-CONTAINING SHOT #6" label(NISPUF10$DHEPA7) <- "AGE IN DAYS OF PROV-REPTD HEPATITIS A-CONTAINING SHOT #7" label(NISPUF10$DHEPA8) <- "AGE IN DAYS OF PROV-REPTD HEPATITIS A-CONTAINING SHOT #8" label(NISPUF10$DHEPA9) <- "AGE IN DAYS OF PROV-REPTD HEPATITIS A-CONTAINING SHOT #9" label(NISPUF10$DHEPB1) <- "AGE IN DAYS OF PROV-REPTD HEPATITIS B-CONTAINING SHOT #1" label(NISPUF10$DHEPB2) <- "AGE IN DAYS OF PROV-REPTD HEPATITIS B-CONTAINING SHOT #2" label(NISPUF10$DHEPB3) <- "AGE IN DAYS OF PROV-REPTD HEPATITIS B-CONTAINING SHOT #3" label(NISPUF10$DHEPB4) <- "AGE IN DAYS OF PROV-REPTD HEPATITIS B-CONTAINING SHOT #4" label(NISPUF10$DHEPB5) <- "AGE IN DAYS OF PROV-REPTD HEPATITIS B-CONTAINING SHOT #5" label(NISPUF10$DHEPB6) <- "AGE IN DAYS OF PROV-REPTD HEPATITIS B-CONTAINING SHOT #6" label(NISPUF10$DHEPB7) <- "AGE IN DAYS OF PROV-REPTD HEPATITIS B-CONTAINING SHOT #7" label(NISPUF10$DHEPB8) <- "AGE IN DAYS OF PROV-REPTD HEPATITIS B-CONTAINING SHOT #8" label(NISPUF10$DHEPB9) <- "AGE IN DAYS OF PROV-REPTD HEPATITIS B-CONTAINING SHOT #9" label(NISPUF10$DHIB1) <- "AGE IN DAYS OF PROV-REPTD HIB-CONTAINING SHOT #1" label(NISPUF10$DHIB2) <- "AGE IN DAYS OF PROV-REPTD HIB-CONTAINING SHOT #2" label(NISPUF10$DHIB3) <- "AGE IN DAYS OF PROV-REPTD HIB-CONTAINING SHOT #3" label(NISPUF10$DHIB4) <- "AGE IN DAYS OF PROV-REPTD HIB-CONTAINING SHOT #4" label(NISPUF10$DHIB5) <- "AGE IN DAYS OF PROV-REPTD HIB-CONTAINING SHOT #5" label(NISPUF10$DHIB6) <- "AGE IN DAYS OF PROV-REPTD HIB-CONTAINING SHOT #6" label(NISPUF10$DHIB7) <- "AGE IN DAYS OF PROV-REPTD HIB-CONTAINING SHOT #7" label(NISPUF10$DHIB8) <- "AGE IN DAYS OF PROV-REPTD HIB-CONTAINING SHOT #8" label(NISPUF10$DHIB9) <- "AGE IN DAYS OF PROV-REPTD HIB-CONTAINING SHOT #9" label(NISPUF10$DMMR1) <- "AGE IN DAYS OF PROV-REPTD MEASLES-CONTAINING SHOT #1" label(NISPUF10$DMMR2) <- "AGE IN DAYS OF PROV-REPTD MEASLES-CONTAINING SHOT #2" label(NISPUF10$DMMR3) <- "AGE IN DAYS OF PROV-REPTD MEASLES-CONTAINING SHOT #3" label(NISPUF10$DMMR4) <- "AGE IN DAYS OF PROV-REPTD MEASLES-CONTAINING SHOT #4" label(NISPUF10$DMMR5) <- "AGE IN DAYS OF PROV-REPTD MEASLES-CONTAINING SHOT #5" label(NISPUF10$DMMR6) <- "AGE IN DAYS OF PROV-REPTD MEASLES-CONTAINING SHOT #6" label(NISPUF10$DMMR7) <- "AGE IN DAYS OF PROV-REPTD MEASLES-CONTAINING SHOT #7" label(NISPUF10$DMMR8) <- "AGE IN DAYS OF PROV-REPTD MEASLES-CONTAINING SHOT #8" label(NISPUF10$DMMR9) <- "AGE IN DAYS OF PROV-REPTD MEASLES-CONTAINING SHOT #9" label(NISPUF10$DMP1) <- "AGE IN DAYS OF PROV-REPTD MUMPS-ONLY SHOT #1" label(NISPUF10$DMP2) <- "AGE IN DAYS OF PROV-REPTD MUMPS-ONLY SHOT #2" label(NISPUF10$DMP3) <- "AGE IN DAYS OF PROV-REPTD MUMPS-ONLY SHOT #3" label(NISPUF10$DMP4) <- "AGE IN DAYS OF PROV-REPTD MUMPS-ONLY SHOT #4" label(NISPUF10$DMP5) <- "AGE IN DAYS OF PROV-REPTD MUMPS-ONLY SHOT #5" label(NISPUF10$DMP6) <- "AGE IN DAYS OF PROV-REPTD MUMPS-ONLY SHOT #6" label(NISPUF10$DMP7) <- "AGE IN DAYS OF PROV-REPTD MUMPS-ONLY SHOT #7" label(NISPUF10$DMP8) <- "AGE IN DAYS OF PROV-REPTD MUMPS-ONLY SHOT #8" label(NISPUF10$DMP9) <- "AGE IN DAYS OF PROV-REPTD MUMPS-ONLY SHOT #9" label(NISPUF10$DMPRB1) <- "AGE IN DAYS OF PROV-REPTD (MUMPS/RUBELLA)-ONLY SHOT #1" label(NISPUF10$DMPRB2) <- "AGE IN DAYS OF PROV-REPTD (MUMPS/RUBELLA)-ONLY SHOT #2" label(NISPUF10$DMPRB3) <- "AGE IN DAYS OF PROV-REPTD (MUMPS/RUBELLA)-ONLY SHOT #3" label(NISPUF10$DMPRB4) <- "AGE IN DAYS OF PROV-REPTD (MUMPS/RUBELLA)-ONLY SHOT #4" label(NISPUF10$DMPRB5) <- "AGE IN DAYS OF PROV-REPTD (MUMPS/RUBELLA)-ONLY SHOT #5" label(NISPUF10$DMPRB6) <- "AGE IN DAYS OF PROV-REPTD (MUMPS/RUBELLA)-ONLY SHOT #6" label(NISPUF10$DMPRB7) <- "AGE IN DAYS OF PROV-REPTD (MUMPS/RUBELLA)-ONLY SHOT #7" label(NISPUF10$DMPRB8) <- "AGE IN DAYS OF PROV-REPTD (MUMPS/RUBELLA)-ONLY SHOT #8" label(NISPUF10$DMPRB9) <- "AGE IN DAYS OF PROV-REPTD (MUMPS/RUBELLA)-ONLY SHOT #9" label(NISPUF10$DPCV1) <- "AGE IN DAYS OF PROV-REPTD PNEUMOCOCCAL-CONTAINING SHOT #1" label(NISPUF10$DPCV2) <- "AGE IN DAYS OF PROV-REPTD PNEUMOCOCCAL-CONTAINING SHOT #2" label(NISPUF10$DPCV3) <- "AGE IN DAYS OF PROV-REPTD PNEUMOCOCCAL-CONTAINING SHOT #3" label(NISPUF10$DPCV4) <- "AGE IN DAYS OF PROV-REPTD PNEUMOCOCCAL-CONTAINING SHOT #4" label(NISPUF10$DPCV5) <- "AGE IN DAYS OF PROV-REPTD PNEUMOCOCCAL-CONTAINING SHOT #5" label(NISPUF10$DPCV6) <- "AGE IN DAYS OF PROV-REPTD PNEUMOCOCCAL-CONTAINING SHOT #6" label(NISPUF10$DPCV7) <- "AGE IN DAYS OF PROV-REPTD PNEUMOCOCCAL-CONTAINING SHOT #7" label(NISPUF10$DPCV8) <- "AGE IN DAYS OF PROV-REPTD PNEUMOCOCCAL-CONTAINING SHOT #8" label(NISPUF10$DPCV9) <- "AGE IN DAYS OF PROV-REPTD PNEUMOCOCCAL-CONTAINING SHOT #9" label(NISPUF10$DPOLIO1) <- "AGE IN DAYS OF PROV-REPTD POLIO-CONTAINING SHOT #1" label(NISPUF10$DPOLIO2) <- "AGE IN DAYS OF PROV-REPTD POLIO-CONTAINING SHOT #2" label(NISPUF10$DPOLIO3) <- "AGE IN DAYS OF PROV-REPTD POLIO-CONTAINING SHOT #3" label(NISPUF10$DPOLIO4) <- "AGE IN DAYS OF PROV-REPTD POLIO-CONTAINING SHOT #4" label(NISPUF10$DPOLIO5) <- "AGE IN DAYS OF PROV-REPTD POLIO-CONTAINING SHOT #5" label(NISPUF10$DPOLIO6) <- "AGE IN DAYS OF PROV-REPTD POLIO-CONTAINING SHOT #6" label(NISPUF10$DPOLIO7) <- "AGE IN DAYS OF PROV-REPTD POLIO-CONTAINING SHOT #7" label(NISPUF10$DPOLIO8) <- "AGE IN DAYS OF PROV-REPTD POLIO-CONTAINING SHOT #8" label(NISPUF10$DPOLIO9) <- "AGE IN DAYS OF PROV-REPTD POLIO-CONTAINING SHOT #9" label(NISPUF10$DRB1) <- "AGE IN DAYS OF PROV-REPTD RUBELLA-ONLY SHOT #1" label(NISPUF10$DRB2) <- "AGE IN DAYS OF PROV-REPTD RUBELLA-ONLY SHOT #2" label(NISPUF10$DRB3) <- "AGE IN DAYS OF PROV-REPTD RUBELLA-ONLY SHOT #3" label(NISPUF10$DRB4) <- "AGE IN DAYS OF PROV-REPTD RUBELLA-ONLY SHOT #4" label(NISPUF10$DRB5) <- "AGE IN DAYS OF PROV-REPTD RUBELLA-ONLY SHOT #5" label(NISPUF10$DRB6) <- "AGE IN DAYS OF PROV-REPTD RUBELLA-ONLY SHOT #6" label(NISPUF10$DRB7) <- "AGE IN DAYS OF PROV-REPTD RUBELLA-ONLY SHOT #7" label(NISPUF10$DRB8) <- "AGE IN DAYS OF PROV-REPTD RUBELLA-ONLY SHOT #8" label(NISPUF10$DRB9) <- "AGE IN DAYS OF PROV-REPTD RUBELLA-ONLY SHOT #9" label(NISPUF10$DROT1) <- "AGE IN DAYS OF PROV-REPTD ROTAVIRUS-CONTAINING SHOT #1" label(NISPUF10$DROT2) <- "AGE IN DAYS OF PROV-REPTD ROTAVIRUS-CONTAINING SHOT #2" label(NISPUF10$DROT3) <- "AGE IN DAYS OF PROV-REPTD ROTAVIRUS-CONTAINING SHOT #3" label(NISPUF10$DROT4) <- "AGE IN DAYS OF PROV-REPTD ROTAVIRUS-CONTAINING SHOT #4" label(NISPUF10$DROT5) <- "AGE IN DAYS OF PROV-REPTD ROTAVIRUS-CONTAINING SHOT #5" label(NISPUF10$DROT6) <- "AGE IN DAYS OF PROV-REPTD ROTAVIRUS-CONTAINING SHOT #6" label(NISPUF10$DROT7) <- "AGE IN DAYS OF PROV-REPTD ROTAVIRUS-CONTAINING SHOT #7" label(NISPUF10$DROT8) <- "AGE IN DAYS OF PROV-REPTD ROTAVIRUS-CONTAINING SHOT #8" label(NISPUF10$DROT9) <- "AGE IN DAYS OF PROV-REPTD ROTAVIRUS-CONTAINING SHOT #9" label(NISPUF10$DVRC1) <- "AGE IN DAYS OF PROV-REPTD VARICELLA-CONTAINING SHOT #1" label(NISPUF10$DVRC2) <- "AGE IN DAYS OF PROV-REPTD VARICELLA-CONTAINING SHOT #2" label(NISPUF10$DVRC3) <- "AGE IN DAYS OF PROV-REPTD VARICELLA-CONTAINING SHOT #3" label(NISPUF10$DVRC4) <- "AGE IN DAYS OF PROV-REPTD VARICELLA-CONTAINING SHOT #4" label(NISPUF10$DVRC5) <- "AGE IN DAYS OF PROV-REPTD VARICELLA-CONTAINING SHOT #5" label(NISPUF10$DVRC6) <- "AGE IN DAYS OF PROV-REPTD VARICELLA-CONTAINING SHOT #6" label(NISPUF10$DVRC7) <- "AGE IN DAYS OF PROV-REPTD VARICELLA-CONTAINING SHOT #7" label(NISPUF10$DVRC8) <- "AGE IN DAYS OF PROV-REPTD VARICELLA-CONTAINING SHOT #8" label(NISPUF10$DVRC9) <- "AGE IN DAYS OF PROV-REPTD VARICELLA-CONTAINING SHOT #9" label(NISPUF10$DTP1_AGE) <- "AGE IN MONTHS OF PROV-REPTD DT-CONTAINING SHOT #1" label(NISPUF10$DTP2_AGE) <- "AGE IN MONTHS OF PROV-REPTD DT-CONTAINING SHOT #2" label(NISPUF10$DTP3_AGE) <- "AGE IN MONTHS OF PROV-REPTD DT-CONTAINING SHOT #3" label(NISPUF10$DTP4_AGE) <- "AGE IN MONTHS OF PROV-REPTD DT-CONTAINING SHOT #4" label(NISPUF10$DTP5_AGE) <- "AGE IN MONTHS OF PROV-REPTD DT-CONTAINING SHOT #5" label(NISPUF10$DTP6_AGE) <- "AGE IN MONTHS OF PROV-REPTD DT-CONTAINING SHOT #6" label(NISPUF10$DTP7_AGE) <- "AGE IN MONTHS OF PROV-REPTD DT-CONTAINING SHOT #7" label(NISPUF10$DTP8_AGE) <- "AGE IN MONTHS OF PROV-REPTD DT-CONTAINING SHOT #8" label(NISPUF10$DTP9_AGE) <- "AGE IN MONTHS OF PROV-REPTD DT-CONTAINING SHOT #9" label(NISPUF10$FLU1_AGE) <- "AGE IN MONTHS OF PROV-REPTD SEASONAL FLU-CONTAINING VACCINATION #1" label(NISPUF10$FLU2_AGE) <- "AGE IN MONTHS OF PROV-REPTD SEASONAL FLU-CONTAINING VACCINATION #2" label(NISPUF10$FLU3_AGE) <- "AGE IN MONTHS OF PROV-REPTD SEASONAL FLU-CONTAINING VACCINATION #3" label(NISPUF10$FLU4_AGE) <- "AGE IN MONTHS OF PROV-REPTD SEASONAL FLU-CONTAINING VACCINATION #4" label(NISPUF10$FLU5_AGE) <- "AGE IN MONTHS OF PROV-REPTD SEASONAL FLU-CONTAINING VACCINATION #5" label(NISPUF10$FLU6_AGE) <- "AGE IN MONTHS OF PROV-REPTD SEASONAL FLU-CONTAINING VACCINATION #6" label(NISPUF10$FLU7_AGE) <- "AGE IN MONTHS OF PROV-REPTD SEASONAL FLU-CONTAINING VACCINATION #7" label(NISPUF10$FLU8_AGE) <- "AGE IN MONTHS OF PROV-REPTD SEASONAL FLU-CONTAINING VACCINATION #8" label(NISPUF10$FLU9_AGE) <- "AGE IN MONTHS OF PROV-REPTD SEASONAL FLU-CONTAINING VACCINATION #9" label(NISPUF10$H1N1_AGE) <- "AGE IN MONTHS OF PROV-REPTD MONOVALENT 2009 H1N1 INFLUENZA VACCINATION #1" label(NISPUF10$H1N2_AGE) <- "AGE IN MONTHS OF PROV-REPTD MONOVALENT 2009 H1N1 INFLUENZAVACCINATION #2" label(NISPUF10$H1N3_AGE) <- "AGE IN MONTHS OF PROV-REPTD MONOVALENT 2009 H1N1 INFLUENZA VACCINATION #3" label(NISPUF10$H1N4_AGE) <- "AGE IN MONTHS OF PROV-REPTD MONOVALENT 2009 H1N1 INFLUENZA VACCINATION #4" label(NISPUF10$H1N5_AGE) <- "AGE IN MONTHS OF PROV-REPTD MONOVALENT 2009 H1N1 INFLUENZA VACCINATION #5" label(NISPUF10$H1N6_AGE) <- "AGE IN MONTHS OF PROV-REPTD MONOVALENT 2009 H1N1 INFLUENZA VACCINATION #6" label(NISPUF10$H1N7_AGE) <- "AGE IN MONTHS OF PROV-REPTD MONOVALENT 2009 H1N1 INFLUENZA VACCINATION #7" label(NISPUF10$H1N8_AGE) <- "AGE IN MONTHS OF PROV-REPTD MONOVALENT 2009 H1N1 INFLUENZA VACCINATION #8" label(NISPUF10$H1N9_AGE) <- "AGE IN MONTHS OF PROV-REPTD MONOVALENT 2009 H1N1 INFLUENZA VACCINATION #9" label(NISPUF10$HEA1_AGE) <- "AGE IN MONTHS OF PROV-REPTD HEPATITIS A-CONTAINING SHOT #1" label(NISPUF10$HEA2_AGE) <- "AGE IN MONTHS OF PROV-REPTD HEPATITIS A-CONTAINING SHOT #2" label(NISPUF10$HEA3_AGE) <- "AGE IN MONTHS OF PROV-REPTD HEPATITIS A-CONTAINING SHOT #3" label(NISPUF10$HEA4_AGE) <- "AGE IN MONTHS OF PROV-REPTD HEPATITIS A-CONTAINING SHOT #4" label(NISPUF10$HEA5_AGE) <- "AGE IN MONTHS OF PROV-REPTD HEPATITIS A-CONTAINING SHOT #5" label(NISPUF10$HEA6_AGE) <- "AGE IN MONTHS OF PROV-REPTD HEPATITIS A-CONTAINING SHOT #6" label(NISPUF10$HEA7_AGE) <- "AGE IN MONTHS OF PROV-REPTD HEPATITIS A-CONTAINING SHOT #7" label(NISPUF10$HEA8_AGE) <- "AGE IN MONTHS OF PROV-REPTD HEPATITIS A-CONTAINING SHOT #8" label(NISPUF10$HEA9_AGE) <- "AGE IN MONTHS OF PROV-REPTD HEPATITIS A-CONTAINING SHOT #9" label(NISPUF10$HEP1_AGE) <- "AGE IN MONTHS OF PROV-REPTD HEPATITIS B-CONTAINING SHOT #1" label(NISPUF10$HEP2_AGE) <- "AGE IN MONTHS OF PROV-REPTD HEPATITIS B-CONTAINING SHOT #2" label(NISPUF10$HEP3_AGE) <- "AGE IN MONTHS OF PROV-REPTD HEPATITIS B-CONTAINING SHOT #3" label(NISPUF10$HEP4_AGE) <- "AGE IN MONTHS OF PROV-REPTD HEPATITIS B-CONTAINING SHOT #4" label(NISPUF10$HEP5_AGE) <- "AGE IN MONTHS OF PROV-REPTD HEPATITIS B-CONTAINING SHOT #5" label(NISPUF10$HEP6_AGE) <- "AGE IN MONTHS OF PROV-REPTD HEPATITIS B-CONTAINING SHOT #6" label(NISPUF10$HEP7_AGE) <- "AGE IN MONTHS OF PROV-REPTD HEPATITIS B-CONTAINING SHOT #7" label(NISPUF10$HEP8_AGE) <- "AGE IN MONTHS OF PROV-REPTD HEPATITIS B-CONTAINING SHOT #8" label(NISPUF10$HEP9_AGE) <- "AGE IN MONTHS OF PROV-REPTD HEPATITIS B-CONTAINING SHOT #9" label(NISPUF10$HIB1_AGE) <- "AGE IN MONTHS OF PROV-REPTD HIB-CONTAINING SHOT #1" label(NISPUF10$HIB2_AGE) <- "AGE IN MONTHS OF PROV-REPTD HIB-CONTAINING SHOT #2" label(NISPUF10$HIB3_AGE) <- "AGE IN MONTHS OF PROV-REPTD HIB-CONTAINING SHOT #3" label(NISPUF10$HIB4_AGE) <- "AGE IN MONTHS OF PROV-REPTD HIB-CONTAINING SHOT #4" label(NISPUF10$HIB5_AGE) <- "AGE IN MONTHS OF PROV-REPTD HIB-CONTAINING SHOT #5" label(NISPUF10$HIB6_AGE) <- "AGE IN MONTHS OF PROV-REPTD HIB-CONTAINING SHOT #6" label(NISPUF10$HIB7_AGE) <- "AGE IN MONTHS OF PROV-REPTD HIB-CONTAINING SHOT #7" label(NISPUF10$HIB8_AGE) <- "AGE IN MONTHS OF PROV-REPTD HIB-CONTAINING SHOT #8" label(NISPUF10$HIB9_AGE) <- "AGE IN MONTHS OF PROV-REPTD HIB-CONTAINING SHOT #9" label(NISPUF10$MMR1_AGE) <- "AGE IN MONTHS OF PROV-REPTD MEASLES-CONTAINING SHOT #1" label(NISPUF10$MMR2_AGE) <- "AGE IN MONTHS OF PROV-REPTD MEASLES-CONTAINING SHOT #2" label(NISPUF10$MMR3_AGE) <- "AGE IN MONTHS OF PROV-REPTD MEASLES-CONTAINING SHOT #3" label(NISPUF10$MMR4_AGE) <- "AGE IN MONTHS OF PROV-REPTD MEASLES-CONTAINING SHOT #4" label(NISPUF10$MMR5_AGE) <- "AGE IN MONTHS OF PROV-REPTD MEASLES-CONTAINING SHOT #5" label(NISPUF10$MMR6_AGE) <- "AGE IN MONTHS OF PROV-REPTD MEASLES-CONTAINING SHOT #6" label(NISPUF10$MMR7_AGE) <- "AGE IN MONTHS OF PROV-REPTD MEASLES-CONTAINING SHOT #7" label(NISPUF10$MMR8_AGE) <- "AGE IN MONTHS OF PROV-REPTD MEASLES-CONTAINING SHOT #8" label(NISPUF10$MMR9_AGE) <- "AGE IN MONTHS OF PROV-REPTD MEASLES-CONTAINING SHOT #9" label(NISPUF10$MP1_AGE) <- "AGE IN MONTHS OF PROV-REPTD MUMPS-ONLY SHOT #1" label(NISPUF10$MP2_AGE) <- "AGE IN MONTHS OF PROV-REPTD MUMPS-ONLY SHOT #2" label(NISPUF10$MP3_AGE) <- "AGE IN MONTHS OF PROV-REPTD MUMPS-ONLY SHOT #3" label(NISPUF10$MP4_AGE) <- "AGE IN MONTHS OF PROV-REPTD MUMPS-ONLY SHOT #4" label(NISPUF10$MP5_AGE) <- "AGE IN MONTHS OF PROV-REPTD MUMPS-ONLY SHOT #5" label(NISPUF10$MP6_AGE) <- "AGE IN MONTHS OF PROV-REPTD MUMPS-ONLY SHOT #6" label(NISPUF10$MP7_AGE) <- "AGE IN MONTHS OF PROV-REPTD MUMPS-ONLY SHOT #7" label(NISPUF10$MP8_AGE) <- "AGE IN MONTHS OF PROV-REPTD MUMPS-ONLY SHOT #8" label(NISPUF10$MP9_AGE) <- "AGE IN MONTHS OF PROV-REPTD MUMPS-ONLY SHOT #9" label(NISPUF10$MPR1_AGE) <- "AGE IN MONTHS OF PROV-REPTD (MUMPS/RUBELLA)-ONLY SHOT #1" label(NISPUF10$MPR2_AGE) <- "AGE IN MONTHS OF PROV-REPTD (MUMPS/RUBELLA)-ONLY SHOT #2" label(NISPUF10$MPR3_AGE) <- "AGE IN MONTHS OF PROV-REPTD (MUMPS/RUBELLA)-ONLY SHOT #3" label(NISPUF10$MPR4_AGE) <- "AGE IN MONTHS OF PROV-REPTD (MUMPS/RUBELLA)-ONLY SHOT #4" label(NISPUF10$MPR5_AGE) <- "AGE IN MONTHS OF PROV-REPTD (MUMPS/RUBELLA)-ONLY SHOT #5" label(NISPUF10$MPR6_AGE) <- "AGE IN MONTHS OF PROV-REPTD (MUMPS/RUBELLA)-ONLY SHOT #6" label(NISPUF10$MPR7_AGE) <- "AGE IN MONTHS OF PROV-REPTD (MUMPS/RUBELLA)-ONLY SHOT #7" label(NISPUF10$MPR8_AGE) <- "AGE IN MONTHS OF PROV-REPTD (MUMPS/RUBELLA)-ONLY SHOT #8" label(NISPUF10$MPR9_AGE) <- "AGE IN MONTHS OF PROV-REPTD (MUMPS/RUBELLA)-ONLY SHOT #9" label(NISPUF10$PCV1_AGE) <- "AGE IN MONTHS OF PROV-REPTD PNEUMOCOCCAL-CONTAINING SHOT #1" label(NISPUF10$PCV2_AGE) <- "AGE IN MONTHS OF PROV-REPTD PNEUMOCOCCAL-CONTAINING SHOT #2" label(NISPUF10$PCV3_AGE) <- "AGE IN MONTHS OF PROV-REPTD PNEUMOCOCCAL-CONTAINING SHOT #3" label(NISPUF10$PCV4_AGE) <- "AGE IN MONTHS OF PROV-REPTD PNEUMOCOCCAL-CONTAINING SHOT #4" label(NISPUF10$PCV5_AGE) <- "AGE IN MONTHS OF PROV-REPTD PNEUMOCOCCAL-CONTAINING SHOT #5" label(NISPUF10$PCV6_AGE) <- "AGE IN MONTHS OF PROV-REPTD PNEUMOCOCCAL-CONTAINING SHOT #6" label(NISPUF10$PCV7_AGE) <- "AGE IN MONTHS OF PROV-REPTD PNEUMOCOCCAL-CONTAINING SHOT #7" label(NISPUF10$PCV8_AGE) <- "AGE IN MONTHS OF PROV-REPTD PNEUMOCOCCAL-CONTAINING SHOT #8" label(NISPUF10$PCV9_AGE) <- "AGE IN MONTHS OF PROV-REPTD PNEUMOCOCCAL-CONTAINING SHOT #9" label(NISPUF10$POL1_AGE) <- "AGE IN MONTHS OF PROV-REPTD POLIO-CONTAINING SHOT #1" label(NISPUF10$POL2_AGE) <- "AGE IN MONTHS OF PROV-REPTD POLIO-CONTAINING SHOT #2" label(NISPUF10$POL3_AGE) <- "AGE IN MONTHS OF PROV-REPTD POLIO-CONTAINING SHOT #3" label(NISPUF10$POL4_AGE) <- "AGE IN MONTHS OF PROV-REPTD POLIO-CONTAINING SHOT #4" label(NISPUF10$POL5_AGE) <- "AGE IN MONTHS OF PROV-REPTD POLIO-CONTAINING SHOT #5" label(NISPUF10$POL6_AGE) <- "AGE IN MONTHS OF PROV-REPTD POLIO-CONTAINING SHOT #6" label(NISPUF10$POL7_AGE) <- "AGE IN MONTHS OF PROV-REPTD POLIO-CONTAINING SHOT #7" label(NISPUF10$POL8_AGE) <- "AGE IN MONTHS OF PROV-REPTD POLIO-CONTAINING SHOT #8" label(NISPUF10$POL9_AGE) <- "AGE IN MONTHS OF PROV-REPTD POLIO-CONTAINING SHOT #9" label(NISPUF10$RB1_AGE) <- "AGE IN MONTHS OF PROV-REPTD RUBELLA-ONLY SHOT #1" label(NISPUF10$RB2_AGE) <- "AGE IN MONTHS OF PROV-REPTD RUBELLA-ONLY SHOT #2" label(NISPUF10$RB3_AGE) <- "AGE IN MONTHS OF PROV-REPTD RUBELLA-ONLY SHOT #3" label(NISPUF10$RB4_AGE) <- "AGE IN MONTHS OF PROV-REPTD RUBELLA-ONLY SHOT #4" label(NISPUF10$RB5_AGE) <- "AGE IN MONTHS OF PROV-REPTD RUBELLA-ONLY SHOT #5" label(NISPUF10$RB6_AGE) <- "AGE IN MONTHS OF PROV-REPTD RUBELLA-ONLY SHOT #6" label(NISPUF10$RB7_AGE) <- "AGE IN MONTHS OF PROV-REPTD RUBELLA-ONLY SHOT #7" label(NISPUF10$RB8_AGE) <- "AGE IN MONTHS OF PROV-REPTD RUBELLA-ONLY SHOT #8" label(NISPUF10$RB9_AGE) <- "AGE IN MONTHS OF PROV-REPTD RUBELLA-ONLY SHOT #9" label(NISPUF10$ROT1_AGE) <- "AGE IN MONTHS OF PROV-REPTD ROTAVIRUS-CONTAINING SHOT #1" label(NISPUF10$ROT2_AGE) <- "AGE IN MONTHS OF PROV-REPTD ROTAVIRUS-CONTAINING SHOT #2" label(NISPUF10$ROT3_AGE) <- "AGE IN MONTHS OF PROV-REPTD ROTAVIRUS-CONTAINING SHOT #3" label(NISPUF10$ROT4_AGE) <- "AGE IN MONTHS OF PROV-REPTD ROTAVIRUS-CONTAINING SHOT #4" label(NISPUF10$ROT5_AGE) <- "AGE IN MONTHS OF PROV-REPTD ROTAVIRUS-CONTAINING SHOT #5" label(NISPUF10$ROT6_AGE) <- "AGE IN MONTHS OF PROV-REPTD ROTAVIRUS-CONTAINING SHOT #6" label(NISPUF10$ROT7_AGE) <- "AGE IN MONTHS OF PROV-REPTD ROTAVIRUS-CONTAINING SHOT #7" label(NISPUF10$ROT8_AGE) <- "AGE IN MONTHS OF PROV-REPTD ROTAVIRUS-CONTAINING SHOT #8" label(NISPUF10$ROT9_AGE) <- "AGE IN MONTHS OF PROV-REPTD ROTAVIRUS-CONTAINING SHOT #9" label(NISPUF10$VRC1_AGE) <- "AGE IN MONTHS OF PROV-REPTD VARICELLA-CONTAINING SHOT #1" label(NISPUF10$VRC2_AGE) <- "AGE IN MONTHS OF PROV-REPTD VARICELLA-CONTAINING SHOT #2" label(NISPUF10$VRC3_AGE) <- "AGE IN MONTHS OF PROV-REPTD VARICELLA-CONTAINING SHOT #3" label(NISPUF10$VRC4_AGE) <- "AGE IN MONTHS OF PROV-REPTD VARICELLA-CONTAINING SHOT #4" label(NISPUF10$VRC5_AGE) <- "AGE IN MONTHS OF PROV-REPTD VARICELLA-CONTAINING SHOT #5" label(NISPUF10$VRC6_AGE) <- "AGE IN MONTHS OF PROV-REPTD VARICELLA-CONTAINING SHOT #6" label(NISPUF10$VRC7_AGE) <- "AGE IN MONTHS OF PROV-REPTD VARICELLA-CONTAINING SHOT #7" label(NISPUF10$VRC8_AGE) <- "AGE IN MONTHS OF PROV-REPTD VARICELLA-CONTAINING SHOT #8" label(NISPUF10$VRC9_AGE) <- "AGE IN MONTHS OF PROV-REPTD VARICELLA-CONTAINING SHOT #9" label(NISPUF10$XDTPTY1) <- "DT-CONTAINING VACCINATION #1 TYPE CODE" label(NISPUF10$XDTPTY2) <- "DT-CONTAINING VACCINATION #2 TYPE CODE" label(NISPUF10$XDTPTY3) <- "DT-CONTAINING VACCINATION #3 TYPE CODE" label(NISPUF10$XDTPTY4) <- "DT-CONTAINING VACCINATION #4 TYPE CODE" label(NISPUF10$XDTPTY5) <- "DT-CONTAINING VACCINATION #5 TYPE CODE" label(NISPUF10$XDTPTY6) <- "DT-CONTAINING VACCINATION #6 TYPE CODE" label(NISPUF10$XDTPTY7) <- "DT-CONTAINING VACCINATION #7 TYPE CODE" label(NISPUF10$XDTPTY8) <- "DT-CONTAINING VACCINATION #8 TYPE CODE" label(NISPUF10$XDTPTY9) <- "DT-CONTAINING VACCINATION #9 TYPE CODE" label(NISPUF10$XFLUTY1) <- "SEASONAL FLU-CONTAINING VACCINATION #1 TYPE CODE" label(NISPUF10$XFLUTY2) <- "SEASONAL FLU-CONTAINING VACCINATION #2 TYPE CODE" label(NISPUF10$XFLUTY3) <- "SEASONAL FLU-CONTAINING VACCINATION #3 TYPE CODE" label(NISPUF10$XFLUTY4) <- "SEASONAL FLU-CONTAINING VACCINATION #4 TYPE CODE" label(NISPUF10$XFLUTY5) <- "SEASONAL FLU-CONTAINING VACCINATION #5 TYPE CODE" label(NISPUF10$XFLUTY6) <- "SEASONAL FLU-CONTAINING VACCINATION #6 TYPE CODE" label(NISPUF10$XFLUTY7) <- "SEASONAL FLU-CONTAINING VACCINATION #7 TYPE CODE" label(NISPUF10$XFLUTY8) <- "SEASONAL FLU-CONTAINING VACCINATION #8 TYPE CODE" label(NISPUF10$XFLUTY9) <- "SEASONAL FLU-CONTAINING VACCINATION #9 TYPE CODE" label(NISPUF10$XH1NTY1) <- "MONOVALENT 2009 H1N1 INFLUENZA VACCINATION #1 TYPE CODE" label(NISPUF10$XH1NTY2) <- "MONOVALENT 2009 H1N1 INFLUENZA VACCINATION #2 TYPE CODE" label(NISPUF10$XH1NTY3) <- "MONOVALENT 2009 H1N1 INFLUENZA VACCINATION #3 TYPE CODE" label(NISPUF10$XH1NTY4) <- "MONOVALENT 2009 H1N1 INFLUENZA VACCINATION #4 TYPE CODE" label(NISPUF10$XH1NTY5) <- "MONOVALENT 2009 H1N1 INFLUENZA VACCINATION #5 TYPE CODE" label(NISPUF10$XH1NTY6) <- "MONOVALENT 2009 H1N1 INFLUENZA VACCINATION #6 TYPE CODE" label(NISPUF10$XH1NTY7) <- "MONOVALENT 2009 H1N1 INFLUENZA VACCINATION #7 TYPE CODE" label(NISPUF10$XH1NTY8) <- "MONOVALENT 2009 H1N1 INFLUENZA VACCINATION #8 TYPE CODE" label(NISPUF10$XH1NTY9) <- "MONOVALENT 2009 H1N1 INFLUENZA VACCINATION #9 TYPE CODE" label(NISPUF10$XHEPTY1) <- "HEPATITIS B-CONTAINING VACCINATION #1 TYPE CODE" label(NISPUF10$XHEPTY2) <- "HEPATITIS B-CONTAINING VACCINATION #2 TYPE CODE" label(NISPUF10$XHEPTY3) <- "HEPATITIS B-CONTAINING VACCINATION #3 TYPE CODE" label(NISPUF10$XHEPTY4) <- "HEPATITIS B-CONTAINING VACCINATION #4 TYPE CODE" label(NISPUF10$XHEPTY5) <- "HEPATITIS B-CONTAINING VACCINATION #5 TYPE CODE" label(NISPUF10$XHEPTY6) <- "HEPATITIS B-CONTAINING VACCINATION #6 TYPE CODE" label(NISPUF10$XHEPTY7) <- "HEPATITIS B-CONTAINING VACCINATION #7 TYPE CODE" label(NISPUF10$XHEPTY8) <- "HEPATITIS B-CONTAINING VACCINATION #8 TYPE CODE" label(NISPUF10$XHEPTY9) <- "HEPATITIS B-CONTAINING VACCINATION #9 TYPE CODE" label(NISPUF10$XHIBTY1) <- "HIB-CONTAINING VACCINATION #1 TYPE CODE" label(NISPUF10$XHIBTY2) <- "HIB-CONTAINING VACCINATION #2 TYPE CODE" label(NISPUF10$XHIBTY3) <- "HIB-CONTAINING VACCINATION #3 TYPE CODE" label(NISPUF10$XHIBTY4) <- "HIB-CONTAINING VACCINATION #4 TYPE CODE" label(NISPUF10$XHIBTY5) <- "HIB-CONTAINING VACCINATION #5 TYPE CODE" label(NISPUF10$XHIBTY6) <- "HIB-CONTAINING VACCINATION #6 TYPE CODE" label(NISPUF10$XHIBTY7) <- "HIB-CONTAINING VACCINATION #7 TYPE CODE" label(NISPUF10$XHIBTY8) <- "HIB-CONTAINING VACCINATION #8 TYPE CODE" label(NISPUF10$XHIBTY9) <- "HIB-CONTAINING VACCINATION #9 TYPE CODE" label(NISPUF10$XMMRTY1) <- "MEASLES-CONTAINING VACCINATION #1 TYPE CODE" label(NISPUF10$XMMRTY2) <- "MEASLES-CONTAINING VACCINATION #2 TYPE CODE" label(NISPUF10$XMMRTY3) <- "MEASLES-CONTAINING VACCINATION #3 TYPE CODE" label(NISPUF10$XMMRTY4) <- "MEASLES-CONTAINING VACCINATION #4 TYPE CODE" label(NISPUF10$XMMRTY5) <- "MEASLES-CONTAINING VACCINATION #5 TYPE CODE" label(NISPUF10$XMMRTY6) <- "MEASLES-CONTAINING VACCINATION #6 TYPE CODE" label(NISPUF10$XMMRTY7) <- "MEASLES-CONTAINING VACCINATION #7 TYPE CODE" label(NISPUF10$XMMRTY8) <- "MEASLES-CONTAINING VACCINATION #8 TYPE CODE" label(NISPUF10$XMMRTY9) <- "MEASLES-CONTAINING VACCINATION #9 TYPE CODE" label(NISPUF10$XPCVTY1) <- "PNEUMOCOCCAL-CONTAINING VACCINATION #1 TYPE CODE" label(NISPUF10$XPCVTY2) <- "PNEUMOCOCCAL-CONTAINING VACCINATION #2 TYPE CODE" label(NISPUF10$XPCVTY3) <- "PNEUMOCOCCAL-CONTAINING VACCINATION #3 TYPE CODE" label(NISPUF10$XPCVTY4) <- "PNEUMOCOCCAL-CONTAINING VACCINATION #4 TYPE CODE" label(NISPUF10$XPCVTY5) <- "PNEUMOCOCCAL-CONTAINING VACCINATION #5 TYPE CODE" label(NISPUF10$XPCVTY6) <- "PNEUMOCOCCAL-CONTAINING VACCINATION #6 TYPE CODE" label(NISPUF10$XPCVTY7) <- "PNEUMOCOCCAL-CONTAINING VACCINATION #7 TYPE CODE" label(NISPUF10$XPCVTY8) <- "PNEUMOCOCCAL-CONTAINING VACCINATION #8 TYPE CODE" label(NISPUF10$XPCVTY9) <- "PNEUMOCOCCAL-CONTAINING VACCINATION #9 TYPE CODE" label(NISPUF10$XPOLTY1) <- "POLIO-CONTAINING VACCINATION #1 TYPE CODE" label(NISPUF10$XPOLTY2) <- "POLIO-CONTAINING VACCINATION #2 TYPE CODE" label(NISPUF10$XPOLTY3) <- "POLIO-CONTAINING VACCINATION #3 TYPE CODE" label(NISPUF10$XPOLTY4) <- "POLIO-CONTAINING VACCINATION #4 TYPE CODE" label(NISPUF10$XPOLTY5) <- "POLIO-CONTAINING VACCINATION #5 TYPE CODE" label(NISPUF10$XPOLTY6) <- "POLIO-CONTAINING VACCINATION #6 TYPE CODE" label(NISPUF10$XPOLTY7) <- "POLIO-CONTAINING VACCINATION #7 TYPE CODE" label(NISPUF10$XPOLTY8) <- "POLIO-CONTAINING VACCINATION #8 TYPE CODE" label(NISPUF10$XPOLTY9) <- "POLIO-CONTAINING VACCINATION #9 TYPE CODE" label(NISPUF10$XROTTY1) <- "ROTAVIRUS-CONTAINING VACCINATION #1 TYPE CODE" label(NISPUF10$XROTTY2) <- "ROTAVIRUS-CONTAINING VACCINATION #2 TYPE CODE" label(NISPUF10$XROTTY3) <- "ROTAVIRUS-CONTAINING VACCINATION #3 TYPE CODE" label(NISPUF10$XROTTY4) <- "ROTAVIRUS-CONTAINING VACCINATION #4 TYPE CODE" label(NISPUF10$XROTTY5) <- "ROTAVIRUS-CONTAINING VACCINATION #5 TYPE CODE" label(NISPUF10$XROTTY6) <- "ROTAVIRUS-CONTAINING VACCINATION #6 TYPE CODE" label(NISPUF10$XROTTY7) <- "ROTAVIRUS-CONTAINING VACCINATION #7 TYPE CODE" label(NISPUF10$XROTTY8) <- "ROTAVIRUS-CONTAINING VACCINATION #8 TYPE CODE" label(NISPUF10$XROTTY9) <- "ROTAVIRUS-CONTAINING VACCINATION #9 TYPE CODE" label(NISPUF10$XVRCTY1) <- "VARICELLA-CONTAINING VACCINATION #1 TYPE CODE" label(NISPUF10$XVRCTY2) <- "VARICELLA-CONTAINING VACCINATION #2 TYPE CODE" label(NISPUF10$XVRCTY3) <- "VARICELLA-CONTAINING VACCINATION #3 TYPE CODE" label(NISPUF10$XVRCTY4) <- "VARICELLA-CONTAINING VACCINATION #4 TYPE CODE" label(NISPUF10$XVRCTY5) <- "VARICELLA-CONTAINING VACCINATION #5 TYPE CODE" label(NISPUF10$XVRCTY6) <- "VARICELLA-CONTAINING VACCINATION #6 TYPE CODE" label(NISPUF10$XVRCTY7) <- "VARICELLA-CONTAINING VACCINATION #7 TYPE CODE" label(NISPUF10$XVRCTY8) <- "VARICELLA-CONTAINING VACCINATION #8 TYPE CODE" label(NISPUF10$XVRCTY9) <- "VARICELLA-CONTAINING VACCINATION #9 TYPE CODE" label(NISPUF10$INS_1) <- "IS CHILD COVERED BY HEALTH INSURANCE PROVIDED THROUGH EMPLOYER OR UNION?" label(NISPUF10$INS_2) <- "IS CHILD COVERED BY ANY MEDICAID PLAN?" label(NISPUF10$INS_3) <- "IS CHILD COVERED BY S-CHIP?" label(NISPUF10$INS_3A) <- "IS CHILD COVERED BY ANY MEDICAID PLAN OR S-CHIP?" label(NISPUF10$INS_4_5) <- "IS CHILD COVERED BY INDIAN HEALTH SERVICE, MILITARY HEALTH CARE, TRICARE, CHAMPUS, OR CHAMP-VA?" label(NISPUF10$INS_6) <- "IS CHILD COVERED BY ANY OTHER HEALTH INSURANCE OR HEALTH CARE PLAN?" label(NISPUF10$INS_11) <- "ANY TIME WHEN CHILD WAS NOT COVERED BY ANY HEALTH INSURANCE?" label(NISPUF10$VFC_I) <- "DERIVED: IS CHILD VFC ELIGIBLE?" ############################################################################ # Step 5: CREATE A PERMANENT R DATASET # ############################################################################ save(NISPUF10, file=paste(PUF, "/NISPUF10.RData", sep="")) ############################################################################ # Step 6: ASSIGN FORMATS # # FORMATS ARE APPLICABLE ONLY TO CATEGORICAL VARIABLES IN R # ############################################################################ NISPUF10$AGEGRP <- factor(NISPUF10$AGEGRP, levels=AGEGRPlevels, labels=AGEGRPlabels) NISPUF10$LANGUAGE <- factor(NISPUF10$LANGUAGE, levels=LANGUAGElevels, labels=LANGUAGElabels) NISPUF10$HAD_CPOX <- factor(NISPUF10$HAD_CPOX, levels=YNDKRFlevels, labels=YNDKRFlabels) NISPUF10$CBF_01 <- factor(NISPUF10$CBF_01, levels=YNDKRFlevels, labels=YNDKRFlabels) NISPUF10$CWIC_02 <- factor(NISPUF10$CWIC_02, levels=YNDKRFlevels, labels=YNDKRFlabels) NISPUF10$INTRP <- factor(NISPUF10$INTRP, levels=YNDKRFlevels, labels=YNDKRFlabels) NISPUF10$INS_1 <- factor(NISPUF10$INS_1, levels=YNDKRFlevels, labels=YNDKRFlabels) NISPUF10$INS_2 <- factor(NISPUF10$INS_2, levels=YNDKRFlevels, labels=YNDKRFlabels) NISPUF10$INS_3 <- factor(NISPUF10$INS_3, levels=YNDKRFlevels, labels=YNDKRFlabels) NISPUF10$INS_3A <- factor(NISPUF10$INS_3A, levels=YNDKRFlevels, labels=YNDKRFlabels) NISPUF10$INS_4_5 <- factor(NISPUF10$INS_4_5, levels=YNDKRFlevels, labels=YNDKRFlabels) NISPUF10$INS_6 <- factor(NISPUF10$INS_6, levels=YNDKRFlevels, labels=YNDKRFlabels) NISPUF10$INS_11 <- factor(NISPUF10$INS_11, levels=YNDKRFlevels, labels=YNDKRFlabels) NISPUF10$P_NUHEPX <- factor(NISPUF10$P_NUHEPX, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUHIBX <- factor(NISPUF10$P_NUHIBX, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUHPHB <- factor(NISPUF10$P_NUHPHB, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMDAH <- factor(NISPUF10$P_NUMDAH, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMDHI <- factor(NISPUF10$P_NUMDHI, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMDIH <- factor(NISPUF10$P_NUMDIH, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMDTA <- factor(NISPUF10$P_NUMDTA, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMDTP <- factor(NISPUF10$P_NUMDTP, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMFLU <- factor(NISPUF10$P_NUMFLU, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMFLUL <- factor(NISPUF10$P_NUMFLUL, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMFLUM <- factor(NISPUF10$P_NUMFLUM, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMFLUN <- factor(NISPUF10$P_NUMFLUN, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMH1N <- factor(NISPUF10$P_NUMH1N, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUM1L <- factor(NISPUF10$P_NUM1L, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUM1M <- factor(NISPUF10$P_NUM1M, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUM1N <- factor(NISPUF10$P_NUM1N, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMHEA <- factor(NISPUF10$P_NUMHEA, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMHEN <- factor(NISPUF10$P_NUMHEN, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMHEP <- factor(NISPUF10$P_NUMHEP, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMHIB <- factor(NISPUF10$P_NUMHIB, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMHIN <- factor(NISPUF10$P_NUMHIN, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMHION <- factor(NISPUF10$P_NUMHION, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMHM <- factor(NISPUF10$P_NUMHM, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMHG <- factor(NISPUF10$P_NUMHG, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMHS <- factor(NISPUF10$P_NUMHS, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMIPV <- factor(NISPUF10$P_NUMIPV, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMMCN <- factor(NISPUF10$P_NUMMCN, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMMMR <- factor(NISPUF10$P_NUMMMR, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMMMRX <- factor(NISPUF10$P_NUMMMRX, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMMMX <- factor(NISPUF10$P_NUMMMX, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMMP <- factor(NISPUF10$P_NUMMP, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMMPR <- factor(NISPUF10$P_NUMMPR, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMMRV <- factor(NISPUF10$P_NUMMRV, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMMS <- factor(NISPUF10$P_NUMMS, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMMSM <- factor(NISPUF10$P_NUMMSM, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMMSR <- factor(NISPUF10$P_NUMMSR, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMOLN <- factor(NISPUF10$P_NUMOLN, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMOPV <- factor(NISPUF10$P_NUMOPV, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMPCV <- factor(NISPUF10$P_NUMPCV, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMPCP <- factor(NISPUF10$P_NUMPCP, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMPCC <- factor(NISPUF10$P_NUMPCC, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMPCC7 <- factor(NISPUF10$P_NUMPCC7, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMPCC13 <- factor(NISPUF10$P_NUMPCC13, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMPCCN <- factor(NISPUF10$P_NUMPCCN, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMPCN <- factor(NISPUF10$P_NUMPCN, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMPOL <- factor(NISPUF10$P_NUMPOL, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMRB <- factor(NISPUF10$P_NUMRB, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMRG <- factor(NISPUF10$P_NUMRG, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMRM <- factor(NISPUF10$P_NUMRM, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMRO <- factor(NISPUF10$P_NUMRO, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMROT <- factor(NISPUF10$P_NUMROT, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMTPN <- factor(NISPUF10$P_NUMTPN, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMVRC <- factor(NISPUF10$P_NUMVRC, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMVRN <- factor(NISPUF10$P_NUMVRN, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$P_NUMVRX <- factor(NISPUF10$P_NUMVRX, levels=SHOTCOUNlevels, labels=SHOTCOUNlabels) NISPUF10$SC_431 <- factor(NISPUF10$SC_431, levels=SCUTDlevels, labels=SCUTDlabels) NISPUF10$SC_4313 <- factor(NISPUF10$SC_4313, levels=SCUTDlevels, labels=SCUTDlabels) NISPUF10$SC_43133 <- factor(NISPUF10$SC_43133, levels=SCUTDlevels, labels=SCUTDlabels) NISPUF10$SC_DTP <- factor(NISPUF10$SC_DTP, levels=SCUTDlevels, labels=SCUTDlabels) NISPUF10$SC_HEPB <- factor(NISPUF10$SC_HEPB, levels=SCUTDlevels, labels=SCUTDlabels) NISPUF10$SC_HIB <- factor(NISPUF10$SC_HIB, levels=SCUTDlevels, labels=SCUTDlabels) NISPUF10$SC_MCV <- factor(NISPUF10$SC_MCV, levels=SCUTDlevels, labels=SCUTDlabels) NISPUF10$SC_POL <- factor(NISPUF10$SC_POL, levels=SCUTDlevels, labels=SCUTDlabels) NISPUF10$SC_VRC <- factor(NISPUF10$SC_VRC, levels=SCUTDlevels, labels=SCUTDlabels) NISPUF10$HH_DTP <- factor(NISPUF10$HH_DTP, levels=HHNUMlevels, labels=HHNUMlabels) NISPUF10$HH_HEPB <- factor(NISPUF10$HH_HEPB, levels=HHNUMlevels, labels=HHNUMlabels) NISPUF10$HH_HIB <- factor(NISPUF10$HH_HIB, levels=HHNUMlevels, labels=HHNUMlabels) NISPUF10$HH_MCV <- factor(NISPUF10$HH_MCV, levels=HHNUMlevels, labels=HHNUMlabels) NISPUF10$HH_POL <- factor(NISPUF10$HH_POL, levels=HHNUMlevels, labels=HHNUMlabels) NISPUF10$HH_VRC <- factor(NISPUF10$HH_VRC, levels=HHNUMlevels, labels=HHNUMlabels) NISPUF10$HH_FLU <- factor(NISPUF10$HH_FLU, levels=HHNUMlevels, labels=HHNUMlabels) NISPUF10$HH_H1N <- factor(NISPUF10$HH_H1N, levels=HHNUMlevels, labels=HHNUMlabels) NISPUF10$D7 <- factor(NISPUF10$D7, levels=YNlevels, labels=YNlabels) NISPUF10$SHOTCARD <- factor(NISPUF10$SHOTCARD, levels=SHOTCARDlevels, labels=SHOTCARDlabels) NISPUF10$BFENDFL06 <- factor(NISPUF10$BFENDFL06, levels=Ylevels, labels=Ylabels) NISPUF10$BFFORMFL06 <- factor(NISPUF10$BFFORMFL06, levels=Ylevels, labels=Ylabels) NISPUF10$CHILDNM <- factor(NISPUF10$CHILDNM, levels=CHILDNMlevels, labels=CHILDNMlabels) NISPUF10$CWIC_01 <- factor(NISPUF10$CWIC_01, levels=CWIClevels, labels=CWIClabels) NISPUF10$EDUC1 <- factor(NISPUF10$EDUC1, levels=EDUC1_levels, labels=EDUC1_labels) NISPUF10$I_HISP_K <- factor(NISPUF10$I_HISP_K, levels=HISPlevels, labels=HISPlabels) NISPUF10$M_AGEGRP <- factor(NISPUF10$M_AGEGRP, levels=MAGEGRPlevels, labels=MAGEGRPlabels) NISPUF10$MOBIL_I <- factor(NISPUF10$MOBIL_I, levels=MOBILlevels, labels=MOBILlabels) NISPUF10$SEX <- factor(NISPUF10$SEX, levels=SEXlevels, labels=SEXlabels) NISPUF10$INCPOV1 <- factor(NISPUF10$INCPOV1, levels=INCPOVlevels, labels=INCPOVlabels) NISPUF10$DISPCODE <- factor(NISPUF10$DISPCODE, levels=DISPlevels, labels=DISPlabels) NISPUF10$PDAT <- factor(NISPUF10$PDAT, levels=HASPDA2Flevels, labels=HASPDA2Flabels) NISPUF10$PROV_FAC <- factor(NISPUF10$PROV_FAC, levels=PROVIDlevels, labels=PROVIDlabels) NISPUF10$REGISTRY <- factor(NISPUF10$REGISTRY, levels=REGISTRYlevels, labels=REGISTRYlabels) NISPUF10$VFC_ORDER <- factor(NISPUF10$VFC_ORDER, levels=REGISTRYlevels, labels=REGISTRYlabels) NISPUF10$XDTPTY1 <- factor(NISPUF10$XDTPTY1, levels=TYPElevels, labels=TYPElabels) NISPUF10$XDTPTY2 <- factor(NISPUF10$XDTPTY2, levels=TYPElevels, labels=TYPElabels) NISPUF10$XDTPTY3 <- factor(NISPUF10$XDTPTY3, levels=TYPElevels, labels=TYPElabels) NISPUF10$XDTPTY4 <- factor(NISPUF10$XDTPTY4, levels=TYPElevels, labels=TYPElabels) NISPUF10$XDTPTY5 <- factor(NISPUF10$XDTPTY5, levels=TYPElevels, labels=TYPElabels) NISPUF10$XDTPTY6 <- factor(NISPUF10$XDTPTY6, levels=TYPElevels, labels=TYPElabels) NISPUF10$XDTPTY7 <- factor(NISPUF10$XDTPTY7, levels=TYPElevels, labels=TYPElabels) NISPUF10$XDTPTY8 <- factor(NISPUF10$XDTPTY8, levels=TYPElevels, labels=TYPElabels) NISPUF10$XDTPTY9 <- factor(NISPUF10$XDTPTY9, levels=TYPElevels, labels=TYPElabels) NISPUF10$XFLUTY1 <- factor(NISPUF10$XFLUTY1, levels=TYPElevels, labels=TYPElabels) NISPUF10$XFLUTY2 <- factor(NISPUF10$XFLUTY2, levels=TYPElevels, labels=TYPElabels) NISPUF10$XFLUTY3 <- factor(NISPUF10$XFLUTY3, levels=TYPElevels, labels=TYPElabels) NISPUF10$XFLUTY4 <- factor(NISPUF10$XFLUTY4, levels=TYPElevels, labels=TYPElabels) NISPUF10$XFLUTY5 <- factor(NISPUF10$XFLUTY5, levels=TYPElevels, labels=TYPElabels) NISPUF10$XFLUTY6 <- factor(NISPUF10$XFLUTY6, levels=TYPElevels, labels=TYPElabels) NISPUF10$XFLUTY7 <- factor(NISPUF10$XFLUTY7, levels=TYPElevels, labels=TYPElabels) NISPUF10$XFLUTY8 <- factor(NISPUF10$XFLUTY8, levels=TYPElevels, labels=TYPElabels) NISPUF10$XFLUTY9 <- factor(NISPUF10$XFLUTY9, levels=TYPElevels, labels=TYPElabels) NISPUF10$XH1NTY1 <- factor(NISPUF10$XH1NTY1, levels=TYPElevels, labels=TYPElabels) NISPUF10$XH1NTY2 <- factor(NISPUF10$XH1NTY2, levels=TYPElevels, labels=TYPElabels) NISPUF10$XH1NTY3 <- factor(NISPUF10$XH1NTY3, levels=TYPElevels, labels=TYPElabels) NISPUF10$XH1NTY4 <- factor(NISPUF10$XH1NTY4, levels=TYPElevels, labels=TYPElabels) NISPUF10$XH1NTY5 <- factor(NISPUF10$XH1NTY5, levels=TYPElevels, labels=TYPElabels) NISPUF10$XH1NTY6 <- factor(NISPUF10$XH1NTY6, levels=TYPElevels, labels=TYPElabels) NISPUF10$XH1NTY7 <- factor(NISPUF10$XH1NTY7, levels=TYPElevels, labels=TYPElabels) NISPUF10$XH1NTY8 <- factor(NISPUF10$XH1NTY8, levels=TYPElevels, labels=TYPElabels) NISPUF10$XH1NTY9 <- factor(NISPUF10$XH1NTY9, levels=TYPElevels, labels=TYPElabels) NISPUF10$XHEPTY1 <- factor(NISPUF10$XHEPTY1, levels=TYPElevels, labels=TYPElabels) NISPUF10$XHEPTY2 <- factor(NISPUF10$XHEPTY2, levels=TYPElevels, labels=TYPElabels) NISPUF10$XHEPTY3 <- factor(NISPUF10$XHEPTY3, levels=TYPElevels, labels=TYPElabels) NISPUF10$XHEPTY4 <- factor(NISPUF10$XHEPTY4, levels=TYPElevels, labels=TYPElabels) NISPUF10$XHEPTY5 <- factor(NISPUF10$XHEPTY5, levels=TYPElevels, labels=TYPElabels) NISPUF10$XHEPTY6 <- factor(NISPUF10$XHEPTY6, levels=TYPElevels, labels=TYPElabels) NISPUF10$XHEPTY7 <- factor(NISPUF10$XHEPTY7, levels=TYPElevels, labels=TYPElabels) NISPUF10$XHEPTY8 <- factor(NISPUF10$XHEPTY8, levels=TYPElevels, labels=TYPElabels) NISPUF10$XHEPTY9 <- factor(NISPUF10$XHEPTY9, levels=TYPElevels, labels=TYPElabels) NISPUF10$XHIBTY1 <- factor(NISPUF10$XHIBTY1, levels=TYPElevels, labels=TYPElabels) NISPUF10$XHIBTY2 <- factor(NISPUF10$XHIBTY2, levels=TYPElevels, labels=TYPElabels) NISPUF10$XHIBTY3 <- factor(NISPUF10$XHIBTY3, levels=TYPElevels, labels=TYPElabels) NISPUF10$XHIBTY4 <- factor(NISPUF10$XHIBTY4, levels=TYPElevels, labels=TYPElabels) NISPUF10$XHIBTY5 <- factor(NISPUF10$XHIBTY5, levels=TYPElevels, labels=TYPElabels) NISPUF10$XHIBTY6 <- factor(NISPUF10$XHIBTY6, levels=TYPElevels, labels=TYPElabels) NISPUF10$XHIBTY7 <- factor(NISPUF10$XHIBTY7, levels=TYPElevels, labels=TYPElabels) NISPUF10$XHIBTY8 <- factor(NISPUF10$XHIBTY8, levels=TYPElevels, labels=TYPElabels) NISPUF10$XHIBTY9 <- factor(NISPUF10$XHIBTY9, levels=TYPElevels, labels=TYPElabels) NISPUF10$XMMRTY1 <- factor(NISPUF10$XMMRTY1, levels=TYPElevels, labels=TYPElabels) NISPUF10$XMMRTY2 <- factor(NISPUF10$XMMRTY2, levels=TYPElevels, labels=TYPElabels) NISPUF10$XMMRTY3 <- factor(NISPUF10$XMMRTY3, levels=TYPElevels, labels=TYPElabels) NISPUF10$XMMRTY4 <- factor(NISPUF10$XMMRTY4, levels=TYPElevels, labels=TYPElabels) NISPUF10$XMMRTY5 <- factor(NISPUF10$XMMRTY5, levels=TYPElevels, labels=TYPElabels) NISPUF10$XMMRTY6 <- factor(NISPUF10$XMMRTY6, levels=TYPElevels, labels=TYPElabels) NISPUF10$XMMRTY7 <- factor(NISPUF10$XMMRTY7, levels=TYPElevels, labels=TYPElabels) NISPUF10$XMMRTY8 <- factor(NISPUF10$XMMRTY8, levels=TYPElevels, labels=TYPElabels) NISPUF10$XMMRTY9 <- factor(NISPUF10$XMMRTY9, levels=TYPElevels, labels=TYPElabels) NISPUF10$XPCVTY1 <- factor(NISPUF10$XPCVTY1, levels=TYPElevels, labels=TYPElabels) NISPUF10$XPCVTY2 <- factor(NISPUF10$XPCVTY2, levels=TYPElevels, labels=TYPElabels) NISPUF10$XPCVTY3 <- factor(NISPUF10$XPCVTY3, levels=TYPElevels, labels=TYPElabels) NISPUF10$XPCVTY4 <- factor(NISPUF10$XPCVTY4, levels=TYPElevels, labels=TYPElabels) NISPUF10$XPCVTY5 <- factor(NISPUF10$XPCVTY5, levels=TYPElevels, labels=TYPElabels) NISPUF10$XPCVTY6 <- factor(NISPUF10$XPCVTY6, levels=TYPElevels, labels=TYPElabels) NISPUF10$XPCVTY7 <- factor(NISPUF10$XPCVTY7, levels=TYPElevels, labels=TYPElabels) NISPUF10$XPCVTY8 <- factor(NISPUF10$XPCVTY8, levels=TYPElevels, labels=TYPElabels) NISPUF10$XPCVTY9 <- factor(NISPUF10$XPCVTY9, levels=TYPElevels, labels=TYPElabels) NISPUF10$XPOLTY1 <- factor(NISPUF10$XPOLTY1, levels=TYPElevels, labels=TYPElabels) NISPUF10$XPOLTY2 <- factor(NISPUF10$XPOLTY2, levels=TYPElevels, labels=TYPElabels) NISPUF10$XPOLTY3 <- factor(NISPUF10$XPOLTY3, levels=TYPElevels, labels=TYPElabels) NISPUF10$XPOLTY4 <- factor(NISPUF10$XPOLTY4, levels=TYPElevels, labels=TYPElabels) NISPUF10$XPOLTY5 <- factor(NISPUF10$XPOLTY5, levels=TYPElevels, labels=TYPElabels) NISPUF10$XPOLTY6 <- factor(NISPUF10$XPOLTY6, levels=TYPElevels, labels=TYPElabels) NISPUF10$XPOLTY7 <- factor(NISPUF10$XPOLTY7, levels=TYPElevels, labels=TYPElabels) NISPUF10$XPOLTY8 <- factor(NISPUF10$XPOLTY8, levels=TYPElevels, labels=TYPElabels) NISPUF10$XPOLTY9 <- factor(NISPUF10$XPOLTY9, levels=TYPElevels, labels=TYPElabels) NISPUF10$XROTTY1 <- factor(NISPUF10$XROTTY1, levels=TYPElevels, labels=TYPElabels) NISPUF10$XROTTY2 <- factor(NISPUF10$XROTTY2, levels=TYPElevels, labels=TYPElabels) NISPUF10$XROTTY3 <- factor(NISPUF10$XROTTY3, levels=TYPElevels, labels=TYPElabels) NISPUF10$XROTTY4 <- factor(NISPUF10$XROTTY4, levels=TYPElevels, labels=TYPElabels) NISPUF10$XROTTY5 <- factor(NISPUF10$XROTTY5, levels=TYPElevels, labels=TYPElabels) NISPUF10$XROTTY6 <- factor(NISPUF10$XROTTY6, levels=TYPElevels, labels=TYPElabels) NISPUF10$XROTTY7 <- factor(NISPUF10$XROTTY7, levels=TYPElevels, labels=TYPElabels) NISPUF10$XROTTY8 <- factor(NISPUF10$XROTTY8, levels=TYPElevels, labels=TYPElabels) NISPUF10$XROTTY9 <- factor(NISPUF10$XROTTY9, levels=TYPElevels, labels=TYPElabels) NISPUF10$XVRCTY1 <- factor(NISPUF10$XVRCTY1, levels=TYPElevels, labels=TYPElabels) NISPUF10$XVRCTY2 <- factor(NISPUF10$XVRCTY2, levels=TYPElevels, labels=TYPElabels) NISPUF10$XVRCTY3 <- factor(NISPUF10$XVRCTY3, levels=TYPElevels, labels=TYPElabels) NISPUF10$XVRCTY4 <- factor(NISPUF10$XVRCTY4, levels=TYPElevels, labels=TYPElabels) NISPUF10$XVRCTY5 <- factor(NISPUF10$XVRCTY5, levels=TYPElevels, labels=TYPElabels) NISPUF10$XVRCTY6 <- factor(NISPUF10$XVRCTY6, levels=TYPElevels, labels=TYPElabels) NISPUF10$XVRCTY7 <- factor(NISPUF10$XVRCTY7, levels=TYPElevels, labels=TYPElabels) NISPUF10$XVRCTY8 <- factor(NISPUF10$XVRCTY8, levels=TYPElevels, labels=TYPElabels) NISPUF10$XVRCTY9 <- factor(NISPUF10$XVRCTY9, levels=TYPElevels, labels=TYPElabels) NISPUF10$HEP_BRTH <- factor(NISPUF10$HEP_BRTH, levels=HEPBRTlevels, labels=HEPBRTlabels) NISPUF10$HEP_FLAG <- factor(NISPUF10$HEP_FLAG, levels=HEPFLGlevels, labels=HEPFLGlabels) NISPUF10$P_U12VRC <- factor(NISPUF10$P_U12VRC, levels=UTDlevels, labels=UTDlabels) NISPUF10$P_UTD331 <- factor(NISPUF10$P_UTD331, levels=UTDlevels, labels=UTDlabels) NISPUF10$P_UTD431 <- factor(NISPUF10$P_UTD431, levels=UTDlevels, labels=UTDlabels) NISPUF10$P_UTDH1N_1 <- factor(NISPUF10$P_UTDH1N_1, levels=UTDlevels, labels=UTDlabels) NISPUF10$P_UTDH1N_2 <- factor(NISPUF10$P_UTDH1N_2, levels=UTDlevels, labels=UTDlabels) NISPUF10$P_UTDHEP <- factor(NISPUF10$P_UTDHEP, levels=UTDlevels, labels=UTDlabels) NISPUF10$P_UTDHEPA2 <- factor(NISPUF10$P_UTDHEPA2, levels=UTDlevels, labels=UTDlabels) NISPUF10$P_UTDHIB <- factor(NISPUF10$P_UTDHIB, levels=UTDlevels, labels=UTDlabels) NISPUF10$P_UTDHIB_ROUT_S <- factor(NISPUF10$P_UTDHIB_ROUT_S, levels=UTDlevels, labels=UTDlabels) NISPUF10$P_UTDHIB_SHORT_S <- factor(NISPUF10$P_UTDHIB_SHORT_S, levels=UTDlevels, labels=UTDlabels) NISPUF10$P_UTDMCV <- factor(NISPUF10$P_UTDMCV, levels=UTDlevels, labels=UTDlabels) NISPUF10$P_UTDMMX <- factor(NISPUF10$P_UTDMMX, levels=UTDlevels, labels=UTDlabels) NISPUF10$P_UTDPC3 <- factor(NISPUF10$P_UTDPC3, levels=UTDlevels, labels=UTDlabels) NISPUF10$P_UTDPCV <- factor(NISPUF10$P_UTDPCV, levels=UTDlevels, labels=UTDlabels) NISPUF10$P_UTDPOL <- factor(NISPUF10$P_UTDPOL, levels=UTDlevels, labels=UTDlabels) NISPUF10$P_UTDROT_S <- factor(NISPUF10$P_UTDROT_S, levels=UTDlevels, labels=UTDlabels) NISPUF10$P_UTDTP3 <- factor(NISPUF10$P_UTDTP3, levels=UTDlevels, labels=UTDlabels) NISPUF10$P_UTDTP4 <- factor(NISPUF10$P_UTDTP4, levels=UTDlevels, labels=UTDlabels) NISPUF10$PU431331 <- factor(NISPUF10$PU431331, levels=UTDlevels, labels=UTDlabels) NISPUF10$P_UTD431H31_ROUT_S <- factor(NISPUF10$P_UTD431H31_ROUT_S, levels=UTDlevels, labels=UTDlabels) NISPUF10$PU431_31 <- factor(NISPUF10$PU431_31, levels=UTDlevels, labels=UTDlabels) NISPUF10$PU4313313 <- factor(NISPUF10$PU4313313, levels=UTDlevels, labels=UTDlabels) NISPUF10$P_UTD431H313_ROUT_S <- factor(NISPUF10$P_UTD431H313_ROUT_S, levels=UTDlevels, labels=UTDlabels) NISPUF10$PU4313314 <- factor(NISPUF10$PU4313314, levels=UTDlevels, labels=UTDlabels) NISPUF10$P_UTD431H314_ROUT_S <- factor(NISPUF10$P_UTD431H314_ROUT_S, levels=UTDlevels, labels=UTDlabels) NISPUF10$PU431_314 <- factor(NISPUF10$PU431_314, levels=UTDlevels, labels=UTDlabels) NISPUF10$PUT43133 <- factor(NISPUF10$PUT43133, levels=UTDlevels, labels=UTDlabels) NISPUF10$P_UTD431H3_ROUT_S <- factor(NISPUF10$P_UTD431H3_ROUT_S, levels=UTDlevels, labels=UTDlabels) NISPUF10$PUTD4313 <- factor(NISPUF10$PUTD4313, levels=UTDlevels, labels=UTDlabels) NISPUF10$P_UTD431H_ROUT_S <- factor(NISPUF10$P_UTD431H_ROUT_S, levels=UTDlevels, labels=UTDlabels) NISPUF10$CEN_REG <- factor(NISPUF10$CEN_REG, levels=CENREGlevels, labels=CENREGlabels) NISPUF10$STATE <- factor(NISPUF10$STATE, levels=STATElevels, labels=STATElabels) NISPUF10$P_UTDFL1 <- factor(NISPUF10$P_UTDFL1, levels=FLUUTDlevels, labels=FLUUTDlabels) NISPUF10$P_UTDFL2 <- factor(NISPUF10$P_UTDFL2, levels=FLUUTDlevels, labels=FLUUTDlabels) NISPUF10$P_UTDFL3 <- factor(NISPUF10$P_UTDFL3, levels=FLUUTDlevels, labels=FLUUTDlabels) NISPUF10$RACE_K <- factor(NISPUF10$RACE_K, levels=RACE_PUFlevels, labels=RACE_PUFlabels) NISPUF10$AGECPOXR <- factor(NISPUF10$AGECPOXR, levels=AGECPOXRlevels, labels=AGECPOXRlabels) NISPUF10$C1R <- factor(NISPUF10$C1R, levels=C1Rlevels, labels=C1Rlabels) NISPUF10$C5R <- factor(NISPUF10$C5R, levels=C5Rlevels, labels=C5Rlabels) NISPUF10$INCQ298A <- factor(NISPUF10$INCQ298A, levels=INCQ298Alevels, labels=INCQ298Alabels) NISPUF10$RACEETHK <- factor(NISPUF10$RACEETHK, levels=RACEETHKlevels, labels=RACEETHKlabels) NISPUF10$D6R <- factor(NISPUF10$D6R, levels=D6Rlevels, labels=D6Rlabels) NISPUF10$N_PRVR <- factor(NISPUF10$N_PRVR, levels=D6Rlevels, labels=D6Rlabels) NISPUF10$FRSTBRN <- factor(NISPUF10$FRSTBRN, levels=FRSTBRNlevels, labels=FRSTBRNlabels) NISPUF10$SEQNUMC <- factor(NISPUF10$SEQNUMC, levels=CHARIDlevels, labels=CHARIDlabels) NISPUF10$SEQNUMHH <- factor(NISPUF10$SEQNUMHH, levels=CHARIDlevels, labels=CHARIDlabels) NISPUF10$BF_FORMR08 <- factor(NISPUF10$BF_FORMR08, levels=BFFORM08Flevels, labels=BFFORM08Flabels) NISPUF10$RENT_OWN <- factor(NISPUF10$RENT_OWN, levels=RENTOWNlevels, labels=RENTOWNlabels) NISPUF10$NUM_PHONE <- factor(NISPUF10$NUM_PHONE, levels=NUM_PHONlevels, labels=NUM_PHONlabels) NISPUF10$NUM_CELLS_HH <- factor(NISPUF10$NUM_CELLS_HH, levels=NUM_PHONlevels, labels=NUM_PHONlabels) NISPUF10$NUM_CELLS_PARENTS <- factor(NISPUF10$NUM_CELLS_PARENTS, levels=NUM_PHONlevels, labels=NUM_PHONlabels) NISPUF10$VFC_I <- factor(NISPUF10$VFC_I, levels=INS_STATlevels, labels=INS_STATlabels) NISPUF10$MARITAL2 <- factor(NISPUF10$MARITAL2, levels=MAR_PUF2_levels, labels=MAR_PUF2_labels) NISPUF10$ESTIAP10 <- factor(NISPUF10$ESTIAP10, levels=ESTIAP10Flevels, labels=ESTIAP10Flabels) NISPUF10$P_UTDPCVB13 <- factor(NISPUF10$P_UTDPCVB13, levels=UTDPCVBlevels, labels=UTDPCVBlabels) ########################################################################## # STEP 7: CONTENTS AND STATISTICAL ESTIMATES(FREQUENCY) EXAMPLE # ########################################################################## #---CONTENTS---# NISPUF10.CONTENTS <- contents(NISPUF10)$contents print(NISPUF10.CONTENTS) #IN CASE THAT THE R CONSOLE CANNOT DISPLAY WHOLE CONTENTS, #YOU CAN SAVE CONTENTS INTO A FILE #write.table(NISPUF10.CONTENTS, file=paste(PUF,"/file-name",sep="")) #---UNWEIGHTED FREQUENCY---# unwt_freq <- function(UNWT.VAR){#FUNCTION TO PRINT UNWEIGHTED FREQUENCIES unwt.tab <- wtd.table(UNWT.VAR, weights= NULL, type='table') unwtd.freq <- data.frame(cbind( unwt.tab, round(unwt.tab/sum(unwt.tab)*100,2), cumsum(unwt.tab), cumsum(round(unwt.tab/sum(unwt.tab)*100,2)))) names(unwtd.freq) <- c("Frequency", "Percent", "Cumulative Frequency", "Cumulative Percent") unwtd.title <- paste('2010 NIS', 'UNWEIGHTED FREQUENCIES', label(UNWT.VAR), sep="\n") label(unwtd.freq) <- unwtd.title print(unwtd.freq) } UNWT.VAR <- NISPUF10$AGEGRP #INPUT A VARIABLE OF INTEREST unwt_freq(UNWT.VAR) #---WEIGHTED FREQUENCY---# WT <- NISPUF10$RDDWT #INPUT A WEIGHT VARIABLE WT.VAR <- NISPUF10$AGEGRP #INPUT A VARIABLE OF INTEREST wt.tab <- wtd.table(WT.VAR, weights= WT, type='table') wtd.freq <- data.frame(cbind( wt.tab, round(wt.tab/sum(wt.tab)*100,2), cumsum(wt.tab), cumsum(round(wt.tab/sum(wt.tab)*100,2)))) names(wtd.freq) <- c("Frequency", "Percent", "Cumulative Frequency", "Cumulative Percent") wtd.title <- paste('2010 NIS PUBLIC USE FILE', 'WEIGHTED FREQUENCIES (EXCLUDING U.S. VIRGIN ISLANDS)', label(WT.VAR), sep="\n") label(wtd.freq) <- wtd.title print(wtd.freq)