preapring first submission

.gitignore

@@ -0,0 +1,4 @@
+.Rproj.user
+.Rhistory
+.RData
+.Ruserdata

Oblig1/Oblig1.Rproj

@@ -0,0 +1,13 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX

Oblig1/Sigmenn.R

@@ -0,0 +1,13 @@
+library(readxl)
+b1 <- read_excel("Book1.xlsx")
+
+list1 = c(b1$Entry)
+list2 = c(b1$Data)
+mean.default(list1)
+mean(list2)
+
+summary(b1)
+
+
+BookLaban <- read_excel("Laban_raw_XY.xlsx")
+View(BookLaban)