clear
set obs 100
* Some numbers of obs, not ordered
glo numbers "10 40 26 76 24 49 96 12"
* Generate variables with these numbers of observations
foreach n in $numbers {
gen x`n'=.
replace x`n'=uniform() in 1/`n'
}
* Append the number of observations to the beginning of each variable name
foreach x of varlist * {
count if !mi(`x')
glo n=r(N)
ren `x' _$n`x'
}
* Order alphabetically
order _all, alphabetic
* Remove prefixes
rename _*x* x*
clear
input trading_day Aarlin Melbac Zebco
1 0.92 0.09 0.06
2 0.53 0.15 0.55
3 0.87 . 0.43
4 . . 0.71
5 . . 0.97
end
* Append the number of observations to the beginning of each variable name
glo vars ""
foreach x of varlist Aarlin-Zebco {
count if !mi(`x')
glo n=r(N)
* I use a double underscore here to avoid clashes with the single underscore of trading_day, you can use any character
ren `x' a${n}__`x'
}
* Order alphabetically
order _all, alphabetic
* Remove prefixes
rename *__* *[2]
global n : display %05.0f r(N)
glo list = "a2049ABCo a365XYZInc" glo olist : list sort global list di "$olist" glo list = "a2049ABCo a0365XYZInc" glo olist : list sort global list di "$olist"
clear
input trading_day Aarlin Melbac Zebco
1 0.92 0.09 0.06
2 0.53 0.15 0.55
3 0.87 . 0.43
4 . . 0.71
5 . . 0.97
end
* Append the number of observations to the beginning of each variable name
foreach x of varlist Aarlin-Zebco {
count if !mi(`x')
glo n: di %05.0f r(N)
* I use a double underscore here to avoid clashes with the single underscore of trading_day, you can use any character
ren `x' a${n}__`x'
}
* Order alphabetically
order _all, alphabetic
* Remove prefixes
rename *__* *[2]
*! version 1.3.0 13aug2015 daniel klein
pr vorter
vers 11.2
gettoken sign 0 : 0 , p("+-")
if (!inlist(`"`sign'"', "+", "-")) {
loc 0 `sign' `0'
loc sign +
}
loc sign = (0 `sign' 1)
gettoken stat : 0 , m(par)
if mi("`par'") {
loc stat // reset empty
loc inq [in/]
}
else {
gettoken stat 0 : 0 , m(par)
vorter_set_stat `stat'
loc num num
}
syntax varlist(`num' min = 2) `inq' ///
[ , Return * ]
cap conf numeric v `varlist'
loc isstr = _rc
if (`isstr') {
conf str v `varlist'
}
if mi("`in'") {
if mi("`stat'") {
loc in 1
}
else {
loc in .
}
}
else {
numlist "`in'" , max(1)
loc in `r(numlist)'
}
m : mf_vorter("varlist", `in', `sign')
if mi("`return'") {
if (`"`macval(options)'"' != "") {
loc cma ,
}
order `r(varlist)' `cma' `options'
}
end
pr vorter_set_stat
vers 11.2
args stat void
if mi(`"`stat'"') | (`"`void'"' != "") {
err 198
}
loc 0 , `stat'
syntax ///
[ , ///
Mean ///
COUnt ///
N /// not documented
MAx ///
MIn ///
SUm ///
* ///
]
loc stat `mean' `count' `n' `max' `min' `sum'
if mi("`stat'") {
di as err `"`macval(options)' unknown {it:stat}"'
e 198
}
c_local stat `stat'
end
vers 11.2
m :
void mf_vorter(string rowvector vars,
real scalar obsno,
real scalar sign)
{
real scalar isstr
string scalar stat
transmorphic matrix sx
vars = tokens(st_local(vars))
isstr = (st_local("isstr") == "1")
stat = st_local("stat")
/*
we add the variable indices
as the second/last row to sx
*/
if (isstr) {
sx = st_sdata(obsno, vars)
sx = sx\ strofreal(st_varindex(vars))
}
else {
sx = st_data(obsno, vars)
sx = sx\ st_varindex(vars)
}
if (stat != "") {
sx = mf_vorter_add_stat(sx)
}
sx = sort(sx', sign)'
if (isstr) {
sx = strtoreal(sx)
}
vars = st_varname((sort(st_varindex(vars)', 1)'))
st_rclear()
st_global("r(oorder)", invtokens(vars))
st_global("r(varlist)", invtokens(st_varname(sx[2, .])))
if (stat != "") {
st_matrix("r(" + stat + ")", sx[1, .])
st_matrixrowstripe("r(" + stat + ")", ("", stat))
st_matrixcolstripe("r(" + stat + ")", ///
(J(cols(vars), 1, ""), st_varname(sx[2, .])'))
}
}
real matrix mf_vorter_add_stat(real matrix x)
{
real matrix xlast
string scalar stat
/* strip variable indices */
xlast = x[rows(x), .]
x = x[(1::rows(x) - 1), .]
stat = st_local("stat")
if (stat == "mean") {
x = (colsum(x) :/ colnonmissing(x))
}
else if (anyof(("count", "n"), stat)) {
x = colnonmissing(x)
}
else if (stat == "max") {
x = colmax(x)
}
else if (stat == "min") {
x = colmin(x)
}
else if (stat == "sum") {
x = colsum(x)
}
else {
assert(0)
}
/* add variable indices */
x = x\ xlast
return(x)
}
end
e
vorter (count) Aarlin-Zebco
Comment