R/logt.error.R

In SHELF: Tools to Support the Sheffield Elicitation Framework

logt.error <-
function(parameters, values, probabilities, weights, degreesfreedom){
	sum(weights * (pt((log(values) - parameters[1]) / exp(parameters[2]), degreesfreedom) - probabilities)^2)
}