powered by
Objective function of LPWN estimator.
R.LPWN(param.vec, data, m, R_short = R_short, R_noise = R_noise)