blob: 3f70cec9f981b0ee2c028cdb0c9b42cfaa43ad63 (
plain)
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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
/* Test file for kate's stata syntax highlighting
*/
*! version 1.2.0 2mar2003 E. Leuven
program define spellsplit
version 7
syntax [anything], spell(varlist min=2 max=2) [ by(varlist)]
tokenize `spell'
local date0 `1'
local date1 `2'
local f0 : format `date0'
local f1 : format `date1'
/* set default statistic */
local current "mean"
gettoken left anything : anything, match(prns)
while "`left'"!="" {
if "`prns'"!="" {
if !inlist("`left'","mean","sum") {
di as error "Statistic `left' not supported"
exit 198
}
local current "`left'"
}
else {
local `current'vars ``current'vars' `left'
}
gettoken left anything : anything, match(prns)
}
if ("`meanvars'"!="") {
confirm var `meanvars'
unab meanvars : `meanvars'
}
if ("`sumvars'"!="") {
confirm var `sumvars'
unab sumvars : `sumvars'
}
quietly {
g _count = 1
local xvars `meanvars' `sumvars' _count
/* create dummy by-var if no by option is specified */
if "`by'"=="" {
tempvar by
g byte `by' = 1
}
tempvar `xvars' `by'
/* create negative for subtraction when spell ends */
cap foreach v of varlist `xvars' {
g double ``v'' = -`v'
local txvars `txvars' ``v''
}
cap foreach v of varlist `by' {
g double ``v'' = `v'
local txvars `txvars' ``v''
}
stack `date0' `xvars' `by' `date1' `txvars', into(`date0' `xvars' `by') clear
/* calculate totals per date */
cap foreach v of varlist `xvars' {
egen double ``v'' = sum(`v'), by(`by' `date0')
}
/* unique dates only */
by `by' `date0', sort: keep if _n==1
/* calculate totals (+ when spell starts - when ends) */
sort `by'
cap foreach v of varlist `xvars' {
by `by': tqreplace `v' = sum(``v'')
}
by `by': g `date1' = `date0'[_n + 1]
drop if `date0'>`date1'
drop _stack
drop if _count==0
order `by' `date0' `date1' `xvars'
format `date0' `f0'
format `date1' `f1'
cap for var `meanvars': tqreplace X = X/_count
compress
}
end
|
