Calculate estimated allele effects, B matrix
calc_Bhat(X, Sigma_inv, Y)
X | dn by df block-diagonal design matrix that incorporates genetic info for d markers. Note that we can use the same marker data twice. |
---|---|
Sigma_inv | dn by dn inverse covariance matrix, often composed as the inverse of \(K \otimes V_g + I_n \otimes V_e\) |
Y | dn by 1 matrix, ie, a column vector, of d phenotypes' measurements |
a df by 1 matrix of GLS-estimated allele effects
X1 <- as.matrix(rbinom(n = 100, size = 1, prob = 1 / 2)) X <- gemma2::stagger_mats(X1, X1) Sigma_inv <- diag(200) Y <- runif(200) calc_Bhat(X, Sigma_inv, Y)#> [,1] #> [1,] 0.5009816 #> [2,] 0.4835893