The internal function to calculate the objective function value of D optimal design with right censoring plan.
Dobj.rc(x, formula, coef, nf, tc, alpha)