https://nd.psychstat.org/ 2026-04-25T22:41:16+00:00 https://nd.psychstat.org/ https://nd.psychstat.org/_media/wiki/dokuwiki.svg text/html 2016-01-24T14:48:26+00:00 Anonymous (anonymous@undisclosed.example.com) https://nd.psychstat.org/lab/datasets/nlsy/index NLSY data sets PIAT math from 1997-2002 * R codes for initial data process for PIAT math * [Piat math data file] * [SAS codes for data process] * [Complete data] * [Suitable for student t analysis] Variables include: id, sex, age1997-age2002, piat1997-2002 * Try this for a mixture model * [With covariate sex] PIAT math from 1997-2002 (with grade information) * [Data file] * [SAS codes] * R codes (2010-03-11) PIAT math from 1997-2002 (with grade information/income/pare… text/html 2016-01-24T14:48:26+00:00 Anonymous (anonymous@undisclosed.example.com) https://nd.psychstat.org/lab/datasets/nlsy/r_codes_2010-03-11_2 ## data process ## process the piat math data piat.orig<-read.table('piatmath-age-grade-att.dat.txt', na.string='.') names(piat.orig)<-c('id','sex', 'race', 'grade1997', 'grade1998', 'grade1999', 'grade2000', 'grade2001', 'grade2002', 'age1997', 'age1998', 'age1999', 'age2000', 'age2001', 'age2002', 'piat1997', 'piat1998', 'piat1999', 'piat2000', 'piat2001', 'piat2002', 'parentgrade1997', 'language1997', 'income1', 'income2', 'income3', 'att1997', 'att1998', 'att1999', 'att2000', 'att2001', 'at… text/html 2016-01-24T14:48:26+00:00 Anonymous (anonymous@undisclosed.example.com) https://nd.psychstat.org/lab/datasets/nlsy/r_codes_2010-03-11 ## data process ## process the piat math data piat.orig<-read.table('piatmath-age-grade.dat.txt', na.string='.') names(piat.orig)<-c('id','sex', 'race', 'grade1997', 'grade1998', 'grade1999', 'grade2000', 'grade2001', 'grade2002', 'age1997', 'age1998', 'age1999', 'age2000', 'age2001', 'age2002', 'piat1997', 'piat1998', 'piat1999', 'piat2000', 'piat2001', 'piat2002') ## select data based on missingness M<-is.na(piat.orig) M.sum<-cbind(M[,1:3], apply(M[,4:9],1,sum), apply(M[,10:15],1,sum), appl… text/html 2016-01-24T14:48:26+00:00 Anonymous (anonymous@undisclosed.example.com) https://nd.psychstat.org/lab/datasets/nlsy/r_codes_for_initial_data_process_for_piat_math As of 2010-03-10 ## process the piat math data piat.orig<-read.table('piatmath.dat', na.string='.') names(piat.orig)<-c('id','sex','age1997','age1998','age1999','age2000','age2001','age2002','piat1997','piat1998','piat1999','piat2000','piat2001','piat2002') ## select data based on missingness M<-is.na(piat.orig) M.sum<-cbind(apply(M[,1:8],1,sum), apply(M[,9:14],1,sum)) table(M.sum[,2]) ## choose data with complete data on sex and age piat.comp.age<-piat.orig[M.sum[,1]==0,] dim(piat.comp.ag… text/html 2016-01-24T14:48:26+00:00 Anonymous (anonymous@undisclosed.example.com) https://nd.psychstat.org/lab/datasets/nlsy/sas_codes_for_process_grade-attend-income-edu options nocenter validvarname=any; *---Read in space-delimited ascii file; data new_data; infile 'C:\zzy\NLS\default-20100311103646462\default.dat' lrecl=132 missover DSD DLM=' ' print; input R0000100 R0033000 R0034200 R0536300 R0536401 R0536402 R0544800 R0551900 R1194000 R1194100 R1236300 R1482600 R1581400 R1581800 R1582400 R2399400 R2399600 R2399800 R2553500 R2873200 R2874200 R3876300 R3925700 R3989400 R4172100 R4173100 R5453700 R5518…