revorder.mata

来自「是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到」· MATA 代码 · 共 14 行

*! version 1.0.1  15dec2004
version 9.0
mata:

real vector revorder(real vector p)
{
	real scalar	r, c

	if ((r=rows(p))==0 | (c=cols(p))==0) return(J(r,c,.))
	return(p[(r>c ? r : c)::1])
}

end