## File Name: SRM_COMPUTE_OPTIM_FUNCTION_GRAD.R
## File Version: 0.04
SRM_COMPUTE_OPTIM_FUNCTION_GRAD <- function(args_grad, method)
{
#- ML estimation
if (method == "ml"){
res <- do.call(what=SRM_COMPUTE_LOG_LIKELIHOOD_GRADIENT, args=args_grad)
}
#- ULS estimation
if (method == "uls"){
res <- SRM_COMPUTE_ULS_GRADIENT(args_grad=args_grad)
}
return(res)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.