if (FALSE) {
gradient <- grad( LL.Regression.Binary, x = parameter,
model.type = model.type, model.name = model.name, link = link,
ntrials = ntrials, nsuccess = nsuccess,
covariates.matrix.mean = covariates.matrix.mean,
covariates.matrix.scalef = covariates.matrix.scalef,
offset.mean = offset.mean, offset.scalef = offset.scalef,
weights = weights, grad.method = "Richardson")
return(gradient)
}
Run the code above in your browser using DataLab