## File Name: mgsem_evaluate_penalties_evaluate_entry_fun_eval.R
## File Version: 0.10
mgsem_evaluate_penalties_evaluate_entry_fun_eval <- function(x, fun_eval,
args_eval, h, deriv=FALSE)
{
if (deriv){
args_eval$x <- x+h
val1 <- do.call(what=fun_eval, args=args_eval )
args_eval$x <- x-h
val2 <- do.call(what=fun_eval, args=args_eval )
val <- (val1-val2)/(2*h)
} else {
args_eval$x <- x
val <- do.call(what=fun_eval, args=args_eval )
}
return(val)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.