minMSE (version 0.1.1)

evaluate_solution.optim: Evaluate MSE Equation (using optim)

Description

This function calls evaluate_solution, but since optim requires fn and gr to have the same parameters, it has two additional ones.

Usage

evaluate_solution.optim(par,
                        data,
                        change = NULL,
                        prev_index_list = NULL)

Arguments

par

a treatment assignment. The treatment and the data must have the same number of observations (rows).

data

a dataframe containing the covariate vectors for each attribute.

change

the parameter is only needed for optim, it does not play any role.

prev_index_list

the parameter is only needed for optim, it does not play any role.

Value

Returns the mean square error value for the current treatment assignment.

References

Schneider and Schlather (2017),

See Also

ginv, optim

Examples

Run this code
# NOT RUN {
input <- data.frame(c(10, 20, 30, 40, 130, 40, 120, 5, 10, 80),
                    c(2, 6, 2, 8, 1, 10, 9, 8, 7, 5),
                    c(1, 0, 2, 1, 0, 1, 0, 2, 1, 0))
colnames(input) <- c("IQ", "grade_maths", "both_parents")

evaluate_solution.optim(par = c(0, 1, 1, 1, 1, 0, 0, 0, 0, 0),
                        input)
# }

Run the code above in your browser using DataCamp Workspace