From 169f9e863c82a0a9e31c81363d84bc47d684316b Mon Sep 17 00:00:00 2001 From: Tara Neufell <7907blueyes@taras-air.dhcp.nd.edu> Date: Sat, 29 Oct 2022 17:08:06 -0400 Subject: [PATCH] Tara Neufell Exercise 07 Submission --- .RData | Bin 0 -> 6081 bytes .Rhistory | 57 ++++++++++++++++ exercise07solution.R | 22 +++++++ iris.txt | 151 +++++++++++++++++++++++++++++++++++++++++++ 4 files changed, 230 insertions(+) create mode 100644 .RData create mode 100644 .Rhistory create mode 100644 exercise07solution.R create mode 100644 iris.txt diff --git a/.RData b/.RData new file mode 100644 index 0000000000000000000000000000000000000000..91c623a166a24059336cc1e402bbbc1d7a749766 GIT binary patch literal 6081 zcmV;y7e448iwFP!000001MNKtT#V`eZ_RXvbRi+-2sP$xD$$fsdqtlj@_-p?oB=X*Tg z>p9U@<5I*F|wsE~5 z>Uvu{A1lA_>uRq5qW9^t4wHpRqvOPJz_b8noKhMU zFOR|5u>`A?zcOBBIaaESiId^#Fsugc9dS_#{9je88xk3bAy`aR>uJl{ax=^N^&?G- zH5+59WzpB5fdYkKq zXT=KDmEl>*tGhfO7pbn}o>k#>mk6uJMLP9zB3**csFxQR5_}_qZ%pt_2)-#{&y$Z{jgt}M6@(E)`zV4Xo3#EYao4v*5saiQouF0ITb zZRqk`XdZEC9)WUQzAKnvld2h9%D9kJtjiHJC^5OTWN^8ZVJlp7jJY5)f3SCQ@P+uxqz!>(=a~GAw4x;@$7RbB?!h-Gr*={ zdM>y%N>Jqq=_QWw-KZFNJQk0R;@#1W77{+eu+`GRaiyVr^bSB5G{4zuQK(@&Hmw?y*LYc9HQ;efefHJmQbW^~EK%Lkjm4&hx{w^|s&PaP zN_?!76De&{q)k_<`H`H2aNo&EfJ4q5TxuRJM69{^Xm+y0+lcFAhl{ZBGTt*t1+Fv&Y>Lk1kP#c> z(F^ff9Fl9Rn&of`K8rZn;p?QJj?1t6mr4mfil{gRv^c3o;!_4`iz#iT##2Zt6!55q za&e<=5@>53kG4GX=rVlThJn_h@$g;AGKciQgi{w9o;q4D=aQnvcx-Ms+eNL9QTgK6 z<$_JEsMIRTaG{S0Qb0g;4*^}4OBIE*tWlkmmLD#yDY;x)nYKye3TQ6VHbh)1KgM_t zRgLRP8>N&6Gj4qsstb`e$aJ|>tJ3Zw_Ut(Fx^kBizahl@u% z;2k@`Ykh0%fyR4JL4$`8Z>-VivyeuK@7>w=)RaxmdgE#|q^>C{-dEpj{Nb0Tr&&#X zR;D4Kf0FvzXKf!vQ8Uzk4CX)GcuncFABy_+{x)~6`S=6k-%NeiR{5_{8|^B{vm`Cl zLM{B~Af|q^*4VpJ|6YvyAHjJ4T8#ezFu@1JG`&C9R2+TZuBkZse%{B%(f0$Jilg~` z-CK|UCXCxmjQ3tJ{zt_G|0+!V#Y{bTAy>7y7y|JVWlX$+Kp3*(vr$UGT_n8R1%|_pTjWqUaG5T?DhP*UZ|vc;c24P4%NR8=()lBNU%xgFwb3^RM+MPt^Xqd z%LsVQx~@V4IncA@^SVn@pJ*VT^_KFdro?=9=T}$Hi}ikb=GVX9Nb)u6(e}dk*b7b3 zsZlR3CQdBJ8umNpM_3F0XOHiQpL5WD*yv71=SFPkd+i9j#x&!UyIpxj zNpQ7Yly~Iru^TTReUe)^H86CsPubraw(OjpnTI70k@CII*%lRyR<>XB^ua)@gzhD- z$$k}6!?LFs8E@`<-Seoqg~fT3DcqF4a*4R#o?DfncUOdR6x~l3XD&Xs+{*R%$+g8{ z`wMsb-1O+RgTMJ)tKDid^GdGG2^IIcc5s+vWj#@;#RgYJLCn z;)KfvmDA?zX}y{0DXQ&Z(9t(Yc*i7ib^FkB!kz~v4)&EuM6Dh#Fc~;b&RjOw&*k{1x3`()B(50t?AVdaZu$rJd-)u@cdF;a6*Ko+I&WXJ zDpA;DhunE-?+XLEu5KBLB}SaN-aaL!deQJnPfTa8og3UilD0cn=kL2wieT#pEj^0z z5{Jr9m_*MobDwc(jmJXERWn@Ltx$9UcqV^^)dc%W;WV;e6`A0^)IntkY0 zd&aTzi6^fnA1Uu^ShfD?1x_q?q9kd!ggf8i{_G^HwueoI{kHmG)C9}b4?FDgUg)8> zu)6h?4VCHPk|17raB&L@D;w_C4#i_b)=m$odC<*o-V?LLg45R|^EW>Bk$1i}>tSne zr>-SB{7Va-8*fX`dGJHK`x7U4uWh+tuFJBBu+S4zf~}Yo*Hm{#D?pmu+FZP{T*{l zt|pBW`S+e;m-{R_Fu2U|#ut1n=i;}&Dp&R1k-Db%M$MBOxBI7dyBrYe?0l>5+Fu9% zyg5cV?)#J%%j0upFE@7ocE#;G_Z^+K*`Cd-8ZvCQM+Ac$s9{JSa3Nf z-(Gn4+0nezp~p*46efmzCG}YEQEh8u{@}va7M>ZqKFQc*$8w50Gq?X1r?0~|rO2{> z8|C`2cK)ru95;N~>)c(7<<{-*zZgE%H9v2Rd1=>P$%TEU zS{nWM#LXyD;D1C=rO(Wwxy(t&;HKiN=lPcnA1j8 zq!!=%{M&VVlzxsOMx9NaBj*(M{(-~2yX4v45YZ!kj6=qeDuwQ@lJmZ4rNdJ0&vO_N zI6mpt;#PqMc0RYy6>VL2q;%Z2Klba!r8};_KXprR<)*^NZeEZ6UY)|;HF@OskqbNj z(soP1D0z5#n)B5^r%n6$ie*(n2k$|PPGIq`{w&-P;^{xWb*8=FE1$txBhQ#j1+HyMvO;4)0~ZIKb;x9Cq5sDctw`R7T?Uv3ArLJGkq+dUs`;4 zW@!3j_w1?#?!JFnZJZXF^8+_IP+#%%Ou>K|{KMxhGCil5*Z8p&EuR)%igyVto}BGH zW6#>PX>D1Bi8e;XX}1`mx+itZ26C{XEaT4A!}lG1v~@{F^1$FHkK0Rn;hylz zZ~iBjSjycFu1Noi-6f!h)t%D843DDNj`Fn*48hEv9Ye~Bt;XFCa&z{u?c$-F^NmPx z^;A%oor~nILEk;KF`4R7{8wk8$11Op>6yb#W_B{G*xO2(>yahYOY`4x%Raqwtl`U3 z`l&NEEVJEsqI7YGHnQX^al0*_op|UdJYC|>e7>ak7&cEHUps4ii)(Yum+fd#nz^O6 z=!f!wXWnQb%?2FwGb_q`?a7~h&y}0JSXWAKu-0G9ZCF%1XCU_hFsfXpBz2Q-AoaxVZ ziC9-K_rl=iFE*Nvwhy@Eyy>%m?@x_M&MmVG-2B_*vYch27X??p@V|3$ypwXoia4L} zuNNmgatui-m8KrcEC_LaW^^sY?Oyi5)3!yQFPdE4HC}I9@1TOq%YKri?(m;AcG9ns z31+(t(~^?T<`$og9j(Y=^j$2Sw<$X+eDLmhXD9A@b^H3Q^pYF=lKJLe_vw4vctDS> zhl|!!?darfIXvu#uGzoz>ut97>#~U2F^6`EjbeY_S8>L-|G;f`&W%ofsXIe9R>}KQ zST)t@QCgP!x^GrKyu9o0#MQRXTRwGkymWQjn$Ok+F8FzOt1+UOkxx2Ce(~^L!fcBu zON*-)9me)q{_KvoPW$xyeCfr-r#pL|x@Ky5Yw|_;nteC>B@ODn-gNdQlM+Eiw^5zu z?Rb@-Twgt+%jM+jSx-{3;*vIdS6$U%@7DQiRorQk|dpoZ<^Wt;nkw8Qs4+^To-V;af@$ zhouO+Etyr)X-`$V^+C~##FMg4NoJW9=p1ypap+plL5KZaYP=KMn%>-8`KXtzG-8@h z)u=MhPx>Uxix|4*DQqW1}}&aNCdFXOU#lZervL-5(8m z+&I6rMZjc-lL_fv9^5-ra(>A5?rF8siIZR6`ze5TBG7-8(M_FC^B;Pxp5>U6*gqw8 z!i@YL!=G9iaXTxWCS~oNeR64!%q~4wVz%GPQ+)1CNnH|{mwBwyPJ@Suf9weBU|U&r z{u}GAmQRm5mSZiFx#KQ5MD>zA^K-sCep1Hr^Rl7nMp_mf9`hgju}6QBR1$}8g8$hc z;Fxhy3NDc;10oJ~V>fi#vbOxz<@!F%e&;@{{m}NE{J`pG9X9sg|KQRLqs>d&j}AdX z`_ZBLM~CViMf-hJoo4O#QB;?N1Bjp#XutB%e&wP4%HwrJ?N=V}@hcBxW2}WA2O{_R z2C(q|qc8e2^3woTw^@Jlj|vSBl#_%-!Q*NXt6md&;wO5NDqQ5y2NfF0l(N|Is;)=;Mx?qIBhKd~4o9*e4ofm84pB0PLz9SB zvjRRsheMX2KFC=RhcE$zLz&tT(3-Ggg&fiZbih$QX&?M1^daXA!(mS(gt$PS)JxE< ziFyzR=t1cX4wWMK=14wBKTtoBIIIx=Vf3^k^t2}+_+bNn5q`IWJQH#@>W5vCdfO0u z_-&yr;n$*q5T4FSBM+@CHfsXZ^7Yku(?m$0!=pEo_TtG(;y+aSvLl4i> zWCsrAL+e2th6oOF5SKARNBsr;`Ur%245U5ui24|ke>g_ze)vH<}ONgC9&J4kjXx>P7Q_#$)`3dT9S-W*^?s3j^l(m)Lk{UA?EoLe%Mp4FQ4j0^ME%pm*Axf%iTa1; z2XGXE9q~un3v6vdN7_~9Ra;&h#k;p0rNfL zALv65I|X@kUy9D_Fn@y`OEgZzZ_rP!I|QGM1EE8H$UGnr{3h2|LLT-H;1BFKtpO+M z*&zO+`!v|6koOS;9rlOl{v73_`xbKlNYKgsHiDD;NoX%Tx-!?u?{$3~WH{}h5=zNCGk0}0}s8^2AK~FiN2XNq{@~9l(u)@N#3#bov0Y~$L`U?>JA#hm#Vf}%_uOScQz6a4NUZKDDpvD<^$L66 H{d52T!Qn_A literal 0 HcmV?d00001 diff --git a/.Rhistory b/.Rhistory new file mode 100644 index 0000000..a570e24 --- /dev/null +++ b/.Rhistory @@ -0,0 +1,57 @@ +a <- 1 +a +?getwd +?mean +install.packages("swirl") +library(swirl) +x <- "dataset" +typeof(x) +attributes(x) +y <- 1:10 +y +typeof(y) +length(y) +z <- as.numeric(y) +z +typeof(z) +vector() +vector("character", length = 5) +character(5) +numeric(5) +logical(5) +x <- c(1, 2, 3) +x +x1 <- c(1L, 2L, 3L) +y <- c(TRUE, TRUE, TRUE, FALSE) +z <- c("Sarah", "Tracey", "Jon") +matrix(data = 1:4, nrow = 2, ncol = 2) +matrix(data = 1:4, nrow = 2, ncol = 2, byrow = FALSE) +matrix(data = 1:4, nrow = 2, ncol = 2, byrow = TRUE) +c(1:8) +x = c(1:8) +x = c(x, 12, 14, 16) +x +y = data.frame(name = c("Tara", "Therese"), favcolor = c("khaki", "purple"), favnumber = c(13, 13)) +y +list =list(x,y) +list +dim(x) +str(x) +str(y) +str(llist) +str(list) +setwd("/home/7907blueyes/Desktop/Biocomputing/R/Exercise07") +setwd("/Users/7907blueyes/Desktop/Biocomputing/R/Exercise07") +iris_data <- read.csv("iris.csv") +View(iris.csv) +read.csv("iris.csv") +iris_data <- read.csv("iris.csv") +view(iris_data) +iris_data <- read.csv("iris.csv") +View(iris_data) +vector <- 1:8 +vector <- c(1, 2, 3, 4 ,5, 6, 7, 8) +vector <- c(vector, 12, 14, 16) +info <- data.frame(names= "tara", "therese") +mylist <- list(vector,info) +mylist[[2]] diff --git a/exercise07solution.R b/exercise07solution.R new file mode 100644 index 0000000..eef9a90 --- /dev/null +++ b/exercise07solution.R @@ -0,0 +1,22 @@ +# Tara Neufell Exercise 07 solution + +# Question 1 +# read iris.csv +setwd("/Users/7907blueyes/Desktop/Biocomputing/R/Exercise07") +iris_data <- read.csv("iris.csv") +# convert iris.csv into a tab-delimited iris.txt file +write.table(iris_data, "iris.txt", row.names = FALSE, sep = "\t") + +# Question 2 +# first vector +vector1 <- seq(100, 1000, by = 100) +# dataframe with football score +dataframe = data.frame("team name" = c("Notre Dame", "Syracuse"), "final score" = c(41, 24)) +# number +number <- 999 +# matrix +matrix <- matrix(nrow = 10, ncol = 5, data = 1:50) +# vector of letters +vector2 <- c("a", "b", "c") +# save all components in a list +finallist <- list(vector1, dataframe, number, matrix, vector2) \ No newline at end of file diff --git a/iris.txt b/iris.txt new file mode 100644 index 0000000..d911aeb --- /dev/null +++ b/iris.txt @@ -0,0 +1,151 @@ +"Sepal.Length" "Sepal.Width" "Petal.Length" "Petal.Width" "Species" +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"