From eee731ff3a857d6dbfed1509a1aac5b9f1c4501a Mon Sep 17 00:00:00 2001 From: Max Date: Wed, 30 Nov 2022 13:40:51 -0500 Subject: [PATCH] Final Exercise 10 Answers --- Basketball_Data_Plot.pdf | Bin 0 -> 5051 bytes Exercise10_Answers.R | 68 +++++++++++++++++++++++++++++++++++++++ 2 files changed, 68 insertions(+) create mode 100644 Basketball_Data_Plot.pdf create mode 100644 Exercise10_Answers.R diff --git a/Basketball_Data_Plot.pdf b/Basketball_Data_Plot.pdf new file mode 100644 index 0000000000000000000000000000000000000000..1b6e559500e164e5c25d4eb9a995f90548fb2d13 GIT binary patch literal 5051 zcmZ`-c|6p6_g6xuD?3fd5VFqKj4>#(P1YnkSu(~9bB!6y$fWH1lE+d)vM)tamTXb7 zXJ1m52!+T})-3hRxVQV<=efV%_w}0P^ZuOAIp=%+cz@1$i(f|R$ibipka*B^&`eNo z(4d_c2nLadkeq%8sj7kiZ7(dEf+rDCXbKi0i8>3Hhr?ko1$mePLS7yz1p_u|+#$dhZy9g*83Zr2Mu}E}C3UvNF2upOP zX952!8wg;2-2)2&w9ynaf#d=KE~8zrWQYRIz!dVI14{omK)0h?dtr%`Kg|Jc5|Kh% zk|D|m#{p9;ndI$-q4`7nk3YJ>uX0?(5?v^+5Eu*whX6Ww0)_SlfDVCH926Eqa>mm0 zCR1oNa|cn=^Q}5BiRp4Y-?AFwJPx(O)z?0LL@?BQ=B$v&Uaa;=UIq-dbvXXRPj^^> z<%DBJ1U|B(%NK<;Z;P)%Ixly>7%L?O#FqC|Mijb|n}tca3RhRUR%Tb0cH1WXYvEP@ z5)f$t@85hbG{vq2gp$thiB96yCO5w(dCvapR+r-WErBnbY`*&6^9BEqNKCY`t2hU%ew(5+Lwks*~~l=Ri+sqAGy}}?L0TL zIV&rs_D)}R+Vq2Cqrr?iCbtpQn`Sw;qT`u)(IO*{w&$(IdAc6cemMD}Hy#~zql!}_ zk^q@(jQ-L7WW?53!sug}wbN|+`^IH$^u)j(Du=HJ-j)>*UY$`bZ4W$ zsv4T=l*|jHzcUq5FWb;Pfoc)AHMmr3gf0tWTT-4stA2O_AG_A%51JX~dVXU{b4n5g zchvyPQ(wK}=|PsE3Fjoj+T=7L0#)ytzm#$0u0rKr&+m!Ob(^WMr`2jPc{y%iUmIXltZyHkHg9J&-_WYYo2CTYJdwt| zf`a>BIV9tFh&id%F}Ucg7#z}%zq{EU!JWy`ZI+Nu`)9^ehzgltGeB^&_d92!qj1wA zY5s#g{j#d4nNN%2iG$Tq%o$=-@idV#k+i5f*As|Du5PZ5&I6BA5{X}(PEw;DMST=o z&Pf$r%(1DC!bLxh!A(Qcq>7+vL8J)`aCP5KsKRIMlHHiE<&E#BPrejvNP(9)`I$$K z9TQ-3bNs&Q2p!K?87HX=E>xHDPB(kxRNGBq^5T0Qz7(O8HdfboStV3a1CV z@#L!M&MrKO_T7nh^C2D!;MQNV2(HTx{RGCRY%g=_ZntYnw<*tzYDhOJPwW0L`Q8G4 zyJ<4GdMi28>tq`3anOJ5wOfU=q-;NeHX7+40whQ@VVMr!Lsn`z@+f z3h4@R3mLzck7DvHXxMaKXv$>w0gU`xQNORR4CM_?JfMDE*@)h!dRB)9dCX2PuZ7gq z?9VN}pZRo#T_LDIjXoi&s(=n00;4-QAYkAEm7;4#pkOY#KnFktkfB>FZ2IU zHXWkJvjz0EwYAV>tTO~jx3d3r3D8%+-cggzx3_%ZVJ(xBJ{&O%Lm_)$1idrD3cb1~20oM3E?S50ptl z!BM#6hrnFzgr}m>VTVkfE*=4+hCDrZ1d{cgOTd%Qudj69n-t#icgw8reebg3H(bjQ zzZb&v>Y_Dk;BVR1JX3Qmk+))899a(iw#vXrVEEusUarNrt#df_@XdFzgjDWr{`%VE zkng+FgX*!33_mk(*Vu@{7%r#8&VAb+u>oBuc`AK9o<;8&O-Lv7j?hY;!J@-yoMOofm&b>i$D8PR2UgFlZ zWQWjzWiU#3yJ^$PKb4K)NddNUWGBKM&&y!Hc<6H7enht;zz|*5;C{Htg0{mXy+3Ph{Ncj;MH6v zJzvuHt{g@{7%pfqE@%kMGjhK?^6VvNH3Rzx#>1MDkw-ioVIP8d;t!!9{5*k`Sto7> zmpGnz!0esHi3mY@oS+0@J|L7?ph2CEN5&7C${)`Nlv)LKX>f#wwR7;AMo=Ky?Sf@t z*6{)#8JV;>FALs2Dz2@icbHdWG0XIUU{Ux&Hg4W_UXpUMmVr&XD$B%`YlqjD<+MC& zLF1JtoCKzFM`PuqaiRQ;9jkCz%bCtMS)mr&Sl%fo!(0_^g|+s9rD^M+05BxhS@BXf&P zST5gxaDK>QNb+~k2B(pZTTXX>&pZP~_AK~*3{=M|>t3JGeEB@*y7CS$b4WHO78Z9R z;G&=eZ~5VJaJj%>oJttDH5Og))cVocVZp^{wid4^P6XI9&<&0oTsN4`#rcJto~C#_ zQ@(1adMQ$-+2X?$k24-t9^BR7=UfvUE3xb?Ypb1KvD-Q~+5L~I$7PC0a>ueh4%O3= zM$2U<_UR}aRvS_^#ke*iFVU`w!0K>oeN~jIv7mT^xQQN43@H^PCgLu#bmqS3d(nDG zQiqN+yO*lX#R)B;PBv*MXWridv(sm})f=DZb`MSB?qm)wXY%0oA z@9RS@hYr1{l4g@D`R2J4^UvV}6>y6Y9TjsG?d#=UG2fUz>GH_7L{4i@nM6zOO1em5 z%tMQev1T++yrU;6OC@VCL&14RR8b2rTI zJzmPbUsSKX8@icy+@j4$H>+HGF0Tg@4r)qD=y~A04lAH2dhdIS*KX8?)GGM4`kMHL z`7Zfxt+VdP?u+dU?bPp>F`s1?VP;}3VXk8P8ZO(!(_|mMA6|MZ_LfsD@`N{74Q{D$ zT)sz%sMz49h4fUi!3{Wib@O0e!;KW)yZes(hAdYygcZXC;1S(IT}-oe-4Swqe3$sN zVwhtDE^-Yfr8W_;aaRW9LgbFg)yZbsfUR3>-OCrMc3j;__lfUa{o2BvxLwU$2Qh2K zC8=_6pS5m|+I_Q|tSO$m*6T-fA+}YGVSENNeiwFn(b(|zM@UF+NPBiSdZ7O$tpDlo zSLT>j5XK#M-$(1*b(NB9XJ^-kM;dLu+Ev_S(t0TQv(cUUrN2 z`NZF2w8M;Yrp@k1!ism$XT^xoTL`#pCz9qP98f;3Dn#X$U zns4+)OmlxSTOvs4%1a+sfR94q^=Qr3VIXl@gZ z{uhC@jvc|tOr@grqMf2Es8p1Gj&Ck+E_cqo+^cQWw%cubm=Y(eR)^@pNbY9uHq1=! z%)RMC{vFxz8V}XR^V!N%JEAieuE#)Shpp2awzs)j#M8xfx%#7EQF2i$D%t7GJ?jI3 z`IUx+)r4i}GIs_GiG`H7@*0>k7ORoCb4JbJn$bjtYU*@`X~H-2mwe{OG75JJhw~dQ z9Wxrs+>}z2s8?gWn~>sZuE$xxx(lyVSc6BDca=w%=XIvvU9v-pgSZs2+9NS#buEaI z-l4!|RG9-jZ6?_)X-z`u?3P}JSB5;vv1a6(QRkU&erqorg03{$_uFRKK6&Oy$)9_@ zW6@WXU+inOSPH$O*3e4o4yp{T#JdGZRzPKen>A3Jy>WtNe_GDd4gW>k7~bd$ElS90 z!h^BMQOS48)%fLtA|qi#syM%4iJ^?aBx#n|uzjc7>dsZa(ZmYuldfz+uVt6z)bQfi zc$JW(6|@%+9y?W5PiDdBcEsI1clXQl%V;Z;s+cE+WrkP4b|d!K%axT2e%=Nfdbg~M zZj|7b3P#`7U9T(s^7Y-IWub-Dl`Uea<4U*hi=7_k-0*0>6hD>SQ%D`9&4BKm+8X`b zhZUcj{HOds2Sqaab;osg%caR-OFWA6yuUfVYV4e(1`NJ$B@~kitL~mU93d8QD&XGs z(ngbJ#EpMFiL3B)*|v9Qsm#seUa*@`d2?q#d?{}6)cKRtimJB!!kHVLD_g>YYL;ZX zPt+0CS5Z0KnU`iW)6d`WUikd^;~=Kq(03(0N{w6sJSVLZ`bO5~ZuZ{)y!A!>`ozZG z(_=mSaSqP*Uur*kJS4yL&zfP`6+X)>#C$G7FrpSXXTJ>2P`WuCy?bZSs=hR%j?ZIh zpnWf4YSH8^X+p1Bq`sr>`@H2&$y^ng*gI}R=J%`mm@!Zvy_>cr;E&jUYQF$cJHMcI zcGa;lYn~^Qfgs~y39|z-L8)# zJ};`(UEBRftF7`^8w&bUi?~3fjs18cO^l$ot^ZkB;fb0= zGX56;0#JAy4oedt=n8`^1fdAHgA1UTbqp~!eL z1b`Ar6lW|B0(c!HiJ^7=1OobRxT`nO1?}bSPC$E8AOOjQM8vw$qM;8wlj)ti{ollx zgI@nvBmRdPb1(@2X5LPe19659(ngF+Xm?slwCUiWE`QkQVF}l;6g&nE0)Ev6La*rG z#T%*@76+222`nJ_za9uuQBgq=f`j~p!D$i|{eckw!eB_+9Q5B94537u8~z7VRHTLc z9}KDV4}UNvdD;;4-*)nFn(FfpOywUKLP6ypF%U?_zvV*lLgNWoFPg#z0nG5eSlatS q0DU5kM4Qg&^#DvsBnpJCd>zz=OhJ254l09CQd9tmi(fF-0sR|`ox6Jg literal 0 HcmV?d00001 diff --git a/Exercise10_Answers.R b/Exercise10_Answers.R new file mode 100644 index 0000000..1e1e26b --- /dev/null +++ b/Exercise10_Answers.R @@ -0,0 +1,68 @@ +#Exercise10 Max Zupfer +#Problem1- Score Graph +#Set Working Directory +setwd("/Users/maxwellzupfer/Desktop/Exercise10") +#Load ggplot and cowplot +library(cowplot) +library(ggplot2) +#Load Data into R +BasketballData=read.table("UWvMSU_1-22-13.txt", header=TRUE) +#Set the Initial Team Scores to 0 +UW_Score=0 +MSU_Score=0 +#For Loop to fill out team scores as the game goes +#Index variable will be i, need to look at all the rows in BasketballData) +for (i in 1:nrow(BasketballData)){ + #Changing score for UW if $team is UW + if (BasketballData$team[i]=="UW"){ + BasketballData$UW_Score[i]=BasketballData$score[i]+UW_Score + #Adding the Score to the running UW Total + UW_Score=BasketballData$UW_Score[i] + #Keeping the MSU Score the same if UW scores + BasketballData$MSU_Score[i]=MSU_Score + } + #Changing score for MSU if $team is MSU + if(BasketballData$team[i]=="MSU"){ + BasketballData$MSU_Score[i]=BasketballData$score[i]+MSU_Score + #Adding the Score to the running MSU Total + MSU_Score=BasketballData$MSU_Score[i] + #Keeping the UW Score the Same if MSU Scores + BasketballData$UW_Score[i]=UW_Score + } +} +#Adding Data +BasketballData1=rbind(data.frame(time=0, team=NA, score=0, UW_Score=0, MSU_Score=0), BasketballData) +#Making the Plot of the Scores +#The Green line is for MSU +#The Red Line is for UW +ggplot()+geom_line(data=BasketballData1, aes(x=time, y=MSU_Score), color="green")+geom_line(data=BasketballData1, aes(x=time, y=UW_Score), color="red")+xlab("Time")+ylab("Team Scores") + + + +#Problem2- Guessing Number Game +#Set Working Directory +setwd("/Users/maxwellzupfer/Desktop/Exercise10") +#Pick a Random Number using Sample function +RandomNumber=sample(x=c(1:100), size=1) +#Loop with If statements +for (i in 1:11){ + answer=readline("Guess my number 1-100..."); + if (answer==RandomNumber){ + print("You Are Correct, You Win!") + break + } + if (answerRandomNumber){ + print("My Number is Lower") + } + if (i==11){ + print("You Are Out of Guesses, You Lose") + break + } +} + + + +