format admdate discdate %d
forvalues D = 10000/10010 {
gen d`D'=.
}
forvalues D = 10000/10010 {
replace d`D'=1 if `D'>=admdate & `D'<=discdate
}
collapse (count) d1*
gen id=0
reshape long d , i(id) j(date)
format date %d
list
-------------------------
________________________________________________________
Svend Juul
Institut for Folkesundhed, Afdeling for Epidemiologi
(Institute of Public Health, Department of Epidemiology)
Vennelyst Boulevard 6
DK-8000 Aarhus C, Denmark
Phone, work: +45 8942 6090
Phone, home: +45 8693 7796
Fax: +45 8613 1580
E-mail: [email protected]
_________________________________________________________
*
* For searches and help try:
* http://www.stata.com/support/faqs/res/findit.html
* http://www.stata.com/support/statalist/faq
* http://www.ats.ucla.edu/stat/stata/
