From 53f20d58628171934c097dff5602fe17765eae99 Mon Sep 17 00:00:00 2001 From: leshe4ka46 Date: Thu, 25 Dec 2025 21:28:30 +0300 Subject: finish --- R_LogR/main.r | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'R_LogR/main.r') diff --git a/R_LogR/main.r b/R_LogR/main.r index 748b0f4..01a4617 100755 --- a/R_LogR/main.r +++ b/R_LogR/main.r @@ -31,11 +31,15 @@ lines(test_dat$Income, pred, col = "blue", lwd = 2) new_data3 <- data.frame( - Income = c(58), - Age = c(25), + Income = c(90), + Age = c(60), price20 = c(1), price30 = c(0) ) predicted <- predict(model, newdata = new_data3) print(1 / (1 + exp(-predicted))) + + +sum(data$MYDEPV) +sum(pred) \ No newline at end of file -- cgit v1.2.3