mean.mata

是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到

*! version 1.0.0  15oct2004
version 9.0
mata:

real rowvector mean(real matrix X, real colvector w)
{
	real rowvector	CP
	real scalar	n 

	CP = quadcross(w,0, X,1)
	n  = cols(CP)
	return(CP[|1\n-1|] :/ CP[n])
}

end