From 496206edb0abd245aa9ded789d54126fbcde551d Mon Sep 17 00:00:00 2001
From: Camden Arnold <carnold3@nd.edu>
Date: Sun, 30 Oct 2022 17:18:03 -0400
Subject: [PATCH 1/2] exercise 7

---
 .RData              | Bin 0 -> 4200 bytes
 .Rhistory           | 220 ++++++++++++++++++++++++++++++++++++++++++++
 Exercise07_script.R |  27 ++++++
 iris.txt            | 151 ++++++++++++++++++++++++++++++
 4 files changed, 398 insertions(+)
 create mode 100644 .RData
 create mode 100644 .Rhistory
 create mode 100644 Exercise07_script.R
 create mode 100644 iris.txt

diff --git a/.RData b/.RData
new file mode 100644
index 0000000000000000000000000000000000000000..7edadab8b5ec4bb23a4a9fcda8e25e6659d72996
GIT binary patch
literal 4200
zcmV-u5SQ;CiwFP!000001MOM~IF;+S-`Fzk%w$TYq(p{v6xAjgB^jbghP_D{H)%jg
zDU~AO2+4E|MU#wem7ypymFA>K5=C)ji2o<=+V}Q$+|GUe_dfUe|8M(wmbKULuJv2%
z{oe0e`|+6@*=Y0H@RCR*4icH2jl{u8d?j&OSuR!6B@r4zU?Y)9JOt;ayVBk0?mk+C
zuLvQJ*#y7waXY)I5&A~9GBsI8aQ-nZbt&oFhpIzDpYNh_y4$<ay|GZ7K6HCGZzN3e
zcJyG3xqQFQ(be7?)`60jX76LK?!+KMV(vT)kDcm}YVugBK;qBn=;#Q+Mkc6K8`Z!@
z4b%NA?BF+-2sai}>zi%7GaO^iV>rhuAc$+se+<YNOoI3bq980|IRsECLIepDG}d8J
zg2V_CCuj;m5(G&SBt?)kK{5nQB}kT_X#~j;Bu|h6L5c(^5j343WrAi9q(ab4f@Tq<
zO3-YA)Cf{1XbwRd1Zj@f@m-x9G#58$8-maIU$jjJmBNAaZ1(WQ0lqk5OS#;4xH-@n
zusQ#(jpTH7@%GU~pg0j=Ug~<%w-40?amLMYz8lH=sN*~c>4Tfc`4MCfl^f?_<9`1W
z=aYSu^mmUW2e?jn3dy6SzdUsK;re$xL|m-eN#C8E|LzH4wft}0RVnJ`_U<$fH+641
zoi+}Dok3tv83U217WARgyy<k*+bycm+_6#%1uCC^dP9DBhRmM3O(xRhx7haN#T(PV
z?tl8AKT)q#_O!nLW9>ew9_`hgC)Q^!Zk->c5M4PfODN~S*Rq!aB@L^}LTIMCGt%iX
zDqoFwhI=QKZG5_t;W2&QXx`#Dp5og>r=OZ_&wc3aDY)U}T4jZsZiD3s_vJENwjDee
zcQ|C>x$A>n)xSLs3==XY-C{1k<e%Xi+Q9xkb+!L(9j@rTHXpKV2P$*o5~|t)1!ksn
zPuaCvWp-M`jYTDvkNPeA(|Xy{ve(Wnw=c>cd7qYjwr@uHY%_t5*H`MSp2VtsoK~sx
zXXy$Hxw}Q7EiIo{?3Ybm+|5r*I3W=8Y9J{4{jo<W=|yCxG-iJN!cjgRJ*#_Pvs^p$
zmY0sCJe#U?wf^^`Ng*SC8Bzt+MYOn^LJ9*p5wzte%qo0WO9oy3aJQjl(=4GY3-2kA
z{l2VUW|Yu6b>5z*kvz5y3(}>Z2UjJQY+2>LwynRB>S-9i<dm-wS(C)h+ni;=x7R$N
zl*e$_QN54Dmb{}Cs+}+H-}DIDwdIdOu^F3IZ9cC>xgMc*j~Vzj-T4ZC(52dTheJK@
zl}gx;Fm@D4@Gv!(YFdvbt!VtDEj&*k`EcdRNGn;kDN|@$CTB-JREm!s;dP~P?Kog0
zT-#aj=3&vfcYz^g_GOvR^X-Ey?$x!tEmn6r7W%}maOwNQl`R|ikM+sudmNnh!L@S7
zl^iR|S(9C_MTWhK4cvTxGdG&uR25Mmp%$C&*P8xTQeMa}<5idHI!1<ey+O3~fmLNe
z!V&UTseak@&TH@OEw1&tJ-0WhICj`?#TzT>zI_Lh115E}IEB0J{-{0q!R-3w9eII`
zLN9IEw=pxX3C`J=TV%W~&!3y3@X>CKMAH+_wCzI7<wkQOqTYENpPRL_f+0e=FuG_n
zw~4DBUx-W8JKBB2f?FA!P6Ov;+45$!pSqKgWB9eWx;KvcxZhIStc$}><Y2(Xd*_<6
zwZ%+cuf4dARG(KTncmDR@2uEZBw^rCouiSMu-o+LlBz=MnVYNbAF0`M%3aZawaWGz
zw@o9X?q(EaMab_8ip#gzy#9Etb;LIFMO=Fy?h>K)ZG3jvr|?YP8E&;@Tk@2@81)?3
zxkT~$<tRqtoQvgh=bjyIv3|GtkD3b0(fEaXGUVHD9eK28TA@vL+UeFC8bgUY?&sZ6
z><K1|$r;m@TyHwP>Q3KYRllw&Je1W3MVQ5|##-)mY&YH7Kh1S{y{z);`_`h^>L=me
zoJpO171u4_RCGot$LY!Ct+%f}?N{7v9CM-cq;$6mf1_=dpq?kQi`@80)9Z!Cx(agY
z{i4?e#vFwk?j)@Z=gbT9Ka}qxx|Q#u;Yx#A((@H9%;(B_W;Fd;g*)o><^I;UDf7kc
zHW{5PXqfrLmy~d2zGW@_R=Zqw%Amlh&bs?s=Fh%pkk{)wqmS5TIlE@RK8oQX_U0Rx
z-#AFs-_0=Yx?(~<mhG>&Uta5+<8#kP%rYaHn1RQAdis0Z4fkr$n;n?8;m0h?vjYuZ
zJy@UEr@NH7t%tMjg+aDMyUUh#lT~Y~-!Y4ZL+s9cV!t37Xuqeqmm}37WW^t43%vG(
znZ?kwTvzw)ic}Q2Y;G>Qw3+WnO*Q-5y2N0W8A0AXzU_laO`YxU?DRi|n=+1Q%6N*d
zGFM7F5~!<|`B<t|e^Q<Ql~8?cQg7t5*D*mK-__piuRo$6UNaKT_O4Q)Gx{-i*TUh@
zD#274@nwb)D<u;H-|(i2GIUR>baWRjP#>h#$!qGnmRxPRntD4%*gxE(xu*YGb$xAA
zvvXXLLPmA43bo+{rFTi5zJ686r?`!2-EmwVMwgB{*{s<&Yk|zQn(nY#8|I0NyrM^F
zlv4MhPP<1hiv6bwa@V!#3@a=sewcB-rz-TkGAC2kz(;HQhmTbMB}P}<$)n4!r6w0S
zuzwV6)AZ?VogZ&$#C=vc<(WWYwTMOaXX9gbIpwXT#ik=FA(IwneZC#1Z&oma5ifpL
z<Cbrm(qO<QT?$$Eseo-)cz@yGumm|Ja%Y8rA(u%Wsmi)Z|6y*anfDvh<V2bC%P*Hj
zP&#i(JdcftHD|Mq2~6fpvAmTK(7wmTc2Kg|&uqz;&e`iF-ubXUO^b*pnc9^ca0(6d
zePq|-!+0I$XqVAg7+>wL#x~rk|N9l|`MbN@G#ks8ef(_Wbz^i7bN!o3Y_-Rkezl#J
zbDeIK-uOI4uJy77^X>c-W=Gq3UUwX%Z+%|JX(H$<Gd$l=_!BKll~ki(>$89VChn@v
z%p%{Y?R7oA!JVW4k4UnPY{SZx+w7La<(iD7t(9x66A$7I3vPG1quN>X$4dRvVr`5$
zlQ(*n^baUKP>R)UX<Hw=``(MX&$qIfUOlOiZM}g(?!LJ<yHfM@14Jsr1DpI5jQJSc
zCKd*incjEe!>F@_7cZ>6?KV?~tgD@sYe_zKHh5Rd7q6Iw59JS$9ls1|OuuKjtn`um
z^GkCxW1g5%O;<UuNo79smFh@p-8d~LSR`}ccdJFqPsz-tjBE(7?u)F5-s*Mf*3oA*
zS-spt1I}wUCl$>;n%oeZ(O;G(Bv0w*u<AA^2MRsa>PqK5d^zJneb9}9bwWawb1P1$
z8c$s!876Nl#2u}3O!;KNf%}V2_34;TeGu`bE7Wek^~^i+iliZ~%<I)|#o8MjWyRN6
z9QrIdaz;(vprv2Gw^KAbK|9^r&%GmYO-R{Dfa<3z4jrX?A1j;(<)ig=Hx#(N>fHY4
zDT8#;tD2OlrPHpfJ-S=)Nxr!vsqL9hL96lHO0k(Izbwu@JmvAsB*{Muk1pUaaqcn}
z8j^GndlXSOLY_RZsB5}vmf_NPWu@}Fo=4Sg*tFI2?CrTCoA0)-npVE>Osa*=jL5Rv
zW>>R>Kjhz(jvL*V`L%vDt792|ddObodd;u*y;1^7j8hwjZOjK%q|+bh@9W``**>p$
z<?jzl-n-HFaVL4$r(VktA2~V6d#R_kkbPQIa%;k;nxKo+^)aEDHeqX}t*Vtf;}V_@
z9?wjfQ<`{wKC>a)^nwy!d{B7F<V0JJof>}mfg$44o0=T<oSzlin7vGSrBr%F_2aea
zng#)0M?TAJyeYafGB|nrkYT>Doa_EA!kZ5DQFP0XD@OIv^Ql{2o?TE-U#J)@lcSkp
z72HVI2qOm-zF*y)D=mFGT(<Za?ToJfhX>ovnZGo88F4|&WmC4<-i*Qw*VLVtio3(v
z4pX~yJcnKg^0x=9)?35Dm};z^c2{xI<@Ug*Y4u|Bgv)mG6qdhM<!3}0)h<h!wMJ;G
znql-?d#+xiocdr1E!Wy5>vAhQ4!b&Kx1KxYx$bgbn8r}U3Vsz1Y}O;YFkHOR%n!dQ
zqN$=z-#%24(_^1ls&Mt#=N?rU=|$1}C<b;+FNE~49{fbKzkOI-2=OV1i=#Z?4>&*%
zGHz$(2izzg;9+ry1N9&d{;ar2FOJqh9S{fC3t@P`PZ;Y53kQx9t3wRKFN3%wiX)9U
z;E)1b2)88k8Tm;8E~p>*PeFDGBuhZQ5to8KAQ|>a0@p(vBtw3djNy<*c8D*5;fK0_
zv+`os9mrBx-GB>^BZ1Yy+E45{0}gfK*CFJAI5Jq>uphG6Ihu;qErU4tv-TG|50Hn|
zM~IK?z@Z<k>jUMN#c<>Kp-z0iz&;hp(+~$czR!3bNo=107vu*S>cg)Kd|#n%z>BUs
z)_seD?A(a+p!nR#pMtmmipPg>F2uoqGFlIIZY;hacD^Al;NVAn0S<8>F5uzC>=2(1
ziw81Z7w83196_W9JNQE!$U9LUb`%F+2X$~`GWbDVyqF%x3-Kpm9M*AQ`@xCUld%4?
zAw3u7&yCdw>%pIlT_2Di^dPh1VS13kPDc3vHwT6rINoo(A7BR@WULM{=8wn4`+(QO
z`;&F}^-ad?AXBjG3Xg~9<-zQ5-9SCCFZg~;!tmnP6}}%6$^2M6)_zZL4)E)TC1acu
z!_AB3hd%rep9G(8_pQZ$j;~|!-tqX0zl=Mv^h4w8Su$=18Ti0BE|$Fq$)8ai@PmAK
z9<bwbH>Mv!>mVO+9N$FtiRu8HI6k~TAmbeJ06rYY1bzIEc^B;)Jii5z409UT!5{V?
z?D+El?#qJMIyg`89D%rkSRRNc0{43iAH;*Xnl*<b8J|n>`#RjeA&)3tCx#p1vz|N1
z&Z+~`Lw{I(z&PM$JztSO%nyJE=1p;s(K;y%FFvQioWlAYf%GsR;`2Ff$LAK-{D}0d
zc^i{i^CavS?BfJ=;B%Nbh8tvjUKhvWi%qcphdv^F`0oRdvEN%HxNqG-=jdnr3F7zB
zdB*L96Razo!2Sf|5EtjTKgiAKyibJl@76OB?!Q~#M0i_}{IkB{9KWC8_eWeFK<m0O
zJ;dq8;(!cx+#mM?8J;`C*!}ru_j%wGJ%4&I{16A~!k>dbdtShL$O|&w9~>`mz=LFX
z{=@T!N<x0953IQd^ibz8<_B{G>96B~o;7!(`S6E4?BDMbYmOvg@nIc?_Xk{HhyIRW
z@z}7wqrS58a!gP!)P>hGf~_ZiU&jymu|AN-|8W}4`mZS6$HUwHm-I{emy>vX=?rfd
zM-NvI#xKn;%`eUWfriJ|h2iYt?&4_wOYuwbOYzSrzJG6!6FE>U=$`hj>Lzq|XP>P|
z$2YFCcA>FU6f?Td4{qbS|Ln$P;YoLN`6u2y+(!EGy;V+cx-Z?G1g|5a|J31csJhwv
yFkE(N{{MPQ5qk~TN%LRk-O}%Ocs#*RF#qMt%$lVCwYPLhBmV&KJtd8PF8}}uQIv-O

literal 0
HcmV?d00001

diff --git a/.Rhistory b/.Rhistory
new file mode 100644
index 0000000..7d8656f
--- /dev/null
+++ b/.Rhistory
@@ -0,0 +1,220 @@
+sample(1:145, 25, replace=FALSE)
+sample(1:40, 5, replace=FALSE)
+sample(41:56, 5, replace=FALSE)
+sample(57:90, 5, replace=FALSE)
+sample(91:145, 5, replace=FALSE)
+> install.packages("swirl")
+install.packages("swirl")
+library("swirl")
+swirl()
+swirl::install_course("R Programming")
+library("swirl")
+swirl()
+5+7
+x <- 5 + 7
+x
+y <- x-3
+y
+z <- c(1.1, 9, 3.14)
+?c
+z
+c(z, 555, z)
+z * 2 + 100
+my_sqrt <- sqrt(z - 1)
+my_sqrt
+my_div <- z / my_sqrt
+my_div
+c(1, 2, 3, 4) + c(0. 10)
+c(1, 2, 3, 4) + c(0, 10)
+c(1, 2, 3, 4) + c(0, 10, 100)
+z * 2 + 1000
+my_div
+1:20
+pi:10
+15:1
+?`:`
+seq(1, 20)
+seq(0, 10, by=0.5)
+seq(5,10, length=30)
+seq(5, 10, length=30)
+my_seq <- seq(5, 10, length=30)
+length(my_seq)
+1:length(my_seq)
+seq(along.with = my_seq)
+seq_along(my_seq)
+rep(0, times = 40)
+rep(c(0, 1, 2), times = 10)
+rep(c(0, 1, 2), each = 10)
+num_vect <- c(0.5, 55, -10, 6)
+tf <- num_vect < 1
+tf
+num_vect >= 6
+my_char <- "My", "name", "is"
+my_char <- "My" "name" "is"
+my_char <- "My", "name", "is".
+my_char <- "My" , "name" , "is".
+my_char <- "My","name","is"
+my_char <- c("My", "name", "is")
+my_char
+paste(my_char, collapse = " ")
+c(my_char, "Camden").
+c(my_char, "Camden")
+my_name <- c(my_char, "Camden")
+my_name
+paste(my_name, collapse = " ")
+paste("Hello", "world!", sep = " ")
+paste(c("X", "Y", "Z"), sep = " ")
+paste(1:3, c("X", "Y", "Z"), sep = "")
+paste(LETTERS, 1:4, sep = "-")
+swirl()
+library("swirl")
+swirl()
+num_vect <- c(0.5, 55, -10, 6)
+num_vect < 1
+tf <- num_vect <1
+tf
+num_vect >= 6
+my_char <- c("My", "name", "is")
+my_char
+paste(my_char, collapse = " ")
+my_name <- c(my_char, "Camden")
+my_name
+paste (my_name, collapse = " ")
+paste("Hello", "world!", sep = " ")
+paste(1:3, c("X", "Y", "Z") sep = "")
+paste(1:3 c("X", "Y", "Z") sep = "")
+paste(c("X", "Y", "Z") sep = "")
+paste (1:3, c("X", "Y", "Z") sep = "")
+paste (c("X", "Y", "Z"), sep = "")
+paste(1:3, c("X", "Y", "Z"), sep = "")
+paste(LETTERS, 1:4, sep = "-")
+library("swirl")
+swirl()
+my_vector <- 1:20
+my_vector
+dim(my_vector)
+length(my_vector)
+dim(my_vector) <- c(4.5)
+dim(my_vector) <- c(4, 5)
+dim(my_vector)
+attributes(my_vector)
+my_vector
+class(my_vector)
+my_matrix <- my_vector
+? matrix()
+info()
+?matrix
+my_matrix2 <- matrix(1:20,4,5)
+identical(my_matrix, my_matrix2)
+patients <- vector("Bill", "Gina", "Kelly", "Sean")
+help()
+help(vector)
+patients <- c("Bill", "Gina", "Kelly", "Sean")
+cbind(patients, my_matrix)
+my_data <- data.frame(patients, my_matrix)
+my_data
+class(my_data)
+c("patient", "age", "weight", "bp", "rating", "test")
+cnames <- c("patient", "age", "weight", "bp", "rating", "test")
+colnames(cnames)
+colnames(my_data) <- cnames
+my_data
+ls()
+class(plants)
+dim(plants)
+nrow(plants)
+ncol(plants)
+object.size(plants)
+names(plants)
+head(plants)
+head(plants)
+head(plants, 10)
+tail(plants, 15)
+summary(plants)
+table(plants$Active_Growth_Period)
+str(plants)
+data(cars)
+help(cars)
+head(cars)
+plot(cars)
+help(plot)
+plot(x = cars$speed, y = cars$dist)
+plot(x = cars$dist, y = cars$speed)
+plot(x = cars$speed, y = cars$dist)
+plot(x = cars$speed, y = cars$dist, xlab = "Speed")
+plot(x = cars$speed, y = cars$dist, xlab = "Speed", ylab = "Stopping Distance")
+plot(x = cars$speed, y = cars$dist, ylab = "Stopping Distance")
+plot(x = cars$speed, y = cars$dist, xlab = "Speed", ylab = "Stopping Distance")
+plot(x = cars$speed, y = cars$dist, main = "My Plot")
+plot(cars, main = "My Plot")
+plot(cars, sub = "My Plot Subtitle")
+plot(cars, col = 2)
+plot(cars, xlim = c(10,15))
+plot(cars, pch = 2)
+load(mtcars)
+mtcars
+data(mtcars)
+help(boxplot)
+boxplot(formula = pmg ~ cyl, data = mtcars)
+boxplot(formula = mpg ~ cyl, data = mtcars)
+hist(c(mtcars$mpg))
+hist(mtcars$mpg)
+setwd("~/Desktop/classes_fa22/biocomputing/homeworks/Exercise07")
+read.csv iris.csv
+read.csv(iris.csv)
+cat(iris.csv)
+iris_tab <- iris.csv
+iris.csv
+seven <- 7
+read.csv(iris.csv, header = TRUE, sep = ",")
+getwd()
+file.exists("iris.csv")
+read.csv("iris.csv")
+iris <- read.csv("iris.csv")
+read.csv("irish.csv")
+read.csv("iris.csv")
+read.csv("iris.csv", header=TRUE, sep = " ")
+read.csv("iris.csv", header=TRUE, sep = ",")
+write.table(iris.txt,file="iris",sep=" ")
+?write.table
+write.table(iris, file="iris.txt", sep = " ", col.names=TRUE)
+write.table(iris, file="iris.txt", sep = "\t", col.names=TRUE)
+write.table("iris.csv", file="iris.txt", sep = "\t", col.names=TRUE)
+write.table(iris, file="iris.txt", sep = "\t", col.names=TRUE, row.names=TRUE)
+iris
+?read.csv
+?write.table
+write.table(read.csv("iris.csv"), file="iris.txt", sep="\t")
+element1 = seq(from=100,to=1000,by=100)
+df1 = data.frame(("ND","UNLV"),(44,21),stringsAsFactors=FALSE)
+teams=c("ND","UNLV")
+scores=c(44,21)
+df1=data.frame(teams,scores,stringsAsFactors=FALSE)
+df1
+numbers=c(1:50)
+matrix1=matrix(numbers,nrow=10,ncol=5)
+matrix1
+#Creates a 10-row, 5-column matrix with integer from 1-50
+numbers=c(1:50)
+#Q1
+#Converts iris.csv into tab deliminated .txt file
+write.table(read.csv("iris.csv"), file="iris.txt", sep="\t")
+#Q2
+#Creates vector with length 10 containing 100, 200, ... 1000
+element1=seq(from=100,to=1000,by=100)
+#Creates two-row, two-column df with team names and score of Notre Dame football game
+teams=c("ND","UNLV")
+scores=c(44,21)
+element2=data.frame(teams,scores,stringsAsFactors=FALSE)
+#Assigns variable to number 999
+element3 <- 999
+#Creates a 10-row, 5-column matrix with integer from 1-50
+numbers=c(1:50)
+element4=matrix(numbers,nrow=10,ncol=5)
+#Creates a vector containing three letters
+#Creates a vector containing three letters
+element5=c("a","b","c")
+?list
+?list()
+list1=list(element1,element2,element3,element4,element5)
+list1
diff --git a/Exercise07_script.R b/Exercise07_script.R
new file mode 100644
index 0000000..48c4b8c
--- /dev/null
+++ b/Exercise07_script.R
@@ -0,0 +1,27 @@
+#Q1 
+
+#Converts iris.csv into tab deliminated .txt file
+write.table(read.csv("iris.csv"), file="iris.txt", sep="\t")
+
+#Q2 
+
+#Creates a list to add elements to
+finalList=list()
+
+#Adds a vector with length 10 containing 100, 200, ... 1000 to list
+finalList$element1=seq(from=100,to=1000,by=100)
+
+#Adds a two-row, two-column df with team names and score of Notre Dame football game to list
+team=c("ND","UNLV")
+score=c(44,21)
+finalList$element2=data.frame(team,score,stringsAsFactors=FALSE)
+
+#Adds the number 999 to list
+finalList$element3=999
+
+#Adds a 10-row, 5-column matrix with integer from 1-50 to list
+numbers=c(1:50)
+finalList$element4=matrix(numbers,nrow=10,ncol=5)
+
+#Adds a vector containing three letters to list
+finalList$element5=c("a","b","c")
diff --git a/iris.txt b/iris.txt
new file mode 100644
index 0000000..b025810
--- /dev/null
+++ b/iris.txt
@@ -0,0 +1,151 @@
+"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"
+"51"	7	3.2	4.7	1.4	"versicolor"
+"52"	6.4	3.2	4.5	1.5	"versicolor"
+"53"	6.9	3.1	4.9	1.5	"versicolor"
+"54"	5.5	2.3	4	1.3	"versicolor"
+"55"	6.5	2.8	4.6	1.5	"versicolor"
+"56"	5.7	2.8	4.5	1.3	"versicolor"
+"57"	6.3	3.3	4.7	1.6	"versicolor"
+"58"	4.9	2.4	3.3	1	"versicolor"
+"59"	6.6	2.9	4.6	1.3	"versicolor"
+"60"	5.2	2.7	3.9	1.4	"versicolor"
+"61"	5	2	3.5	1	"versicolor"
+"62"	5.9	3	4.2	1.5	"versicolor"
+"63"	6	2.2	4	1	"versicolor"
+"64"	6.1	2.9	4.7	1.4	"versicolor"
+"65"	5.6	2.9	3.6	1.3	"versicolor"
+"66"	6.7	3.1	4.4	1.4	"versicolor"
+"67"	5.6	3	4.5	1.5	"versicolor"
+"68"	5.8	2.7	4.1	1	"versicolor"
+"69"	6.2	2.2	4.5	1.5	"versicolor"
+"70"	5.6	2.5	3.9	1.1	"versicolor"
+"71"	5.9	3.2	4.8	1.8	"versicolor"
+"72"	6.1	2.8	4	1.3	"versicolor"
+"73"	6.3	2.5	4.9	1.5	"versicolor"
+"74"	6.1	2.8	4.7	1.2	"versicolor"
+"75"	6.4	2.9	4.3	1.3	"versicolor"
+"76"	6.6	3	4.4	1.4	"versicolor"
+"77"	6.8	2.8	4.8	1.4	"versicolor"
+"78"	6.7	3	5	1.7	"versicolor"
+"79"	6	2.9	4.5	1.5	"versicolor"
+"80"	5.7	2.6	3.5	1	"versicolor"
+"81"	5.5	2.4	3.8	1.1	"versicolor"
+"82"	5.5	2.4	3.7	1	"versicolor"
+"83"	5.8	2.7	3.9	1.2	"versicolor"
+"84"	6	2.7	5.1	1.6	"versicolor"
+"85"	5.4	3	4.5	1.5	"versicolor"
+"86"	6	3.4	4.5	1.6	"versicolor"
+"87"	6.7	3.1	4.7	1.5	"versicolor"
+"88"	6.3	2.3	4.4	1.3	"versicolor"
+"89"	5.6	3	4.1	1.3	"versicolor"
+"90"	5.5	2.5	4	1.3	"versicolor"
+"91"	5.5	2.6	4.4	1.2	"versicolor"
+"92"	6.1	3	4.6	1.4	"versicolor"
+"93"	5.8	2.6	4	1.2	"versicolor"
+"94"	5	2.3	3.3	1	"versicolor"
+"95"	5.6	2.7	4.2	1.3	"versicolor"
+"96"	5.7	3	4.2	1.2	"versicolor"
+"97"	5.7	2.9	4.2	1.3	"versicolor"
+"98"	6.2	2.9	4.3	1.3	"versicolor"
+"99"	5.1	2.5	3	1.1	"versicolor"
+"100"	5.7	2.8	4.1	1.3	"versicolor"
+"101"	6.3	3.3	6	2.5	"virginica"
+"102"	5.8	2.7	5.1	1.9	"virginica"
+"103"	7.1	3	5.9	2.1	"virginica"
+"104"	6.3	2.9	5.6	1.8	"virginica"
+"105"	6.5	3	5.8	2.2	"virginica"
+"106"	7.6	3	6.6	2.1	"virginica"
+"107"	4.9	2.5	4.5	1.7	"virginica"
+"108"	7.3	2.9	6.3	1.8	"virginica"
+"109"	6.7	2.5	5.8	1.8	"virginica"
+"110"	7.2	3.6	6.1	2.5	"virginica"
+"111"	6.5	3.2	5.1	2	"virginica"
+"112"	6.4	2.7	5.3	1.9	"virginica"
+"113"	6.8	3	5.5	2.1	"virginica"
+"114"	5.7	2.5	5	2	"virginica"
+"115"	5.8	2.8	5.1	2.4	"virginica"
+"116"	6.4	3.2	5.3	2.3	"virginica"
+"117"	6.5	3	5.5	1.8	"virginica"
+"118"	7.7	3.8	6.7	2.2	"virginica"
+"119"	7.7	2.6	6.9	2.3	"virginica"
+"120"	6	2.2	5	1.5	"virginica"
+"121"	6.9	3.2	5.7	2.3	"virginica"
+"122"	5.6	2.8	4.9	2	"virginica"
+"123"	7.7	2.8	6.7	2	"virginica"
+"124"	6.3	2.7	4.9	1.8	"virginica"
+"125"	6.7	3.3	5.7	2.1	"virginica"
+"126"	7.2	3.2	6	1.8	"virginica"
+"127"	6.2	2.8	4.8	1.8	"virginica"
+"128"	6.1	3	4.9	1.8	"virginica"
+"129"	6.4	2.8	5.6	2.1	"virginica"
+"130"	7.2	3	5.8	1.6	"virginica"
+"131"	7.4	2.8	6.1	1.9	"virginica"
+"132"	7.9	3.8	6.4	2	"virginica"
+"133"	6.4	2.8	5.6	2.2	"virginica"
+"134"	6.3	2.8	5.1	1.5	"virginica"
+"135"	6.1	2.6	5.6	1.4	"virginica"
+"136"	7.7	3	6.1	2.3	"virginica"
+"137"	6.3	3.4	5.6	2.4	"virginica"
+"138"	6.4	3.1	5.5	1.8	"virginica"
+"139"	6	3	4.8	1.8	"virginica"
+"140"	6.9	3.1	5.4	2.1	"virginica"
+"141"	6.7	3.1	5.6	2.4	"virginica"
+"142"	6.9	3.1	5.1	2.3	"virginica"
+"143"	5.8	2.7	5.1	1.9	"virginica"
+"144"	6.8	3.2	5.9	2.3	"virginica"
+"145"	6.7	3.3	5.7	2.5	"virginica"
+"146"	6.7	3	5.2	2.3	"virginica"
+"147"	6.3	2.5	5	1.9	"virginica"
+"148"	6.5	3	5.2	2	"virginica"
+"149"	6.2	3.4	5.4	2.3	"virginica"
+"150"	5.9	3	5.1	1.8	"virginica"

From 7c395f856fb14a4987799ed3d7d2a5aaf99c8577 Mon Sep 17 00:00:00 2001
From: Camden Arnold <carnold3@nd.edu>
Date: Tue, 1 Nov 2022 23:00:17 -0400
Subject: [PATCH 2/2] Exercise 7 Submission

---
 .RData              | Bin 4200 -> 3006 bytes
 .Rhistory           |  77 +++---------
 Exercise07_script.R |  21 ++--
 iris.txt            | 300 ++++++++++++++++++++++----------------------
 4 files changed, 180 insertions(+), 218 deletions(-)

diff --git a/.RData b/.RData
index 7edadab8b5ec4bb23a4a9fcda8e25e6659d72996..807a771a2c4489a565825c9523b8c8efe384a130 100644
GIT binary patch
literal 3006
zcmV;v3qkZBiwFP!000001C5q>IFxM{z{ft8XzVdH8icYAdIu9jlwvel3M~v~M7DS6
zqcNdDgz(yvsfb8aM7CjMjV7Ull7^6F%DyDa_sI0e>!0tN>-x<(=YGz8&biNXKi74v
zP3^S>>;*s|5EqD>lLN%X1E?S#JKJMwND#0B7#tvO5I-P=)U9zoZob~?{&>6_VDAEf
zIEf&T@&iB@uyJ?%VMcs-TSC0`kSUZR!yf_~7)H~+Bt3{JM?|44Hy_L8a3yZ8gSE)Z
zN`3A7HX=;>TFy!vh-kg+zh>2Y$zt$h+F`{Jh+2YOqwbxb-6=tSZa?!i@?~?K*JEKR
z3uJ`<$NMr$iWNydMw`f<7C4fKwfh+Fe^SrnpFDVVeP$i>E)Nsy5mXj;2MsnWG~YAI
z;K_KE5NQ(KT%QXjht!yMhplB{@-P^_#%#YI883%knRXIhmsu{W&<*H8no=VV#fk_o
ziwB)-E>;e3lFxYP)Lj{_sD80g94PMF^Z?U4DLorxmn@H;9%#laJwnvT2~@rRDqny4
zdiiAjOp$m?JpX{o&m2MdSev%#>Z_rKH2uP!O`eKmJ0-H47hXE7q2-0^UQyQ7^n+tz
z8&*hS<*T5gJH|4rKa(t2=HZSa|B+@omOL9GeT}2(m8P$FavuukIG)5`v{xJpPZ3cT
z(05agh}0F)b27M8HRf<G+HZp)oBYEtP79qzVWM8zgtXs`;fF+14DcglfxIkN7Bnx~
zmxyrB3!IofKjQfuA$n?6ErDz08(7Ox*ghg^9J{A~%4aI(=2>~T^z3c^W6jk3>}9(`
zZLB$8&Koc#MY^G1D!=UbuGGd5g@mUBfznE+D>#>fZ}$|beMl_8h4Gx$YYd0@;-0zK
zb-tiBtHZyR^<OdVm@>|ta+J^B1x@K<z+$atu7tt93;CR=A08&O)pn@H|CKtgFen`(
zC*9A41($jl?a8liEa2zVK0~En?&`AH3>S8f5xu~9B=_*>P4{_RTCHx2p$_GKUMA}L
z_0jN<;!w}$X1s(W7ZXQHd$sL8<aV8d42H><DP3$`j(GIq#PYd&hcTY$H)tU#DDu=n
zkQPtV$W2<>;y@CKntyAu>Rv163HK9evLYCMHCb@D_}avV-pNY6q&I}==@t%I@U!GX
zeG3zq9rpqxXJ+{VO!<3?acl(4F|u&#@g0e5fwrgNSK3}w&^4I)cq9216+h$i)I*w;
zNjR$ns92TGyXM!NHA|#hJvC&LWHGvuJt~!-X;PHBpGj%3p1I&sbo?w%f@HV?5e~}z
zTkTw(PgYg*<|3Hd8~6gR0i6{MH;_NtUrU@?mTEd#Iv<4;&b|=U>13NNu1FfUa&C?_
zfWxx)=RJ&h!>0*+g70MFgJ+Gu*2<OJ->F;B6l*Jkd<}M&=@**u=AxN}Ng%36O6ti5
zr8@g=@V&}xNU5IaaY&rf$FUkO3EL8(aY@6^Kgo3yx)@UCZ<y%Liw#ey_m$mXPl_fF
zU}=7{<#Pjd7|rsZ0lB<GqLr#4j~o%8uEg_a>0~UmU%XI`ZUS}*1%-+=(%R%Kuw1eU
za3_^!^F+Hbp+}Er&bxO6b<ZAn2vQ(DvZW_p8SnhdW)<d5?$lSEP(4#8xzHD`o1~J%
zbdHAMg*rTwm@HC{i|gr=1#ml}CDp{6TocfR=)afcrwMg6J!<68*F#k$t<m>s4xBEf
zWxuqrU7H1&DBf$kU#NeW_ESo?6C8<g@xao@^Fu@!Z7MQr|3vJXTc&Y`ow^maFuUXu
zO&)rnA3>#KB~Q<JIZp?rNM+%y(-p>;wi<>Et9a0T`NmcX;oX7p4$Xb6=Qlv8dsFH}
zo3t#y9~6qhmqAVBLVll2Q_F`=;kEOqaSV3~<b^V2JtLu>5Z;Cg-W8u1H5?6RO@P4)
zZnU@);kHoi9?qnyb!=Gqnwxmo_)BFXnWSH9nbO%*iSlaT87!OLt1KGJr@_RnU1nr`
zi)6}QBf(227L~t{z6-(HZ=ec7Gv*?lT4v?~VW!VJZrFd6nbapMTg}iUS7^}wYH^L-
zYYl5=an94~#pFJbpw16DEVyzjp@91Saa_Sz4-KKKfS9#8h30>uP{td5&piE`b@jn@
z`fiM56AN-U&bFvsLzMSt=zR?SC<E#z>-@u-yFn={MA_!zks_PM%czCsUgF{*BhA1T
zNrkujy^!sD#y@skUr$`N&s?h*YD~Ft1!nRMdH}?E#0N#1?Z)~U8|LH{Oqpwyy9n)5
z$QUSvWLnERA;S)xaJAk1h8edki(l1BjK!8r3#ks8^#@QqC6ibZ8_u>eX>kvpoORAL
zav9c4Of1l3ooD#o(puZw9aU;@TV=*&D7ERyt$BNU^S7i+%ZksO$7*RVf~vNyk-iP!
z)C#$|grl^=jt%V0HND~VlX;igrX(ycYoA{Wuxgka9h(BtTde}_p-|x9uP3UDdS7?`
z+AYCSqB*7bUFhhpUpnZV{;9`ucU_4bgP)gjXtsGgO-`0o{Am^C#6cjYKltSL$)aC@
zu5uD7kai+d<DGXWU9p%Zs9>5hpp{7B_mHTs>4-v=S!X0-4W{4`S98E6JUAiiG><Im
zM@P}+k^Gh+6DoHi?tS^~@Ba4|j|8t+ow@Si+CGNs(CrmP2U2K5yYKsFy-v)2s?L8b
zf=g6sSbgis4MT0%Xq3UDlAK+J89rsIi~iQva`hOkro#@;h<N#q`kb&|h-khGbCPZ`
z!7HT&xTAv*u2B)LNmL<sHz^4bVT6cMbvV`qNBN!k^}SPvH9v1w`i3K6v&;ibDb+sk
z_t@)qp44L9&&I4Ij*47omtl@JQE25a!9-q0)l!Y4XL{W!ztEaJvG2^(Yi`g{hKp;(
z#WNab%OB?4M}E1yVevHP_4Fg5H%2QWs|n$5NPo5FA-I5gvf?XL*@&QG!{-mWy&=ax
z?)PrtAFG{m9ubW}OY}kHj9#~B^tI$cmhQC9am57YnPo?nxTxF6bjC+7{@k3ub|^mh
zZkF>Cq4u#5MY?>(RsI9=nfva@q%+P=n^E-znM!&mI<NyztA8AEcD)l8RI=VC$vye<
z)!XR1>NmCGb*?`6!cxn<hTd(>Bi5L|l6Q8N?(KirJ$du}Ej}K6v%7~cDaEFs-(8P)
ziqNM$3;vNR!yKFI7yb(^ds5-iXoiFAXUjoW2c}_l)Gb!ynW&haHIJE<)Y9`TwQqX6
znz&>GkDr?k3ooo4gnWiSR?DLn`<0c-I5kJ~eWpwpr+tRZpPH@|FG*R?(Y~}=VSiry
z`tj#(H?EVMn?69+7ki5foG7M<O3_%0G_KPQ5BQca_%d@Z3Z}bxMr-cfZK!l=?0P1e
z9Fo>hNSua#5yP%}<c?Q{z!>#jL=*ek&F+b)Ivmw+u31?aN#HS9gcR=eYxZd$+I?ai
zaqDhZJ94$L%KYyp3A7|J6?y!45;73->9J>;<dVn&5vLc42oisrUR3-l8D&a%$rw)N
z8{l6w_d43WycEE-W7gv*c=+JFEIs@KfFVz8Ya#>?-Wv4K4xryZv<F)f>$l}qwjGMz
zmK64SBy(HdWIvCS+m;F2e!$?l6@M%F?%#5|08T4Yw#IE|WqF33ofCbG9YvSD`QK&p
z_~5+p{yRc(+nO0;{y5kiJ!NgSbC;_Z&i~J@KZ^oxxB#3wfd~ZL*&Cv7p!%OgyS5UA
z0e_pDn;U@GU{}h4PC&9N<lOQ>{0^{vPOhz@*gfS1-~#|}1>Q;vAh<Pbvtw_?5@DAH
z0T2b)>X$fx1b`%f6o53q9sn5tSpX=&UVwc7Fo3P5?+1Vb$O9+<C;}V+Py$c}Pysjy
za0oyZKn*}0Km$M%Kx_LP|7r%8n}_$GHn7X*VYgxT@1t(Jap3+aE`Jo)?MPgkY*!xk
z12EnT?~V5f(Ar@mcG%iGY@Hpp?sggfe$(vN|9@Sk?R)dTuI0vm0Y$`y6G9CD0PaBI
A^#A|>

literal 4200
zcmV-u5SQ;CiwFP!000001MOM~IF;+S-`Fzk%w$TYq(p{v6xAjgB^jbghP_D{H)%jg
zDU~AO2+4E|MU#wem7ypymFA>K5=C)ji2o<=+V}Q$+|GUe_dfUe|8M(wmbKULuJv2%
z{oe0e`|+6@*=Y0H@RCR*4icH2jl{u8d?j&OSuR!6B@r4zU?Y)9JOt;ayVBk0?mk+C
zuLvQJ*#y7waXY)I5&A~9GBsI8aQ-nZbt&oFhpIzDpYNh_y4$<ay|GZ7K6HCGZzN3e
zcJyG3xqQFQ(be7?)`60jX76LK?!+KMV(vT)kDcm}YVugBK;qBn=;#Q+Mkc6K8`Z!@
z4b%NA?BF+-2sai}>zi%7GaO^iV>rhuAc$+se+<YNOoI3bq980|IRsECLIepDG}d8J
zg2V_CCuj;m5(G&SBt?)kK{5nQB}kT_X#~j;Bu|h6L5c(^5j343WrAi9q(ab4f@Tq<
zO3-YA)Cf{1XbwRd1Zj@f@m-x9G#58$8-maIU$jjJmBNAaZ1(WQ0lqk5OS#;4xH-@n
zusQ#(jpTH7@%GU~pg0j=Ug~<%w-40?amLMYz8lH=sN*~c>4Tfc`4MCfl^f?_<9`1W
z=aYSu^mmUW2e?jn3dy6SzdUsK;re$xL|m-eN#C8E|LzH4wft}0RVnJ`_U<$fH+641
zoi+}Dok3tv83U217WARgyy<k*+bycm+_6#%1uCC^dP9DBhRmM3O(xRhx7haN#T(PV
z?tl8AKT)q#_O!nLW9>ew9_`hgC)Q^!Zk->c5M4PfODN~S*Rq!aB@L^}LTIMCGt%iX
zDqoFwhI=QKZG5_t;W2&QXx`#Dp5og>r=OZ_&wc3aDY)U}T4jZsZiD3s_vJENwjDee
zcQ|C>x$A>n)xSLs3==XY-C{1k<e%Xi+Q9xkb+!L(9j@rTHXpKV2P$*o5~|t)1!ksn
zPuaCvWp-M`jYTDvkNPeA(|Xy{ve(Wnw=c>cd7qYjwr@uHY%_t5*H`MSp2VtsoK~sx
zXXy$Hxw}Q7EiIo{?3Ybm+|5r*I3W=8Y9J{4{jo<W=|yCxG-iJN!cjgRJ*#_Pvs^p$
zmY0sCJe#U?wf^^`Ng*SC8Bzt+MYOn^LJ9*p5wzte%qo0WO9oy3aJQjl(=4GY3-2kA
z{l2VUW|Yu6b>5z*kvz5y3(}>Z2UjJQY+2>LwynRB>S-9i<dm-wS(C)h+ni;=x7R$N
zl*e$_QN54Dmb{}Cs+}+H-}DIDwdIdOu^F3IZ9cC>xgMc*j~Vzj-T4ZC(52dTheJK@
zl}gx;Fm@D4@Gv!(YFdvbt!VtDEj&*k`EcdRNGn;kDN|@$CTB-JREm!s;dP~P?Kog0
zT-#aj=3&vfcYz^g_GOvR^X-Ey?$x!tEmn6r7W%}maOwNQl`R|ikM+sudmNnh!L@S7
zl^iR|S(9C_MTWhK4cvTxGdG&uR25Mmp%$C&*P8xTQeMa}<5idHI!1<ey+O3~fmLNe
z!V&UTseak@&TH@OEw1&tJ-0WhICj`?#TzT>zI_Lh115E}IEB0J{-{0q!R-3w9eII`
zLN9IEw=pxX3C`J=TV%W~&!3y3@X>CKMAH+_wCzI7<wkQOqTYENpPRL_f+0e=FuG_n
zw~4DBUx-W8JKBB2f?FA!P6Ov;+45$!pSqKgWB9eWx;KvcxZhIStc$}><Y2(Xd*_<6
zwZ%+cuf4dARG(KTncmDR@2uEZBw^rCouiSMu-o+LlBz=MnVYNbAF0`M%3aZawaWGz
zw@o9X?q(EaMab_8ip#gzy#9Etb;LIFMO=Fy?h>K)ZG3jvr|?YP8E&;@Tk@2@81)?3
zxkT~$<tRqtoQvgh=bjyIv3|GtkD3b0(fEaXGUVHD9eK28TA@vL+UeFC8bgUY?&sZ6
z><K1|$r;m@TyHwP>Q3KYRllw&Je1W3MVQ5|##-)mY&YH7Kh1S{y{z);`_`h^>L=me
zoJpO171u4_RCGot$LY!Ct+%f}?N{7v9CM-cq;$6mf1_=dpq?kQi`@80)9Z!Cx(agY
z{i4?e#vFwk?j)@Z=gbT9Ka}qxx|Q#u;Yx#A((@H9%;(B_W;Fd;g*)o><^I;UDf7kc
zHW{5PXqfrLmy~d2zGW@_R=Zqw%Amlh&bs?s=Fh%pkk{)wqmS5TIlE@RK8oQX_U0Rx
z-#AFs-_0=Yx?(~<mhG>&Uta5+<8#kP%rYaHn1RQAdis0Z4fkr$n;n?8;m0h?vjYuZ
zJy@UEr@NH7t%tMjg+aDMyUUh#lT~Y~-!Y4ZL+s9cV!t37Xuqeqmm}37WW^t43%vG(
znZ?kwTvzw)ic}Q2Y;G>Qw3+WnO*Q-5y2N0W8A0AXzU_laO`YxU?DRi|n=+1Q%6N*d
zGFM7F5~!<|`B<t|e^Q<Ql~8?cQg7t5*D*mK-__piuRo$6UNaKT_O4Q)Gx{-i*TUh@
zD#274@nwb)D<u;H-|(i2GIUR>baWRjP#>h#$!qGnmRxPRntD4%*gxE(xu*YGb$xAA
zvvXXLLPmA43bo+{rFTi5zJ686r?`!2-EmwVMwgB{*{s<&Yk|zQn(nY#8|I0NyrM^F
zlv4MhPP<1hiv6bwa@V!#3@a=sewcB-rz-TkGAC2kz(;HQhmTbMB}P}<$)n4!r6w0S
zuzwV6)AZ?VogZ&$#C=vc<(WWYwTMOaXX9gbIpwXT#ik=FA(IwneZC#1Z&oma5ifpL
z<Cbrm(qO<QT?$$Eseo-)cz@yGumm|Ja%Y8rA(u%Wsmi)Z|6y*anfDvh<V2bC%P*Hj
zP&#i(JdcftHD|Mq2~6fpvAmTK(7wmTc2Kg|&uqz;&e`iF-ubXUO^b*pnc9^ca0(6d
zePq|-!+0I$XqVAg7+>wL#x~rk|N9l|`MbN@G#ks8ef(_Wbz^i7bN!o3Y_-Rkezl#J
zbDeIK-uOI4uJy77^X>c-W=Gq3UUwX%Z+%|JX(H$<Gd$l=_!BKll~ki(>$89VChn@v
z%p%{Y?R7oA!JVW4k4UnPY{SZx+w7La<(iD7t(9x66A$7I3vPG1quN>X$4dRvVr`5$
zlQ(*n^baUKP>R)UX<Hw=``(MX&$qIfUOlOiZM}g(?!LJ<yHfM@14Jsr1DpI5jQJSc
zCKd*incjEe!>F@_7cZ>6?KV?~tgD@sYe_zKHh5Rd7q6Iw59JS$9ls1|OuuKjtn`um
z^GkCxW1g5%O;<UuNo79smFh@p-8d~LSR`}ccdJFqPsz-tjBE(7?u)F5-s*Mf*3oA*
zS-spt1I}wUCl$>;n%oeZ(O;G(Bv0w*u<AA^2MRsa>PqK5d^zJneb9}9bwWawb1P1$
z8c$s!876Nl#2u}3O!;KNf%}V2_34;TeGu`bE7Wek^~^i+iliZ~%<I)|#o8MjWyRN6
z9QrIdaz;(vprv2Gw^KAbK|9^r&%GmYO-R{Dfa<3z4jrX?A1j;(<)ig=Hx#(N>fHY4
zDT8#;tD2OlrPHpfJ-S=)Nxr!vsqL9hL96lHO0k(Izbwu@JmvAsB*{Muk1pUaaqcn}
z8j^GndlXSOLY_RZsB5}vmf_NPWu@}Fo=4Sg*tFI2?CrTCoA0)-npVE>Osa*=jL5Rv
zW>>R>Kjhz(jvL*V`L%vDt792|ddObodd;u*y;1^7j8hwjZOjK%q|+bh@9W``**>p$
z<?jzl-n-HFaVL4$r(VktA2~V6d#R_kkbPQIa%;k;nxKo+^)aEDHeqX}t*Vtf;}V_@
z9?wjfQ<`{wKC>a)^nwy!d{B7F<V0JJof>}mfg$44o0=T<oSzlin7vGSrBr%F_2aea
zng#)0M?TAJyeYafGB|nrkYT>Doa_EA!kZ5DQFP0XD@OIv^Ql{2o?TE-U#J)@lcSkp
z72HVI2qOm-zF*y)D=mFGT(<Za?ToJfhX>ovnZGo88F4|&WmC4<-i*Qw*VLVtio3(v
z4pX~yJcnKg^0x=9)?35Dm};z^c2{xI<@Ug*Y4u|Bgv)mG6qdhM<!3}0)h<h!wMJ;G
znql-?d#+xiocdr1E!Wy5>vAhQ4!b&Kx1KxYx$bgbn8r}U3Vsz1Y}O;YFkHOR%n!dQ
zqN$=z-#%24(_^1ls&Mt#=N?rU=|$1}C<b;+FNE~49{fbKzkOI-2=OV1i=#Z?4>&*%
zGHz$(2izzg;9+ry1N9&d{;ar2FOJqh9S{fC3t@P`PZ;Y53kQx9t3wRKFN3%wiX)9U
z;E)1b2)88k8Tm;8E~p>*PeFDGBuhZQ5to8KAQ|>a0@p(vBtw3djNy<*c8D*5;fK0_
zv+`os9mrBx-GB>^BZ1Yy+E45{0}gfK*CFJAI5Jq>uphG6Ihu;qErU4tv-TG|50Hn|
zM~IK?z@Z<k>jUMN#c<>Kp-z0iz&;hp(+~$czR!3bNo=107vu*S>cg)Kd|#n%z>BUs
z)_seD?A(a+p!nR#pMtmmipPg>F2uoqGFlIIZY;hacD^Al;NVAn0S<8>F5uzC>=2(1
ziw81Z7w83196_W9JNQE!$U9LUb`%F+2X$~`GWbDVyqF%x3-Kpm9M*AQ`@xCUld%4?
zAw3u7&yCdw>%pIlT_2Di^dPh1VS13kPDc3vHwT6rINoo(A7BR@WULM{=8wn4`+(QO
z`;&F}^-ad?AXBjG3Xg~9<-zQ5-9SCCFZg~;!tmnP6}}%6$^2M6)_zZL4)E)TC1acu
z!_AB3hd%rep9G(8_pQZ$j;~|!-tqX0zl=Mv^h4w8Su$=18Ti0BE|$Fq$)8ai@PmAK
z9<bwbH>Mv!>mVO+9N$FtiRu8HI6k~TAmbeJ06rYY1bzIEc^B;)Jii5z409UT!5{V?
z?D+El?#qJMIyg`89D%rkSRRNc0{43iAH;*Xnl*<b8J|n>`#RjeA&)3tCx#p1vz|N1
z&Z+~`Lw{I(z&PM$JztSO%nyJE=1p;s(K;y%FFvQioWlAYf%GsR;`2Ff$LAK-{D}0d
zc^i{i^CavS?BfJ=;B%Nbh8tvjUKhvWi%qcphdv^F`0oRdvEN%HxNqG-=jdnr3F7zB
zdB*L96Razo!2Sf|5EtjTKgiAKyibJl@76OB?!Q~#M0i_}{IkB{9KWC8_eWeFK<m0O
zJ;dq8;(!cx+#mM?8J;`C*!}ru_j%wGJ%4&I{16A~!k>dbdtShL$O|&w9~>`mz=LFX
z{=@T!N<x0953IQd^ibz8<_B{G>96B~o;7!(`S6E4?BDMbYmOvg@nIc?_Xk{HhyIRW
z@z}7wqrS58a!gP!)P>hGf~_ZiU&jymu|AN-|8W}4`mZS6$HUwHm-I{emy>vX=?rfd
zM-NvI#xKn;%`eUWfriJ|h2iYt?&4_wOYuwbOYzSrzJG6!6FE>U=$`hj>Lzq|XP>P|
z$2YFCcA>FU6f?Td4{qbS|Ln$P;YoLN`6u2y+(!EGy;V+cx-Z?G1g|5a|J31csJhwv
yFkE(N{{MPQ5qk~TN%LRk-O}%Ocs#*RF#qMt%$lVCwYPLhBmV&KJtd8PF8}}uQIv-O

diff --git a/.Rhistory b/.Rhistory
index 7d8656f..2ba705a 100644
--- a/.Rhistory
+++ b/.Rhistory
@@ -159,62 +159,23 @@ boxplot(formula = pmg ~ cyl, data = mtcars)
 boxplot(formula = mpg ~ cyl, data = mtcars)
 hist(c(mtcars$mpg))
 hist(mtcars$mpg)
+#Converts iris.csv into tab-delimited .txt file
+write.table(read.csv("iris.csv"), file="iris.txt", sep="\t", row.names = FALSE, col.names = TRUE)
 setwd("~/Desktop/classes_fa22/biocomputing/homeworks/Exercise07")
-read.csv iris.csv
-read.csv(iris.csv)
-cat(iris.csv)
-iris_tab <- iris.csv
-iris.csv
-seven <- 7
-read.csv(iris.csv, header = TRUE, sep = ",")
-getwd()
-file.exists("iris.csv")
-read.csv("iris.csv")
-iris <- read.csv("iris.csv")
-read.csv("irish.csv")
-read.csv("iris.csv")
-read.csv("iris.csv", header=TRUE, sep = " ")
-read.csv("iris.csv", header=TRUE, sep = ",")
-write.table(iris.txt,file="iris",sep=" ")
-?write.table
-write.table(iris, file="iris.txt", sep = " ", col.names=TRUE)
-write.table(iris, file="iris.txt", sep = "\t", col.names=TRUE)
-write.table("iris.csv", file="iris.txt", sep = "\t", col.names=TRUE)
-write.table(iris, file="iris.txt", sep = "\t", col.names=TRUE, row.names=TRUE)
-iris
-?read.csv
-?write.table
-write.table(read.csv("iris.csv"), file="iris.txt", sep="\t")
-element1 = seq(from=100,to=1000,by=100)
-df1 = data.frame(("ND","UNLV"),(44,21),stringsAsFactors=FALSE)
-teams=c("ND","UNLV")
-scores=c(44,21)
-df1=data.frame(teams,scores,stringsAsFactors=FALSE)
-df1
-numbers=c(1:50)
-matrix1=matrix(numbers,nrow=10,ncol=5)
-matrix1
-#Creates a 10-row, 5-column matrix with integer from 1-50
-numbers=c(1:50)
-#Q1
-#Converts iris.csv into tab deliminated .txt file
-write.table(read.csv("iris.csv"), file="iris.txt", sep="\t")
-#Q2
-#Creates vector with length 10 containing 100, 200, ... 1000
-element1=seq(from=100,to=1000,by=100)
-#Creates two-row, two-column df with team names and score of Notre Dame football game
-teams=c("ND","UNLV")
-scores=c(44,21)
-element2=data.frame(teams,scores,stringsAsFactors=FALSE)
-#Assigns variable to number 999
-element3 <- 999
-#Creates a 10-row, 5-column matrix with integer from 1-50
-numbers=c(1:50)
-element4=matrix(numbers,nrow=10,ncol=5)
-#Creates a vector containing three letters
-#Creates a vector containing three letters
-element5=c("a","b","c")
-?list
-?list()
-list1=list(element1,element2,element3,element4,element5)
-list1
+#Converts iris.csv into tab-delimited .txt file
+write.table(read.csv("iris.csv"), file="iris.txt", sep="\t", row.names = FALSE, col.names = TRUE)
+#Creates a list to add elements to
+finalList=list()
+#Adds a vector with length 10 containing 100, 200, ... 1000 to list
+finalList$element1=seq(from=100,to=1000,by=100)
+#Adds a two-row, two-column df with team names and score of Notre Dame football game to list
+TEAM=c("ND","UNLV")
+SCORE=c(44,21)
+finalList$element2=data.frame(TEAM,SCORE,stringsAsFactors=FALSE)
+#Adds the number 999 to list
+finalList$element3=999
+#Adds a 10-row, 5-column matrix with integer from 1-50 to list
+finalList$element4=matrix(c(1:50),nrow=10,ncol=5)
+#Adds a vector containing three letters to list
+finalList$element5=c("a","b","c")
+finalList
diff --git a/Exercise07_script.R b/Exercise07_script.R
index 48c4b8c..aba5378 100644
--- a/Exercise07_script.R
+++ b/Exercise07_script.R
@@ -1,9 +1,11 @@
-#Q1 
+#Assumes working directory is set to Exercise07 folder
 
-#Converts iris.csv into tab deliminated .txt file
-write.table(read.csv("iris.csv"), file="iris.txt", sep="\t")
+#Q1
 
-#Q2 
+#Converts iris.csv into tab-delimited .txt file
+write.table(read.csv("iris.csv"), file="iris.txt", sep="\t", row.names = FALSE, col.names = TRUE)
+
+#Q2
 
 #Creates a list to add elements to
 finalList=list()
@@ -12,16 +14,15 @@ finalList=list()
 finalList$element1=seq(from=100,to=1000,by=100)
 
 #Adds a two-row, two-column df with team names and score of Notre Dame football game to list
-team=c("ND","UNLV")
-score=c(44,21)
-finalList$element2=data.frame(team,score,stringsAsFactors=FALSE)
+TEAM=c("ND","UNLV")
+SCORE=c(44,21)
+finalList$element2=data.frame(TEAM,SCORE,stringsAsFactors=FALSE)
 
 #Adds the number 999 to list
 finalList$element3=999
 
 #Adds a 10-row, 5-column matrix with integer from 1-50 to list
-numbers=c(1:50)
-finalList$element4=matrix(numbers,nrow=10,ncol=5)
+finalList$element4=matrix(c(1:50),nrow=10,ncol=5)
 
 #Adds a vector containing three letters to list
-finalList$element5=c("a","b","c")
+finalList$element5=c("a","b","c")
\ No newline at end of file
diff --git a/iris.txt b/iris.txt
index b025810..d911aeb 100644
--- a/iris.txt
+++ b/iris.txt
@@ -1,151 +1,151 @@
 "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"
-"51"	7	3.2	4.7	1.4	"versicolor"
-"52"	6.4	3.2	4.5	1.5	"versicolor"
-"53"	6.9	3.1	4.9	1.5	"versicolor"
-"54"	5.5	2.3	4	1.3	"versicolor"
-"55"	6.5	2.8	4.6	1.5	"versicolor"
-"56"	5.7	2.8	4.5	1.3	"versicolor"
-"57"	6.3	3.3	4.7	1.6	"versicolor"
-"58"	4.9	2.4	3.3	1	"versicolor"
-"59"	6.6	2.9	4.6	1.3	"versicolor"
-"60"	5.2	2.7	3.9	1.4	"versicolor"
-"61"	5	2	3.5	1	"versicolor"
-"62"	5.9	3	4.2	1.5	"versicolor"
-"63"	6	2.2	4	1	"versicolor"
-"64"	6.1	2.9	4.7	1.4	"versicolor"
-"65"	5.6	2.9	3.6	1.3	"versicolor"
-"66"	6.7	3.1	4.4	1.4	"versicolor"
-"67"	5.6	3	4.5	1.5	"versicolor"
-"68"	5.8	2.7	4.1	1	"versicolor"
-"69"	6.2	2.2	4.5	1.5	"versicolor"
-"70"	5.6	2.5	3.9	1.1	"versicolor"
-"71"	5.9	3.2	4.8	1.8	"versicolor"
-"72"	6.1	2.8	4	1.3	"versicolor"
-"73"	6.3	2.5	4.9	1.5	"versicolor"
-"74"	6.1	2.8	4.7	1.2	"versicolor"
-"75"	6.4	2.9	4.3	1.3	"versicolor"
-"76"	6.6	3	4.4	1.4	"versicolor"
-"77"	6.8	2.8	4.8	1.4	"versicolor"
-"78"	6.7	3	5	1.7	"versicolor"
-"79"	6	2.9	4.5	1.5	"versicolor"
-"80"	5.7	2.6	3.5	1	"versicolor"
-"81"	5.5	2.4	3.8	1.1	"versicolor"
-"82"	5.5	2.4	3.7	1	"versicolor"
-"83"	5.8	2.7	3.9	1.2	"versicolor"
-"84"	6	2.7	5.1	1.6	"versicolor"
-"85"	5.4	3	4.5	1.5	"versicolor"
-"86"	6	3.4	4.5	1.6	"versicolor"
-"87"	6.7	3.1	4.7	1.5	"versicolor"
-"88"	6.3	2.3	4.4	1.3	"versicolor"
-"89"	5.6	3	4.1	1.3	"versicolor"
-"90"	5.5	2.5	4	1.3	"versicolor"
-"91"	5.5	2.6	4.4	1.2	"versicolor"
-"92"	6.1	3	4.6	1.4	"versicolor"
-"93"	5.8	2.6	4	1.2	"versicolor"
-"94"	5	2.3	3.3	1	"versicolor"
-"95"	5.6	2.7	4.2	1.3	"versicolor"
-"96"	5.7	3	4.2	1.2	"versicolor"
-"97"	5.7	2.9	4.2	1.3	"versicolor"
-"98"	6.2	2.9	4.3	1.3	"versicolor"
-"99"	5.1	2.5	3	1.1	"versicolor"
-"100"	5.7	2.8	4.1	1.3	"versicolor"
-"101"	6.3	3.3	6	2.5	"virginica"
-"102"	5.8	2.7	5.1	1.9	"virginica"
-"103"	7.1	3	5.9	2.1	"virginica"
-"104"	6.3	2.9	5.6	1.8	"virginica"
-"105"	6.5	3	5.8	2.2	"virginica"
-"106"	7.6	3	6.6	2.1	"virginica"
-"107"	4.9	2.5	4.5	1.7	"virginica"
-"108"	7.3	2.9	6.3	1.8	"virginica"
-"109"	6.7	2.5	5.8	1.8	"virginica"
-"110"	7.2	3.6	6.1	2.5	"virginica"
-"111"	6.5	3.2	5.1	2	"virginica"
-"112"	6.4	2.7	5.3	1.9	"virginica"
-"113"	6.8	3	5.5	2.1	"virginica"
-"114"	5.7	2.5	5	2	"virginica"
-"115"	5.8	2.8	5.1	2.4	"virginica"
-"116"	6.4	3.2	5.3	2.3	"virginica"
-"117"	6.5	3	5.5	1.8	"virginica"
-"118"	7.7	3.8	6.7	2.2	"virginica"
-"119"	7.7	2.6	6.9	2.3	"virginica"
-"120"	6	2.2	5	1.5	"virginica"
-"121"	6.9	3.2	5.7	2.3	"virginica"
-"122"	5.6	2.8	4.9	2	"virginica"
-"123"	7.7	2.8	6.7	2	"virginica"
-"124"	6.3	2.7	4.9	1.8	"virginica"
-"125"	6.7	3.3	5.7	2.1	"virginica"
-"126"	7.2	3.2	6	1.8	"virginica"
-"127"	6.2	2.8	4.8	1.8	"virginica"
-"128"	6.1	3	4.9	1.8	"virginica"
-"129"	6.4	2.8	5.6	2.1	"virginica"
-"130"	7.2	3	5.8	1.6	"virginica"
-"131"	7.4	2.8	6.1	1.9	"virginica"
-"132"	7.9	3.8	6.4	2	"virginica"
-"133"	6.4	2.8	5.6	2.2	"virginica"
-"134"	6.3	2.8	5.1	1.5	"virginica"
-"135"	6.1	2.6	5.6	1.4	"virginica"
-"136"	7.7	3	6.1	2.3	"virginica"
-"137"	6.3	3.4	5.6	2.4	"virginica"
-"138"	6.4	3.1	5.5	1.8	"virginica"
-"139"	6	3	4.8	1.8	"virginica"
-"140"	6.9	3.1	5.4	2.1	"virginica"
-"141"	6.7	3.1	5.6	2.4	"virginica"
-"142"	6.9	3.1	5.1	2.3	"virginica"
-"143"	5.8	2.7	5.1	1.9	"virginica"
-"144"	6.8	3.2	5.9	2.3	"virginica"
-"145"	6.7	3.3	5.7	2.5	"virginica"
-"146"	6.7	3	5.2	2.3	"virginica"
-"147"	6.3	2.5	5	1.9	"virginica"
-"148"	6.5	3	5.2	2	"virginica"
-"149"	6.2	3.4	5.4	2.3	"virginica"
-"150"	5.9	3	5.1	1.8	"virginica"
+5.1	3.5	1.4	0.2	"setosa"
+4.9	3	1.4	0.2	"setosa"
+4.7	3.2	1.3	0.2	"setosa"
+4.6	3.1	1.5	0.2	"setosa"
+5	3.6	1.4	0.2	"setosa"
+5.4	3.9	1.7	0.4	"setosa"
+4.6	3.4	1.4	0.3	"setosa"
+5	3.4	1.5	0.2	"setosa"
+4.4	2.9	1.4	0.2	"setosa"
+4.9	3.1	1.5	0.1	"setosa"
+5.4	3.7	1.5	0.2	"setosa"
+4.8	3.4	1.6	0.2	"setosa"
+4.8	3	1.4	0.1	"setosa"
+4.3	3	1.1	0.1	"setosa"
+5.8	4	1.2	0.2	"setosa"
+5.7	4.4	1.5	0.4	"setosa"
+5.4	3.9	1.3	0.4	"setosa"
+5.1	3.5	1.4	0.3	"setosa"
+5.7	3.8	1.7	0.3	"setosa"
+5.1	3.8	1.5	0.3	"setosa"
+5.4	3.4	1.7	0.2	"setosa"
+5.1	3.7	1.5	0.4	"setosa"
+4.6	3.6	1	0.2	"setosa"
+5.1	3.3	1.7	0.5	"setosa"
+4.8	3.4	1.9	0.2	"setosa"
+5	3	1.6	0.2	"setosa"
+5	3.4	1.6	0.4	"setosa"
+5.2	3.5	1.5	0.2	"setosa"
+5.2	3.4	1.4	0.2	"setosa"
+4.7	3.2	1.6	0.2	"setosa"
+4.8	3.1	1.6	0.2	"setosa"
+5.4	3.4	1.5	0.4	"setosa"
+5.2	4.1	1.5	0.1	"setosa"
+5.5	4.2	1.4	0.2	"setosa"
+4.9	3.1	1.5	0.2	"setosa"
+5	3.2	1.2	0.2	"setosa"
+5.5	3.5	1.3	0.2	"setosa"
+4.9	3.6	1.4	0.1	"setosa"
+4.4	3	1.3	0.2	"setosa"
+5.1	3.4	1.5	0.2	"setosa"
+5	3.5	1.3	0.3	"setosa"
+4.5	2.3	1.3	0.3	"setosa"
+4.4	3.2	1.3	0.2	"setosa"
+5	3.5	1.6	0.6	"setosa"
+5.1	3.8	1.9	0.4	"setosa"
+4.8	3	1.4	0.3	"setosa"
+5.1	3.8	1.6	0.2	"setosa"
+4.6	3.2	1.4	0.2	"setosa"
+5.3	3.7	1.5	0.2	"setosa"
+5	3.3	1.4	0.2	"setosa"
+7	3.2	4.7	1.4	"versicolor"
+6.4	3.2	4.5	1.5	"versicolor"
+6.9	3.1	4.9	1.5	"versicolor"
+5.5	2.3	4	1.3	"versicolor"
+6.5	2.8	4.6	1.5	"versicolor"
+5.7	2.8	4.5	1.3	"versicolor"
+6.3	3.3	4.7	1.6	"versicolor"
+4.9	2.4	3.3	1	"versicolor"
+6.6	2.9	4.6	1.3	"versicolor"
+5.2	2.7	3.9	1.4	"versicolor"
+5	2	3.5	1	"versicolor"
+5.9	3	4.2	1.5	"versicolor"
+6	2.2	4	1	"versicolor"
+6.1	2.9	4.7	1.4	"versicolor"
+5.6	2.9	3.6	1.3	"versicolor"
+6.7	3.1	4.4	1.4	"versicolor"
+5.6	3	4.5	1.5	"versicolor"
+5.8	2.7	4.1	1	"versicolor"
+6.2	2.2	4.5	1.5	"versicolor"
+5.6	2.5	3.9	1.1	"versicolor"
+5.9	3.2	4.8	1.8	"versicolor"
+6.1	2.8	4	1.3	"versicolor"
+6.3	2.5	4.9	1.5	"versicolor"
+6.1	2.8	4.7	1.2	"versicolor"
+6.4	2.9	4.3	1.3	"versicolor"
+6.6	3	4.4	1.4	"versicolor"
+6.8	2.8	4.8	1.4	"versicolor"
+6.7	3	5	1.7	"versicolor"
+6	2.9	4.5	1.5	"versicolor"
+5.7	2.6	3.5	1	"versicolor"
+5.5	2.4	3.8	1.1	"versicolor"
+5.5	2.4	3.7	1	"versicolor"
+5.8	2.7	3.9	1.2	"versicolor"
+6	2.7	5.1	1.6	"versicolor"
+5.4	3	4.5	1.5	"versicolor"
+6	3.4	4.5	1.6	"versicolor"
+6.7	3.1	4.7	1.5	"versicolor"
+6.3	2.3	4.4	1.3	"versicolor"
+5.6	3	4.1	1.3	"versicolor"
+5.5	2.5	4	1.3	"versicolor"
+5.5	2.6	4.4	1.2	"versicolor"
+6.1	3	4.6	1.4	"versicolor"
+5.8	2.6	4	1.2	"versicolor"
+5	2.3	3.3	1	"versicolor"
+5.6	2.7	4.2	1.3	"versicolor"
+5.7	3	4.2	1.2	"versicolor"
+5.7	2.9	4.2	1.3	"versicolor"
+6.2	2.9	4.3	1.3	"versicolor"
+5.1	2.5	3	1.1	"versicolor"
+5.7	2.8	4.1	1.3	"versicolor"
+6.3	3.3	6	2.5	"virginica"
+5.8	2.7	5.1	1.9	"virginica"
+7.1	3	5.9	2.1	"virginica"
+6.3	2.9	5.6	1.8	"virginica"
+6.5	3	5.8	2.2	"virginica"
+7.6	3	6.6	2.1	"virginica"
+4.9	2.5	4.5	1.7	"virginica"
+7.3	2.9	6.3	1.8	"virginica"
+6.7	2.5	5.8	1.8	"virginica"
+7.2	3.6	6.1	2.5	"virginica"
+6.5	3.2	5.1	2	"virginica"
+6.4	2.7	5.3	1.9	"virginica"
+6.8	3	5.5	2.1	"virginica"
+5.7	2.5	5	2	"virginica"
+5.8	2.8	5.1	2.4	"virginica"
+6.4	3.2	5.3	2.3	"virginica"
+6.5	3	5.5	1.8	"virginica"
+7.7	3.8	6.7	2.2	"virginica"
+7.7	2.6	6.9	2.3	"virginica"
+6	2.2	5	1.5	"virginica"
+6.9	3.2	5.7	2.3	"virginica"
+5.6	2.8	4.9	2	"virginica"
+7.7	2.8	6.7	2	"virginica"
+6.3	2.7	4.9	1.8	"virginica"
+6.7	3.3	5.7	2.1	"virginica"
+7.2	3.2	6	1.8	"virginica"
+6.2	2.8	4.8	1.8	"virginica"
+6.1	3	4.9	1.8	"virginica"
+6.4	2.8	5.6	2.1	"virginica"
+7.2	3	5.8	1.6	"virginica"
+7.4	2.8	6.1	1.9	"virginica"
+7.9	3.8	6.4	2	"virginica"
+6.4	2.8	5.6	2.2	"virginica"
+6.3	2.8	5.1	1.5	"virginica"
+6.1	2.6	5.6	1.4	"virginica"
+7.7	3	6.1	2.3	"virginica"
+6.3	3.4	5.6	2.4	"virginica"
+6.4	3.1	5.5	1.8	"virginica"
+6	3	4.8	1.8	"virginica"
+6.9	3.1	5.4	2.1	"virginica"
+6.7	3.1	5.6	2.4	"virginica"
+6.9	3.1	5.1	2.3	"virginica"
+5.8	2.7	5.1	1.9	"virginica"
+6.8	3.2	5.9	2.3	"virginica"
+6.7	3.3	5.7	2.5	"virginica"
+6.7	3	5.2	2.3	"virginica"
+6.3	2.5	5	1.9	"virginica"
+6.5	3	5.2	2	"virginica"
+6.2	3.4	5.4	2.3	"virginica"
+5.9	3	5.1	1.8	"virginica"