Lab 1: Assignment 3 init

lab1/assignment3.R

+data = read.csv("pima-indians-diabetes.csv", header = FALSE)
+
+# ----1.----
+
+plot(
+  main="Plasma Glucose Concentration vs Age",
+  data$V8,
+  data$V2,
+  xlab = "Age",
+  ylab = "Plasma Glucose Concentration",
+  col = ifelse(data$V9 == 1,
+  "red",
+  "blue")
+)
+legend("bottomright", legend = c("Diabetes", "No Diabetes"), 
+       fill = c("red", "blue"))
+
+# ----3.----
\ No newline at end of file