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