From 757c47a55fb3d3dc8a121035a302260c712feeb2 Mon Sep 17 00:00:00 2001 From: Roman Fresquez Date: Fri, 11 Nov 2022 12:35:57 -0500 Subject: [PATCH] FinalAnswersEx08 --- FinalExercise08.R | 39 ++++++++++++ setosa.csv | 151 ++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 190 insertions(+) create mode 100644 FinalExercise08.R create mode 100644 setosa.csv diff --git a/FinalExercise08.R b/FinalExercise08.R new file mode 100644 index 0000000..b383510 --- /dev/null +++ b/FinalExercise08.R @@ -0,0 +1,39 @@ +#Exercise 08 +#I cloned to a directory that was already called Exercise08 +setwd("/Users/romanfresquez/Exercise08/Exercise08") + + +#Part1 +iris<-read.csv("iris.csv") +topLines<-10 +top10<-iris[c(1:TopLines),] +top10 + +#Part2 +#check dimensions +dim(iris) +#print last 2 rows and columns +iris[c(149:150),c(4:5)] + +#return number of observations for each of the three species by counting rows +setosa<-nrow(iris[iris$Species=="setosa",]) +versicolor<-nrow(iris[iris$Species=="versicolor",]) +virginica<-nrow(iris[iris$Species=="virginica",]) + +#return rows with sepal width greater than 3.5 +sepal<-iris[iris$Sepal.Width>3.5,] + +#assign setosa data to a variable called setosa.data +setosa.data<-iris[iris$species=="setosa",] +#return the contents of setosa.data into a csv file called setosa.csv +write.csv(setosa.data,"setosa.csv",row.names=FALSE) + +# assign virginica data to variable called virginica.data +virginica.data<-iris[iris$Species=="virginica",] +#find mean for virginica petal lengths +mean(virginica.data$Petal.Length) +# find minimum for virginica petal lengths +min(virginica.data$Petal.Length) +# find max for virginica petal lengths +max(virginica.data$Petal.Length) + diff --git a/setosa.csv b/setosa.csv new file mode 100644 index 0000000..2320dd3 --- /dev/null +++ b/setosa.csv @@ -0,0 +1,151 @@ +"Sepal.Length","Sepal.Width","Petal.Length","Petal.Width","Species","species" +5.1,3.5,1.4,0.2,"setosa","setosa" +4.9,3,1.4,0.2,"setosa","setosa" +4.7,3.2,1.3,0.2,"setosa","setosa" +4.6,3.1,1.5,0.2,"setosa","setosa" +5,3.6,1.4,0.2,"setosa","setosa" +5.4,3.9,1.7,0.4,"setosa","setosa" +4.6,3.4,1.4,0.3,"setosa","setosa" +5,3.4,1.5,0.2,"setosa","setosa" +4.4,2.9,1.4,0.2,"setosa","setosa" +4.9,3.1,1.5,0.1,"setosa","setosa" +5.4,3.7,1.5,0.2,"setosa","setosa" +4.8,3.4,1.6,0.2,"setosa","setosa" +4.8,3,1.4,0.1,"setosa","setosa" +4.3,3,1.1,0.1,"setosa","setosa" +5.8,4,1.2,0.2,"setosa","setosa" +5.7,4.4,1.5,0.4,"setosa","setosa" +5.4,3.9,1.3,0.4,"setosa","setosa" +5.1,3.5,1.4,0.3,"setosa","setosa" +5.7,3.8,1.7,0.3,"setosa","setosa" +5.1,3.8,1.5,0.3,"setosa","setosa" +5.4,3.4,1.7,0.2,"setosa","setosa" +5.1,3.7,1.5,0.4,"setosa","setosa" +4.6,3.6,1,0.2,"setosa","setosa" +5.1,3.3,1.7,0.5,"setosa","setosa" +4.8,3.4,1.9,0.2,"setosa","setosa" +5,3,1.6,0.2,"setosa","setosa" +5,3.4,1.6,0.4,"setosa","setosa" +5.2,3.5,1.5,0.2,"setosa","setosa" +5.2,3.4,1.4,0.2,"setosa","setosa" +4.7,3.2,1.6,0.2,"setosa","setosa" +4.8,3.1,1.6,0.2,"setosa","setosa" +5.4,3.4,1.5,0.4,"setosa","setosa" +5.2,4.1,1.5,0.1,"setosa","setosa" +5.5,4.2,1.4,0.2,"setosa","setosa" +4.9,3.1,1.5,0.2,"setosa","setosa" +5,3.2,1.2,0.2,"setosa","setosa" +5.5,3.5,1.3,0.2,"setosa","setosa" +4.9,3.6,1.4,0.1,"setosa","setosa" +4.4,3,1.3,0.2,"setosa","setosa" +5.1,3.4,1.5,0.2,"setosa","setosa" +5,3.5,1.3,0.3,"setosa","setosa" +4.5,2.3,1.3,0.3,"setosa","setosa" +4.4,3.2,1.3,0.2,"setosa","setosa" +5,3.5,1.6,0.6,"setosa","setosa" +5.1,3.8,1.9,0.4,"setosa","setosa" +4.8,3,1.4,0.3,"setosa","setosa" +5.1,3.8,1.6,0.2,"setosa","setosa" +4.6,3.2,1.4,0.2,"setosa","setosa" +5.3,3.7,1.5,0.2,"setosa","setosa" +5,3.3,1.4,0.2,"setosa","setosa" +7,3.2,4.7,1.4,"versicolor","setosa" +6.4,3.2,4.5,1.5,"versicolor","setosa" +6.9,3.1,4.9,1.5,"versicolor","setosa" +5.5,2.3,4,1.3,"versicolor","setosa" +6.5,2.8,4.6,1.5,"versicolor","setosa" +5.7,2.8,4.5,1.3,"versicolor","setosa" +6.3,3.3,4.7,1.6,"versicolor","setosa" +4.9,2.4,3.3,1,"versicolor","setosa" +6.6,2.9,4.6,1.3,"versicolor","setosa" +5.2,2.7,3.9,1.4,"versicolor","setosa" +5,2,3.5,1,"versicolor","setosa" +5.9,3,4.2,1.5,"versicolor","setosa" +6,2.2,4,1,"versicolor","setosa" +6.1,2.9,4.7,1.4,"versicolor","setosa" +5.6,2.9,3.6,1.3,"versicolor","setosa" +6.7,3.1,4.4,1.4,"versicolor","setosa" +5.6,3,4.5,1.5,"versicolor","setosa" +5.8,2.7,4.1,1,"versicolor","setosa" +6.2,2.2,4.5,1.5,"versicolor","setosa" +5.6,2.5,3.9,1.1,"versicolor","setosa" +5.9,3.2,4.8,1.8,"versicolor","setosa" +6.1,2.8,4,1.3,"versicolor","setosa" +6.3,2.5,4.9,1.5,"versicolor","setosa" +6.1,2.8,4.7,1.2,"versicolor","setosa" +6.4,2.9,4.3,1.3,"versicolor","setosa" +6.6,3,4.4,1.4,"versicolor","setosa" +6.8,2.8,4.8,1.4,"versicolor","setosa" +6.7,3,5,1.7,"versicolor","setosa" +6,2.9,4.5,1.5,"versicolor","setosa" +5.7,2.6,3.5,1,"versicolor","setosa" +5.5,2.4,3.8,1.1,"versicolor","setosa" +5.5,2.4,3.7,1,"versicolor","setosa" +5.8,2.7,3.9,1.2,"versicolor","setosa" +6,2.7,5.1,1.6,"versicolor","setosa" +5.4,3,4.5,1.5,"versicolor","setosa" +6,3.4,4.5,1.6,"versicolor","setosa" +6.7,3.1,4.7,1.5,"versicolor","setosa" +6.3,2.3,4.4,1.3,"versicolor","setosa" +5.6,3,4.1,1.3,"versicolor","setosa" +5.5,2.5,4,1.3,"versicolor","setosa" +5.5,2.6,4.4,1.2,"versicolor","setosa" +6.1,3,4.6,1.4,"versicolor","setosa" +5.8,2.6,4,1.2,"versicolor","setosa" +5,2.3,3.3,1,"versicolor","setosa" +5.6,2.7,4.2,1.3,"versicolor","setosa" +5.7,3,4.2,1.2,"versicolor","setosa" +5.7,2.9,4.2,1.3,"versicolor","setosa" +6.2,2.9,4.3,1.3,"versicolor","setosa" +5.1,2.5,3,1.1,"versicolor","setosa" +5.7,2.8,4.1,1.3,"versicolor","setosa" +6.3,3.3,6,2.5,"virginica","setosa" +5.8,2.7,5.1,1.9,"virginica","setosa" +7.1,3,5.9,2.1,"virginica","setosa" +6.3,2.9,5.6,1.8,"virginica","setosa" +6.5,3,5.8,2.2,"virginica","setosa" +7.6,3,6.6,2.1,"virginica","setosa" +4.9,2.5,4.5,1.7,"virginica","setosa" +7.3,2.9,6.3,1.8,"virginica","setosa" +6.7,2.5,5.8,1.8,"virginica","setosa" +7.2,3.6,6.1,2.5,"virginica","setosa" +6.5,3.2,5.1,2,"virginica","setosa" +6.4,2.7,5.3,1.9,"virginica","setosa" +6.8,3,5.5,2.1,"virginica","setosa" +5.7,2.5,5,2,"virginica","setosa" +5.8,2.8,5.1,2.4,"virginica","setosa" +6.4,3.2,5.3,2.3,"virginica","setosa" +6.5,3,5.5,1.8,"virginica","setosa" +7.7,3.8,6.7,2.2,"virginica","setosa" +7.7,2.6,6.9,2.3,"virginica","setosa" +6,2.2,5,1.5,"virginica","setosa" +6.9,3.2,5.7,2.3,"virginica","setosa" +5.6,2.8,4.9,2,"virginica","setosa" +7.7,2.8,6.7,2,"virginica","setosa" +6.3,2.7,4.9,1.8,"virginica","setosa" +6.7,3.3,5.7,2.1,"virginica","setosa" +7.2,3.2,6,1.8,"virginica","setosa" +6.2,2.8,4.8,1.8,"virginica","setosa" +6.1,3,4.9,1.8,"virginica","setosa" +6.4,2.8,5.6,2.1,"virginica","setosa" +7.2,3,5.8,1.6,"virginica","setosa" +7.4,2.8,6.1,1.9,"virginica","setosa" +7.9,3.8,6.4,2,"virginica","setosa" +6.4,2.8,5.6,2.2,"virginica","setosa" +6.3,2.8,5.1,1.5,"virginica","setosa" +6.1,2.6,5.6,1.4,"virginica","setosa" +7.7,3,6.1,2.3,"virginica","setosa" +6.3,3.4,5.6,2.4,"virginica","setosa" +6.4,3.1,5.5,1.8,"virginica","setosa" +6,3,4.8,1.8,"virginica","setosa" +6.9,3.1,5.4,2.1,"virginica","setosa" +6.7,3.1,5.6,2.4,"virginica","setosa" +6.9,3.1,5.1,2.3,"virginica","setosa" +5.8,2.7,5.1,1.9,"virginica","setosa" +6.8,3.2,5.9,2.3,"virginica","setosa" +6.7,3.3,5.7,2.5,"virginica","setosa" +6.7,3,5.2,2.3,"virginica","setosa" +6.3,2.5,5,1.9,"virginica","setosa" +6.5,3,5.2,2,"virginica","setosa" +6.2,3.4,5.4,2.3,"virginica","setosa" +5.9,3,5.1,1.8,"virginica","setosa"