From eb22ab7b5b30f367b08f8be5d9eeaa8530141dff Mon Sep 17 00:00:00 2001
From: mehce338 <mehce338@student.liu.se>
Date: Wed, 11 Dec 2024 09:02:02 +0100
Subject: [PATCH] lab3 done

---
 lab3/assignment4.R | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/lab3/assignment4.R b/lab3/assignment4.R
index 6a5e365..13c4613 100644
--- a/lab3/assignment4.R
+++ b/lab3/assignment4.R
@@ -80,4 +80,25 @@ points(mydata1[,1],prediciton, col="red", cex = 1)
 
 # Part 4
 
+nn$weights
 
+
+# Part 5 
+
+
+
+Var2 <- runif(500, 0, 10)
+
+mydata2 <- data.frame(Sin2=sin(Var2), Var2)
+
+formula1 <- Sin2 ~ Var2
+
+nn2 <- neuralnet( formula1 , data = mydata2, hidden = c(10), startweights = winit)
+
+
+
+
+
+plot(mydata2, cex=2, main = "500 random points reverse", ylim = c(-2,10))
+points(mydata2, col = "blue", cex=1)
+points(mydata2[,1],predict(nn2,mydata2), col="red", cex = 1)
-- 
GitLab