From f72050a436951a3a50392a9865b9c0f7c52d2355 Mon Sep 17 00:00:00 2001 From: noah Date: Thu, 10 Nov 2022 00:38:50 -0600 Subject: [PATCH] Finalizing loop warmup --- Schrick-Noah_CS-6643_Lab-8.R | 29 ++++++++++++++++++++++++++++- Schrick-Noah_CS-6643_Lab-8.doc | Bin 109056 -> 113152 bytes 2 files changed, 28 insertions(+), 1 deletion(-) diff --git a/Schrick-Noah_CS-6643_Lab-8.R b/Schrick-Noah_CS-6643_Lab-8.R index 81825cc..d49fc9c 100644 --- a/Schrick-Noah_CS-6643_Lab-8.R +++ b/Schrick-Noah_CS-6643_Lab-8.R @@ -47,5 +47,32 @@ h1n1.Bris.aa.sortedtable <-h1n1.Bris.aa.table[order(h1n1.Bris.aa.table)] names(h1n1.Bris.aa.sortedtable)<-aaa(names(h1n1.Bris.aa.sortedtable)) dotchart(h1n1.Bris.aa.sortedtable) paste(h1n1.Bris.aa.vec,collapse="",sep="") -# + + +#### Part B: Loop Recursion Warmup +calc.num.paths <- function(n,m){ + path_matrix <- matrix(1, nrow=m+1, ncol=n+1) + for (i in seq(2,m+1)){ + for (j in seq(2, n+1)){ + path_matrix[i,j] <- path_matrix[i-1,j] + path_matrix[i,j-1] + } + } + path_matrix[m+1,n+1] +} + +m <- 5 # row edges +n <- 5 # col edges +calc.num.paths(n,m) +factorial(n+m)/(factorial(n)*factorial(m)) + +m <- 5 # row edges +n <- 6 # col edges +calc.num.paths(n,m) +factorial(n+m)/(factorial(n)*factorial(m)) + +m <- 10 # row edges +n <- 10 # col edges +calc.num.paths(n,m) +factorial(n+m)/(factorial(n)*factorial(m)) + diff --git a/Schrick-Noah_CS-6643_Lab-8.doc b/Schrick-Noah_CS-6643_Lab-8.doc index f2d12366e03ec990d5426f7d86c97ed832e15dc7..548acc23520b85fa7f83e7d04409fcb65d22447b 100644 GIT binary patch delta 5022 zcmbuD4Nz3q701t8mdz?43kb4EUv5`ctr4hY@p;vN=_G74SCQ)PoQ74Ai z7mFL3jJRn*L@R(3Y{T@&!9PJ>y3j_HC|gB&M4Bc{5xZ^@*k{JkynlKJ<37yDsm&6 z@&g6(RR51a?IexJi*%;Lb`(jfk_yWlL{v>7?$NBI!d7ooP^8~01~Q24QR$fzu`RqD zS&f!$DMZ00qB%P5$9e^}w7Bj>{acCRz2rknjmq+7^0`B38S>s*v$9dwN0)sjDHE*o^UVJLS$v(^DQrC3MDa7Z|nXj zhT!wd0h;W+L4}*VDE7Vws zyZ5k%!inG=nx}|Tp?a<+JybaLIniC=M8(+FS&>9b(K{C%qtU?<9D%L3im#0`bfYoo zrUu2fumV&jpj#Na#iFJ$dN@k#OWq?B-$T(-?RuD;Gug32B1(ruac#O>l-iP})?2*2xs698gSAvHXD^{wF#8&mE9FvI zC(J1dvZF*-NvLBvbTy%FHTtnOJo4p!#;b-fQ8D_frdtX<)wQZKtc0{u&s=QwS76#o zxj9wx8_(y{Zt7#|`G@?tNu)yJT-n~BJk=bIFihY*3o)^36fT*idAMZpm9l-MalTTH zuQVQ|Fe;QrXVa=@R(~Z2I``j^1)8BmUjog(u@+w`+gBRrE9Lk~mRv~=qAPO2GAQE!}WA@21K$w`Z+9=}6 zl7zL)q?p9wvY}5Ncq4lUp5O1*t2&bB&cW;OFI&w*yl8Ic)50rd17U@pfR{VNf$R;q zWk@V#2(4;Q&&tPos>z6hxp&VJ4s3C;e8|(OG7#B{s!y}Q&6vr|GR3wE?s)rPHs{>Qng1=4Vmahg8CdGNqNw;QeUl=ly~s5b7~hliMGG0!nc(TNsEa)gc+ z>Xm$(4m0amQ=K^NFvs*#c>+Hp?*iL5)TDkz7u#v~)^=*A6||dg^3qOo=U$|Xyd3oq zopn!RiiaB}#ptNW785v4>J)qzPDgAcH+Ytf<$0=OFs{Kl5!VyWv|u?Js*Vh(<^=Kl)t}E?NQwOv94lrWAV^P2;rTTCYGCvXJlEY6Gt0| zg$xL)U~A3QD}z}dM=C4LuM>yBRd5~L2bI&Yu;;NbunD{lwt%hR7a#@;i3M>W8{_~h zXabwSd2j)w%)o;%SPRyH4)7;%5?r6*Ao>=C`#?KWeW%gmJ`j|G2B3WblK?9o_a}qr zz;s{({Q5-S+@NpHoZ*{1kJ3?myr){e@$p`q^zj>bLgZsO?>ieXzE@Z*vT3B_Eisxw6WB;!2|cwyEnd_9u(NRP%mC+Octg_qa%}b-U^z*EpQv$0de_6@gN1v z26Mm?Z~H~~69Czy=)xaYt^&;oXWRxs!#Yyn6G>p%@?1`omaVDKWW z0L%m*f{(xv@X4ZL><0=bLBe9}A4mczfR=#n8<#)5OqV<8aKNVn2~B=Q;oT0xm0Q)a zr(*|Q#%OtngPZe%X)wY~)NC9repMGE_G~np@t(8fyY6|0ms3{fyO}=7+@S+ z99SGw98Vle-Z%=3A=Pcgz+Lf!9#FvXohWMgR{5*^eB6zouy_djxYwuI zpV^Puf7x%@UD-|9J=rbU9oY@p{n+i;-Pq08#n`jhqu85xV|i2YC&uH7xQbeW6c{5G z#+U;g^vaMu@62o0C{`u?Eav_UoCD{<-@paHzxtOz51wcKjywBX&znVJPq(36tK8qM Uv>kr1PuZX-&4+70P&R4)3oySpKmY&$ delta 2364 zcmbW3dr;I>6vxl~@nc)4lt-uXBI*oO|y1 z-QPNH>KyI5^}|K$fhPj}hBZbJsYJ^N=^hg4iQYC6jfo`MI*O>$PPAkKQPE_gvT3|e z2^}J*C>EmMtwcvL?X97%sU2g9ViJg&lCa)XZF;jZgcYMjX^i3!W0qLP4&zYe4)I>& zqsnc;t;PVcgRdG#$Lxpt8rADMmL>)EkQdPn8gP9&ngswxY2`|-EYwPV-M?^j-v>SZ z6QqVfnLot0>^P7Y|=`bf4o zCz!5@fzqKeDSob+8l#-?0SO*rB(DoxG9vT&syQ}WVuH}5r#*?<;lh5Dj=oAO*US3h z(RAnNpwB&cf5`NWq1^@>ksVVUx9jzhEW*O{hP4aM@y+vs2dfsghjl18rBG|Qx5K3Y zb7295q2_z{d?^~;en7TkPoJ6Vilt| z{UbXMU!??rx$cT1B<8 z(uyWpxNs)Tq|{Vxc@ys}Hz^d!AC+1LW+Vkb4|e8SH!?0MfUlRB`BaJBUnQ3mR=A|@ zZR~!&4#)*X zpdEY(E`v^R1zZJPAa4TEA|NlhTfhGN{ROTn3!J)*s*u;?w@sEZyRIH=))JRwq7+rf4+852z*AK-05J~5Mwsx?m$4EVC-dsWb zJzkT}ouU_HllHZNU%-My>$k?3wRG^XJGN?C#T8;xv`2abai;0*AYMC1oTz|~iNP*9)aTb#P1RZ# zjqP28@=zC#;S}D^7WP|Z;Z6?X9q$D2jB@jeadPcqumgBa!94^bz;rMJ90o^06KDpf z!Fez&jc7Qqff(TTGU5WHfiqw!zJKx?_!Z~?CDY{h5T3p916^pL7P=vS1~eLK8$N76 z-GUpiNi%Zy2AgJJEWaRvYc|Cg`pX!X@g3uQdRK!;l_4%eTZXg@Wf{iq5dMGRz~eTj zaC}9K&q*0??$p40HwE&0o4tcSaSzG*NZ-!KymfP+Pi@~JC%!hpTwXDTFIHGNY>Pe9 zBm>SJY_8yP#g&XF8AmdHWZcMjk#Qp9L&k-S2kZSKl1C$tL>`Ac2I+q3dg