# NOT RUN {
data <- data.table::data.table(Target = runif(10))
data[, x1 := qnorm(Target)]
data[, x2 := runif(10)]
data[, Predict := log(pnorm(0.85 * x1 +
sqrt(1-0.85^2) * qnorm(x2)))]
data[, ':=' (x1 = NULL, x2 = NULL)]
data <- threshOptim(data = data,
actTar = "Target",
predTar = "Predict",
tpProfit = 0,
tnProfit = 0,
fpProfit = -1,
fnProfit = -2,
MinThresh = 0.001,
MaxThresh = 0.999,
ThresholdPrecision = 0.001)
optimalThreshold <- data$Thresholds
allResults <- data$EvaluationTable
# }
Run the code above in your browser using DataLab