submission is titled Exercise_9_answers.R

.gitignore

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

Biocomp_tutorial9.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

Exercise_9_answers.R

@@ -0,0 +1,41 @@
+###Script answer to question 1
+
+##replace wages.csv with wanted table
+#x will be number of lines that we want to head
+
+y<- read.table("wages.csv", sep = ",", header = TRUE,  stringsAsFactors = FALSE)
+z <-y[c(1:x),]
+z
+
+###Number 2 answers
+##Loading iris file
+#a)
+Irisdata<- read.csv("iris.csv", sep = ",", header = TRUE, stringsAsFactors = FALSE)
+numcol<-length(Irisdata[1,])
+b<-numcol - 1
+numrow<- length(Irisdata[,1])
+c<-numrow - 1
+Ismall<-Irisdata[c(c:numrow),c(b:numcol)]
+Ismall
+#b)
+Sotosa<-Irisdata[Irisdata$Species=="setosa",]
+nrow(Sotosa)
+versicolor<-Irisdata[Irisdata$Species=="versicolor",]
+nrow(versicolor)
+virginica<-Irisdata[Irisdata$Species=="virginica",]
+nrow(virginica)
+
+#c)
+
+Irisdata[Irisdata$Sepal.Width>3.5,]
+
+#d)
+
+write.csv(Sotosa, file = "setosa.csv")
+read.csv("setosa.csv",sep = ",", stringsAsFactors = FALSE)
+
+#e)
+
+min(virginica$Petal.Length)
+max(virginica$Petal.Length)
+mean(virginica$Petal.Length)

setosa.csv

@@ -0,0 +1,51 @@
+"","Sepal.Length","Sepal.Width","Petal.Length","Petal.Width","Species"
+"1",5.1,3.5,1.4,0.2,"setosa"
+"2",4.9,3,1.4,0.2,"setosa"
+"3",4.7,3.2,1.3,0.2,"setosa"
+"4",4.6,3.1,1.5,0.2,"setosa"
+"5",5,3.6,1.4,0.2,"setosa"
+"6",5.4,3.9,1.7,0.4,"setosa"
+"7",4.6,3.4,1.4,0.3,"setosa"
+"8",5,3.4,1.5,0.2,"setosa"
+"9",4.4,2.9,1.4,0.2,"setosa"
+"10",4.9,3.1,1.5,0.1,"setosa"
+"11",5.4,3.7,1.5,0.2,"setosa"
+"12",4.8,3.4,1.6,0.2,"setosa"
+"13",4.8,3,1.4,0.1,"setosa"
+"14",4.3,3,1.1,0.1,"setosa"
+"15",5.8,4,1.2,0.2,"setosa"
+"16",5.7,4.4,1.5,0.4,"setosa"
+"17",5.4,3.9,1.3,0.4,"setosa"
+"18",5.1,3.5,1.4,0.3,"setosa"
+"19",5.7,3.8,1.7,0.3,"setosa"
+"20",5.1,3.8,1.5,0.3,"setosa"
+"21",5.4,3.4,1.7,0.2,"setosa"
+"22",5.1,3.7,1.5,0.4,"setosa"
+"23",4.6,3.6,1,0.2,"setosa"
+"24",5.1,3.3,1.7,0.5,"setosa"
+"25",4.8,3.4,1.9,0.2,"setosa"
+"26",5,3,1.6,0.2,"setosa"
+"27",5,3.4,1.6,0.4,"setosa"
+"28",5.2,3.5,1.5,0.2,"setosa"
+"29",5.2,3.4,1.4,0.2,"setosa"
+"30",4.7,3.2,1.6,0.2,"setosa"
+"31",4.8,3.1,1.6,0.2,"setosa"
+"32",5.4,3.4,1.5,0.4,"setosa"
+"33",5.2,4.1,1.5,0.1,"setosa"
+"34",5.5,4.2,1.4,0.2,"setosa"
+"35",4.9,3.1,1.5,0.2,"setosa"
+"36",5,3.2,1.2,0.2,"setosa"
+"37",5.5,3.5,1.3,0.2,"setosa"
+"38",4.9,3.6,1.4,0.1,"setosa"
+"39",4.4,3,1.3,0.2,"setosa"
+"40",5.1,3.4,1.5,0.2,"setosa"
+"41",5,3.5,1.3,0.3,"setosa"
+"42",4.5,2.3,1.3,0.3,"setosa"
+"43",4.4,3.2,1.3,0.2,"setosa"
+"44",5,3.5,1.6,0.6,"setosa"
+"45",5.1,3.8,1.9,0.4,"setosa"
+"46",4.8,3,1.4,0.3,"setosa"
+"47",5.1,3.8,1.6,0.2,"setosa"
+"48",4.6,3.2,1.4,0.2,"setosa"
+"49",5.3,3.7,1.5,0.2,"setosa"
+"50",5,3.3,1.4,0.2,"setosa"