search for: beta_tested

Displaying 1 result from an estimated 1 matches for "beta_tested".

2010 Mar 27
1
R runs in a usual way, but simulations are not performed
...,y) crossprod(solve(crossprod(z)),crossprod(z,log(resids_ols(x,y)^2))) coefolsEST_ADD <- function(x,y) t(alpha_ols_ADD(x,y)) coefolsEST_MIX <- function(x,y) t(alpha_ols_MIX(x,y)) coefolsEST_EXP <- function(x,y) t(alpha_ols_EXP(x,y)) kenward_roger_both <- function(model,estimated_alpha,beta_tested,x,y,z) { x = x; y = y; z = z if (model == "ADD") { inner <- function(i,j,alpha) { FI <- fi(sigma_ADD(alpha)) Pi <- pi_ADD(sigma_ADD(alpha),i) Pj <- pi_ADD(sigma_ADD(alpha),j) Qij <- qij_ADD(sigma_ADD(alpha),i,j) W <- expcovmat_ADD(alpha) inner = matrix(nrow = ncol(x), nc...