diff options
| author | leshe4ka46 <alex9102naid1@ya.ru> | 2025-12-25 21:28:30 +0300 |
|---|---|---|
| committer | leshe4ka46 <alex9102naid1@ya.ru> | 2025-12-25 21:28:30 +0300 |
| commit | 53f20d58628171934c097dff5602fe17765eae99 (patch) | |
| tree | 83f7344f76924ffd0aa81c2fdc4ee09fa3de9459 /R_LogR/main.r | |
| parent | 175ac10904d0f31c3ffeeeed507c8914f13d0b15 (diff) | |
Diffstat (limited to 'R_LogR/main.r')
| -rwxr-xr-x | R_LogR/main.r | 8 |
1 files changed, 6 insertions, 2 deletions
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 |