Lab 3: Fixed error in assignment 4

lab3/assignment4.R

@@ -180,36 +180,36 @@ Var2 <- runif(500, 0, 10)
 
 mydata2 <- data.frame(Sin2 = sin(Var2), Var2)
 
-formula1 <- Sin2 ~ Var2
+formula2 <- Var2 ~ Sin2
 
 nn2 <- neuralnet(
-  formula1 ,
+  formula2 ,
   data = mydata2,
   hidden = c(10),
-  startweights = winit
+  startweights = winit,
+  threshold = 0.1
 )
 
 
 plot(
   mydata2,
-  cex = 2,
+  col = "blue",
+  cex = 1,
   main = "NN with logistic activation function",
   xlab = "sin(x)",
   ylab = "x",
-  ylim = c(-2, 10)
 )
-points(mydata2, col = "blue", cex = 1)
 points(mydata2[, 1],
        predict(nn2, mydata2),
        col = "red",
        cex = 1)
 grid()
 legend(
-  "topleft",
-  legend = c("Training data", "Test data", "Predicted test data"),
-  col = c("black", "blue", "red"),
+  "bottomleft",
+  legend = c("Training data", "Predicted training data"),
+  col = c("blue", "red"),
   pch = 1,
-  pt.cex = c(2, 1, 1),
+  pt.cex = c(1, 1),
   cex = 1
 )
 

lab3/lab-notes.md

@@ -34,7 +34,7 @@
   C = \frac{1}{2n\lambda}.
   $$
 
-  [p. 211]
+  [p. 209-211]
 
 - _In neural networks, what do we mean by mini-batch and epoch?_