powered by
penaltyFunctionGenerator(epsilon1 = 0.1, epsilon2 = 2, lambda1 = 1, lambda2 = 1)
custom.function <- penaltyFunctionGenerator(epsilon1=0.1,epsilon2=6,lambda1=1.5,lambda2=0)
Run the code above in your browser using DataLab