Lab 1: Missed save

lab1/assignment3.R

@@ -102,27 +102,3 @@ missclass_rate2 = missclass(data$V9, predict_reg2)
 
 print(summary(model2))
 print(missclass_rate2)
-
-
-boundary2 <- function(x1, theta, r) {
-  # Calculate the log-odds corresponding to the threshold r
-  logit_r <- log(r / (1 - r))
-  
-  # Basis function transformations
-  z1 <- x1 ^ 4
-  z2 <- x1 ^ 3 * x2
-  z3 <- x1 ^ 2 * x2 ^ 2
-  z4 <- x1 * x2 ^ 3
-  z5 <- x2 ^ 4
-  
-  
-  return()
-}
-
-
-glucose_boundary2 <- sapply(age_seq, boundary, theta = theta2, r = r)
-
-lines(age_seq,
-      glucose_boundary2,
-      col = "black",
-      lwd = 2)