Nothing
library(helda)
context('lift curve function')
test_that("lift curve for titanic data set", {
data_training <- titanic_training
data_validation <- titanic_validation
model_glm <- glm(formula="Survived ~ Pclass + Sex + Age + SibSp + Fare + Embarked",
data=data_training,
family=binomial(link="logit"))
predictions <- predict(object=model_glm, newdata=data_validation, type="response")
result <- lift_curve(predictions=predictions, true_labels=data_validation$Survived, positive_label=1)
if(R.version$major == '4'){
load(file='lift_curve_test_v4.Rda')
}else{
load(file='lift_curve_test_v3.Rda')
}
expect_equivalent(result$coordinates, lift_curve_test$coordinates, check.environment = FALSE)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.