[valse.git] / src / test / generate_test_data / helpers / covariance.R

covariance = function(p,a)
{
	A = matrix(a, p,p)
	for (i in 1:p){
		A[i,] = A[i,]^abs(i-(1:p))
	}
	return (A)
}
Commit	Line	Data
df3ef2db BA	1	covariance = function(p,a)
	2	{
	3	A = matrix(a, p,p)
c2028869	4	for (i in 1:p){
df3ef2db	5	A[i,] = A[i,]^abs(i-(1:p))
c2028869	6	}
df3ef2db BA	7	return (A)
df3ef2db BA	8	}