From f69023ff27bcc7be225e6eff40f4c0527202703f Mon Sep 17 00:00:00 2001 From: Bita-biti Date: Wed, 19 Jul 2023 17:27:37 -0400 Subject: [PATCH] ProgrammingAssignment2 --- .RData | Bin 0 -> 4019 bytes .Rhistory | 32 ++++++++++++++++++++++++++++++++ 2 files changed, 32 insertions(+) create mode 100644 .RData create mode 100644 .Rhistory diff --git a/.RData b/.RData new file mode 100644 index 0000000000000000000000000000000000000000..73543b0d3a9877127725e31ea4ac7da4329bf203 GIT binary patch literal 4019 zcmV;k4@~eMiwFP!000002JKo4JXC2LKZaqhd$B+2>^f~ASB564`-+V+|6~R_96fff-x!rfDjsd0K4S44}v{cZO^4%Cus94+^cUZD^0tx!|JSx*quW?s1#ex&u{33e6`* zm6uneLbbak(PD)!yAtkRym_@{gR#cj_;v(JX4d1?CEHe*n9p8yK{l^$^|1Sxs8ikE zy;^Z@xF?cG^14$y^>PDloix6gbLEXe*-P6)k%9@orn`?v&sX&m-fJ0_`p(x>zddlE zj^aR#xtUb>y^mJb*#iJ=y~?|qA0vjc&|)H^t94%a!3l%%Wt7?l=^DBCJ@mOcRWvV+ zLczkz2#bUw)ML%4H!AT5OWcv}{@dmB1uC6FGsfRyEV1a#!$TRU(Sf4x`n*=R>@1_1 z=id%8kSS?YyKwnLeo?K(#!j8CMpaASY74#OX5FSDKgZ_mg6kv0_-bjZYg?cFXcM`v z=g4i5hn`u#DqJdX*dQ2tI*sJrf23#a8S7)_MvC#_qQ3^Mzm7V5y;^cUq9prbk!fDQ zfJ`<;RpetSC1!KXJApOSta}u8LTx1V9utCWj3_?8}ip7gS$^lyf(O9JsiK%DF1YAN&4uJ zYtL#4Luc%=tB*&O0#N~PcC_u8qm&mge^$|$eRotX_LRus73a*+6H&*uIgdO#^7vJo zSG@bB*W{bPK^ts?x83Af;A~UX+_7TAw0Vn;)ms$e4>wpIcoREzRq?8_`dMRl!!m9E zcW13CDL?(F`1nARRl-O}@ms={J=vMZ=MC*4Xx>#4_!aNHX&3e;=5lp(#4TewYTYZq zw8#Z(mcKkGI;@G_q^Gd3R{<$#nPi1NY9bjbcP-97s^89UQFQY1Inl(t2*Uor8f-~h z=j$vll@aOFc=WN^=wtk3wRF>7~u#{TTcDGV9!NX?6A9 z3R}cVpV@Lvk+nxlG=zMQ_coTv0l* z?Y1~t;CQbKe4}f# z26n0~y882?bPMOFIt1g?=49H$Q$R7Zvw>>)0WlxA($QmPOOkZT%}C7|!Km8oxs-&S z%#nZI6X4|BlC2dZ_2{+hNBrs@%Np2tKDo+iwe2abIA2fNAO(|twmrvZL%CDR&x#U0 z$B(vj{c^q_&&Jlj=0W!CiK;EnF6)b*><=xkyXW8|<}o=EF39dc8bXS>0JUO$ixhwX*uJ@f%zhX0V*X7il!Z4MsFN+ZMeuC)z zO>sv6r6ZD>@_{jWTMtX0Z2o{(@YFTk)o{0V?$6^v!R7V_NwT`>xp%JnEH!VlA1-j~ ztn6E#^M2m5JWBENl+@=}$`%=@QF^?s`yV|#WhK}9z~g~3U>faUv+0KOC$l*T0n#3W z$O=Ux=gzf(J0tOq_O*&}4LO#od-0o237`jd#g}c2Tc~Ft)pDmqOwyo8{po`RUa(T# zwwhF;zHsl0KzCR1#P0N2m(SqZEJkbg;(Iz}bsa1AuWrO6*B&k?3$iU6^79>};=6Sb zX``olwJl0S>JP8$S&^AKzUFY`jR0k7U->pmk0)3F^~>TiuPkLJiGmj@PuAqy>`yzb9CdLLqM)oF|a>}oqF`}BCy=fCQ@2s_s%L_NfR%UGLbse}dZnbCZyY!}TlS|6B zjv395j?9y;6?4R;guS#&iE*);->z-ldhU1c`txxq*77u9ZOf!#qlI?2%FxFoqO_@> zQ_k)%hhqGj9Xo>SMt93S4ZYVPbMJ$5h}Z^9_^}c{c}jL8`uWM1$wtH~5vkZnW$}LN z-jairSn=e<-yoW&zj-2b*?@BfilAN`DsRdZ&bk~d92jG)6+(JdPk7eeTCLT7CCgNJH1N0l z8uN%e&4-v9*JnMyYPrv$PClyG|6|ZHm1n1wkSe#|g~9}b7aG+)onMiBV34LKAfigx={DZK%%F4L{c@XbjYmH?b(k>&exAMZn~)19gn|!c+=@LiA_QM<#JZu#NzLG^0pDbOEqP z^7IyA^!6tO5t&>R3i_RDo1vzWzTv6<{8KPoA6sA-H zbtSNloiVBeh{TkRpza9PCB7Dw*Lund6}B-Xi0HyEN-}?v5S=GV{`J9GW$FRIHqhgs zcL&T&8*H7rg&1)JnA+mA3fKut=QU+S5I&d)PEg`{H=5b?cP`v#_n;t;U(bQaIgq;0 zj8_#7DUv)AK4Vm25J4EUhJ#X=UH+c0h|&2t2Ip=EKq&ys;BIFY3}-o^YbR*NaR?N6 zn6-2eFOUM;#W~$S0nbXwaF_;D~TgqS@siaBNO$fI9Y9rv_ff z=Ji%tI>6ssnO92!G7C-;m{EfIvO@&?i9>LDit{=x7MvF+-AMp{Bi-@Namq@F$sgGW z5_EQ9>e6&}Vd^q;c46vrbavrO{*VMF7k3E>+Ct>+5#YS5&zwI7qI2>chI>xD+W-Xb zxs7s1n#PL>+|9r=#t&&%<1PkXlTD#X{y6+x5>=bbAit&_gA9+Maun^s8Gr+ z59;#3XUXU*Q8|=j>Cz(HR6=8PP z;j{dFm(H(GVoKKFHj&D^gYS!2bAW%{r%Qi?C%}``{`JHETR;5o$I*W?^8Z&x{vUBWE}3S&W97Uz6@tET Zfjsd3{P8ls=ZmbN{sWzUBIPS80057-3z+}_ literal 0 HcmV?d00001 diff --git a/.Rhistory b/.Rhistory new file mode 100644 index 00000000000..e5abdfa32ae --- /dev/null +++ b/.Rhistory @@ -0,0 +1,32 @@ +# Function to create a special matrix object that can cache its inverse +makeCacheMatrix <- function(mat = matrix()) { +inv <- NULL +set <- function(matrix) { +mat <<- matrix +inv <<- NULL +} +get <- function() mat +setInverse <- function(inverse) { +inv <<- inverse +} +getInverse <- function() inv +list(set = set, get = get, setInverse = setInverse, getInverse = getInverse) +} +# Function to compute the inverse of the matrix and cache the result +cacheSolve <- function(cacheMatrix) { +inv <- cacheMatrix$getInverse() +if (!is.null(inv)) { +message("Getting cached inverse") +return(inv) +} +mat <- cacheMatrix$get() +inv <- solve(mat) +cacheMatrix$setInverse(inv) +inv +} +# Create a sample matrix +A <- matrix(c(1, 2, 3, 4), nrow = 2) +# Create a cache-enabled matrix object +cachedMatrix <- makeCacheMatrix(A) +# Compute and cache the inverse +cacheSolve(cachedMatrix)