Displaying 1 result from an estimated 1 matches for "simtype".
Did you mean:
sigtype
2010 Mar 27
1
R runs in a usual way, but simulations are not performed
...ossprod(t(x),beta) + crossprod(sigma_exp^(1/2),res)
return(y) }
else return(cat("The wrong argument (type)- must be either >ADD<, or
>MIX<, or >EXP<.\n")) }
######## pomocn? funkcie pre simulovanie
################################################
loglk <- function(simtype) { if (simtype == "ADD") reml.loglik_ADD
else if (simtype == "MIX") reml.loglik_MIX
else reml.loglik_EXP }
gradvec <- function(simtype) { if (simtype == "ADD") gradvec_ADD
else if (simtype == "MIX") gradvec_MIX
else gradvec_EXP }
hessmat <- function(s...