jhustata.github.io/labprep.do at main · jhustata/jhustata.github.io · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
qui {

	if 1 { //settings,logfile,macros

		cls
		clear

		capture log close
		log using lab.log, replace


        global url https://wwwn.cdc.gov/nchs/data/nhanes3/1a/
		global sasprogram lab.sas
		global datafile lab.dat

	}

	if 2 { //import lab.sas read-in commands

		import delimited ${url}$sasprogram

	}

	if 3 { //output lab.do file read-in commands

		preserve
		   keep in 640/995
		   keep v1
		   g id=_n+2
		   insobs 1
		   replace v1="#delimit ;" in `c(N)'
		   insobs 1
		   replace v1="infix" in `c(N)'
		   insobs 1
		   replace v1="using ${url}$datafile ;" in `c(N)'
		   insobs 1
		   replace v1="#delimit cr" in `c(N)'
		   replace id=1 if v1=="#delimit ;"
		   replace id=2 if v1=="infix"
		   replace id=`c(N)' if v1=="using ${url}$datafile ;"
		   replace id=id-1 if v1=="using ${url}$datafile ;"
		   replace id=`c(N)' if v1=="#delimit cr"
		   sort id
		   drop id
		   tempfile vars
		   format v1 %-20s
		   rename v1 concat
		   keep concat
		   save `vars'
		restore

		keep in 998/1353
	    split v1, p(" = ")
	    gen concat="lab var "+v11+" "+v12
		keep concat
		format concat %-20s
	    drop in `c(N)'
		tempfile labs
		save `labs'

		use `vars', clear
		append using `labs'
    	outfile using "lab.do", noquote replace

		log close

	}

}