4Misc_Starth4Platformh@VersionCheck}@xThis experiment requires Igor Pro 8.00 or later because it uses long names. Number of long symbolic path names used: 1 PICT_0 dL-z)y T PNG  IHDR-L^vtEXtSoftwareIgor Pro&A IDATx{H_/2eYdH ~Zf%fCʢe=% HDA(=%j-CJ\, #c84ovwvgvvg=f{wws=ܻpAh ;@ !Ah tHC:$! B{H=C!Ah1 1Ƙ1K+..V(yi\\ u]^z4(ϓq\MM VVV^!EԩSA5ÇSLq* %K<ӜM>c^uN[r%,^i Fm ͡N|)))'OV3&&Fg0Ǐ477c|"""޽{.64a Ϸ"r6ko>!!^E}2_|$1սdn">>PT髞>}ʢhUZZ/9s[`_{nGUUUiidb:u ?|Lm0݊,6o 566rs^xQA8Uq B6_| VߴiSQQp{``7oȸ8<&&b\ٳ&<(>d˫rOO.>ܿccg<Ж,jjj.]jVeeeIIɋ/dU Ū<OhYǏnC$B"qvd2 ѥ^WWwM,A$B:t(DEE EhivɮSTT4qD4"4LrEÇa֕aCCA/qM[bNLҥK޼B3gZWZǏtׯWÈ# x}Et%-[\Gm6(vsj y|y֭Tgee9cX9g]{$˗/ m6k׮l𭶶69\ @U63X|hk6FBCCE:{$$$ppBk%~qF婫իWm۶={nڵҳdaIII[NNIOOXgWXll+m2ds,V|ݻw7n܀pK"ܿў_%ϟf$j3e6i+!+ DYC„!_~̘1Cd6aÆM4 g^?x`cxx8q|4/BXVV o߾-))}BUUUqqq'ܷo߼y0]t;uV BCܵIuµ06u8R\b~>!B ^Ǿ}!^G}}~$^ǃd +H=CPzTпpl'O(7vyH۷` >Pc:8DDDv7&'>>  upgo# `00T!xJW B{.%! B{H=C!Ah tHC:$! B{H=CО. o:rIENDB` #PICT_1#dQbC) z#PNG  IHDRQ ^; iCCPICC ProfileHXSY{/H % FH %ƄbCE"MAX EdPQG **%~yN=ݛ<X)ʒD2?`XJŬ0w؍zrf,ֿ_EǗr"PNI(@5W,ُڍd @qq8c0>ё~(k@p8T(&MEPQ"wpx(yEc,G"/qR3YIUZƅ/38ߒ!a*E DG:gw*X<;|qqȂc&+Kd?T17cv$ي8YIK&Y(R+Eǚdd*,=Faي9IΞdizT蔏.E*狂|*֞)zl,Atb휩"TLi6?`'F/UgD(A 4;J17 =Ss#{ d@0@ p0Q/;oxD*b[gE\ ;;đxw.Bt”MwC#!USdsM@9\L=aN (u 16h}.p  $` Xր|P U 8Fpupt@K0>Aڐd YC0(JTHɠ:*ʠ}P t :]:{P/4La= 3a GTx1> 7p,_C@1Dl&⇄#H "AV!H1R!Hr#a`l0`L YYل)4`.bncz1X*VkuDzTl>[=c?p8: %pqpq\'7xO|8KO2@$$Db!Y-3QhJt'ye-f b?qJ2'yIi5R!=L6"琅\r ( FQQd͔={*jF&R5 OJ4%[%OiRR-DeSeb7_UTT8*TUN TUU3U7R\ fSSRGCh4?v֯S7WgQPPp҈XQqFCNGft6=~MknԬӼ95MGUUեEMQFJg=:t^MS1;`ڱiua]+HUCzzAzbR z>i; ; `h0X F "cP0Pfϰp(hQ#c18xq񠉁,&&MLS.6a3s8 ff͵9--*-X,閻-oZVVrְzutt{l(6,lZ^[mZF3Lf$6mw;g vC7ۿsr:;q::vlr|dwtיh}mR$gdž?`~бqckvŅ_7q7]ǒG7leVVmmacG;ZTwil$Ԥtk2AYWoy}nƊݼݷ۫p?Ҭ W]t?TTV; : ?ybkM!C[jZYyo?TgS^_x}K/Bg;az$dA԰aQ(oJh<r٣䯶8mxƙ-gIgΎ97"nyu>|_/ܹ8bǥKW.^j;wWO]c^krݹoοphzΙgoy:;;׻fwuvt#˻^ƽ<}}XHQcǕ[^/wmA?=>-~f7_}RrUVx}ϛ6~Ӈ֡3? |t3sۗ/F|-f{b3 ))CjNM|O 489 81 0-[IDATx흿$KEXecYXcQX\E1XcQXcQ/,>>˹Uϙ骙onOwWUS[WWW윌0FOsY #`0F`Iچ`0FQLҍ*b#`0I0F4IQX,#`0&iۀ0FF0I7e0F$m0F#(&Fc0FmF#`E$ݨb,0Fm#`@U2F#` #`htXF#`LҶY|׻nݺ53#`Z@7ݽ{wD$=o ~mOo}駺0F{ݽ{v}Ν;iٟi -@Яǻ?peF5O;?stkk;ZYѠ=݋/'ov /G #`. @K/&nN%m Ĕ믛R1F`%O>~vj>|quw}o/|.Mr;`jiU>3^?[fW_y]ӼR|sUrnsّ6wThŜXɬx믿Pb{L#>M+鼅I-X#`E*>Fb-UuX{ӺD r-? @@c u~j5r&/y} IKa#Mc3-N@$݇,e5/9} }+k\r\WrLmezŭ,Nj/$ꟚwJ}-钤ep@+|gv$￿_Թ"0Ul"/MW;Dl⓹%⃤!P6i)~7v|fwٿIo߾]$%Y#i&SU5ח3ٙ);'lY5i ! iK}`Ko"@[oݼX8éL[{գ E\Hbqa$ aE-ا{lbWɇA7\?K]zB[[Dh؞6]W~Kq"񫯾Ƕ&埓Wez:vE3PFY5zpz*prOąs:9@oqIC㵦L*X#AS%U0?Fm y&u %lyΫH!8e|3Trɫ2"i*C˝A/HGra3ΘMt8Ipvz,mC= #\xsJ(9S<Ȫ+iߵ o$|<.I]Kq[x1huɛ˶~I ^r{v;0eH9 @q>Q1Imh>J:ҵi꾎|C3/@o{%~RdȠ4;JZ% lHuqlAe $Srl,7Y/cQy.yLG=CirMT{8HrN9 DGT BFɎpCvAy@Su3aC蟾q@X zXSd!nl@?=SF{*c*cԍ P&MչT*z݃ ۔>0'oݻwmFvocg5ev'=QC3:%Er<,bHxB=ڗ?kf?mk.8IǑEY0ͳ>p b)]Ku*+dC_&56k!Mu6)\9'h'QAsN埈〕`k }\#򡫨SA)E3.A;}N_rėX7Ā+FI$FOWHDкÔP`LD y d)PzH"4dۘ`" _"AsMl!K'H?5:%|^ (r)ڎyodI7Hcr=+:f0,J~+,]GﲭxP$gL%$su~ 6c%9ycl )Կ#iDqJDH(pq-htT>tp @&XȊs#"|T%q$dI»D0ҩ)=Kv}"xL6*lD9cn/3xO%$u2(aULKs,KmN^ڍ\=1qf'C-EBhHD"5Br( GH}Nߨ3?9|5s"oFjGyKyu'IۙJД#zdRe3I)) ) uDGNiCRl0dj ąؑgxn+W{=\d\$l7{&S I˱HU$M'A`Z( R})\*:6up#$pT:j6+3z/8 krrC$% JOӖܞgQP""+^-SPhlJ3C/ZF8C$=KuF[dM{Ɯ i9[@r>x,bm!)(׹ xgM2'rQg*mQ|c`N)B]SoIJet 9>neCs^l~@#9"SŌ:o|֩5i`T}הWZ.B'*ZL"·ݿlfAy"Xߥ D2kS^]kqkLqift:ckwC4TM&5Q9f I>69Q \jKX&ӏM` >0¹KQ49#ZmS=KtX3C,o:"\_Lj24\8FʣWmaH5I]k0k`ϝ7v7 Y^Ou ICY6fF HmQЙ1Bls1~"piȎe03fy$ym龰 hйY"`Ir:>Ihoҹ41s ҀiQwT v'So?훓7lż I+9rVzB?b F@y-N9 ySD70Ԡf\C$Lyעl/8%ɳD HX'Je%gm E2؍Rt#:7A6pߩޜӷ@P'ƉI~)"Z!9zwzW2ߠ4'oK]^bSf`:ΚΉC16љ%?(PNskpyhԯ:"NGCE>QFy`R "| rvɗ5:ځl 8~9@DlۚrF<)L5]\U"fdD^0`>=%p`^(_4SRK~kw>ϔ݂Uo ACFmWe8ްRW< Stڬdt=G瑗ɐ>z?tOx(3 5TKy tH@ߙVo߾T9fcڐoajoQ HudR뛇x1 kQ|朼\?w7qOqSOgJ=KG:AoA=RAg !*[A/Ic I/i25_oHZšhl @CjcS~3F)}nN)n%O7kҭ֊LќNZ'R S8ҥP+Hgq6Ԋ> ^a)E SDq$4?}PM֫Ecs>\c 7 U!dy4'X]w$ݚF,OeLvj#wyr(p)-C3bBA>*nT yT&z&ia,Uh,̱$As sۑtZ#\ׂR6tޅ sV>(dTkj1mKeU{5״:A$qz錑`6ekdڪIz+ܮ<"2 [I=-Zs;ɓgsvs]SIi[ij>6'o.˹{є Za ZW~k}@1&QqL,;J%geuulQt~#F9yO!1a>#06%!Vua'1@=qIFyED dĹ6}z<}zD#` Xzf82eȗe!YcJɇ@X{@ އ%Gm`C~}eo1}qlqK]p-gQ\#hy;)˧F#`ZA$݊&,0FI:ӛhwQ0@]Km4IeџӅ[ $3B@Z Rt _#NPM6 #`?>Rj Ё 3kt|fYD#`.'4y M#4Ҩ<|o@N@Z@0g@s@@@@@`@ @`@@P@@@@P@@@ @)@=@0G@L@PQ@ [@e@@r@p|@`@0@@@ @@@@p@ @@@p@ @ @#@P-@P9@0J@W@d@u@ @@@@@@@@0@@0@:@N@b@t@@@@ж@@@@0@ @@&@A@H@H@Pl@ @Е@@@P@0@@ @ (@@@`N@`O@@`@@@@@@@@0@"@4@N@i@0@p@@@@@P@5@Z@q@@@@pA0A*A:AxGA`WA(dA{ApA@A(AAAAAA8+AEA^ArAAA8AAA;A_AAhAA`AA3A 2_ g!:ۆ:Massachusetts_DIF_Norm@???#KAdat Gn?@#?M|r?-?B eE?mu ?鲫A?9'?N+\??<2O ?jx!?5]+"?r:5#?RX%?˅Lg8&?㧸h'?~[]p(?\bg)?O*?x+?ݪ-?吚 .?`/?s/?G:`0?t0?ӢJ1?0z=]r1?te/1??r1?) L12?# ;]2?GO|~2?L"@2?ZP2?JO2?4Dm2?CF^}2?IZ2?9sy.2?-Bg1?lX<1?=,u1?HB(1?Rg0?>އ}0?OA'!0?oG&/?瓻.?,C-?E-?" I,?5r+?O*?^b)?f(?;['?ܵ'?ZP<&?@^HX%?a+Nt$?Hփ?NWb?p R?hUS?QQ?bb?_Yv ?Z75?6o?Lj?_5?5-" ?Qk ?d ?'A ?(Ma?J'/? x?:s2? u?(?rPM>X>">k>\Eb>C>!aOW\L>J[z>!>OR?>~>Vl2}>~D>pYlu#>.>Fp$>[z C>bms>L<>ȁC>+Od>%? >'85I>5愌>][>>\> Ȭ,=>>o>o$b@_>z >o>=>a1]y> BxE>xv?#\3n?ߚ9?6?p|?D6O?L.=_Y@vY@C@F@[X7@Q@@.cB@հ@:Bz@W!d@hIȒK@3.@Ol@.t@+_@U@6~X.@$"B@ҺL@^rեQ@vӘVC@̻U@$20'\@%=`@L@AM@革^ߗ@Gϓ@If[$@Y7f@ic((@"445@\-g@hP@ @If@ꅎS@@xýd@ү8@j_@4@@w7F@yV%@'jJz@$@厼4@㙱K@mpa@N॔u@,`@|v1@@O@k@F@dNq@1@j>@Q@NL2i @{;@@ @̞Kr!@ &*@Tb3@pHT<@oa'D@TpL@4.s$U@c]@cĢe@9rm@iIz@v@~@:@31A@kØ@Aˡ@5:3@+&%|@+.@&7|@T@@-@4 @  @Թ @м]@"@Zf̺.@AY·;@ -I@ڻV@id@PRr@+@gla@'fS@4]@3 @.@ur@ @o@[@fs2!@Nb*2@@C@CnT@xJe@e7Gw@Z:z@m<@тς@RXr@) =@ }@ B@ @DW{@"X'@'6l9@xL@=^@ |p@\j܂@%Z6M@wԧ@ԅs@9)@M@bTy@ "b@4a0o @ T,@M?@LZS@Q]!g@V`{@AS@aɣ@6酸@ CZ3@J@7@qĉR@J%@VB<@S@`Ɨk@mQ#@/.@ ж@=v@-&@@#@S5@@P0^@}@#M@u{^@*=@(@7BA:,Ri"A+4AvcGA0ZA0DamA* dwA%ݕA,AAF6dAsQDUAsX/AAN7]2A IJA"AzcAŹ|AphAbϻAvAbB%Aa)A~`A)*8AhSA}BoAF:~A1J*AfAA2 A( 5 Ƞ !g!gMassachusetts_smth@???#KAdatZe͖u@屭 @]:@?@DZʠ@f)@"=@m @\yW@6\@s-皸@rBv@?̿@II@+@ VXy3@@c@*@H@%o['%@:@ii@04%@t@!m@B0"\@,-@fU@Eԑ@6/@2:i@ޯ!@>Y@vY@C@F@[X7@Q@@.cB@հ@:Bz@W!d@hIȒK@3.@Ol@.t@+_@U@6~X.@$"B@ҺL@^rեQ@vӘVC@̻U@$20'\@%=`@L@AM@革^ߗ@Gϓ@If[$@Y7f@ic((@"445@\-g@hP@ @If@ꅎS@@xýd@ү8@j_@4@@w7F@yV%@'jJz@$@厼4@㙱K@mpa@N॔u@,`@|v1@@O@k@F@dNq@1@j>@Q@NL2i @{;@@ @̞Kr!@ &*@Tb3@pHT<@oa'D@TpL@4.s$U@c]@cĢe@9rm@iIz@v@~@:@31A@kØ@Aˡ@5:3@+&%|@+.@&7|@T@@-@4 @  @Թ @м]@"@Zf̺.@AY·;@ -I@ڻV@id@PRr@+@gla@'fS@4]@3 @.@ur@ @o@[@fs2!@Nb*2@@C@CnT@xJe@e7Gw@Z:z@m<@тς@RXr@) =@ }@ B@ @DW{@"X'@'6l9@xL@=^@ |p@\j܂@%Z6M@wԧ@ԅs@9)@M@bTy@ "b@4a0o @ T,@M?@LZS@Q]!g@V`{@AS@aɣ@6酸@ CZ3@J@7@qĉR@J%@VB<@S@`Ɨk@mQ#@/.@ ж@=v@-&@@#@S5@@P0^@}@#M@u{^@*=@(@7BA:,Ri"A+4AvcGA0ZA0DamA* dwA%ݕA,AAF6dAsQDUAsX/AAN7]2A IJA"AzcAŹ|AphAbϻAvAbB%Aa)A~`A)*8AhSA}BoAF:~A1J*AfAA2 A(  !g!gMassachusetts_DIF@???#KAdat͐Gy@K~|@ s ~@<€@C@#ڃ@: ͦ@'B@[} @a@CFinj@@/P@L1I@C6pB@x$!9:@o/@ @+ @Zan@cRPϗ@>@R,k@'e(@&ؚ@ge{@9@ۯ@(;q@zw@0ϝ@ow@M٧NN@s@d*07@oDH@ct@ gO@kb@)@ϝ@oJcy@ @A@p>'@S@OY 2@?'{@VJgߙ@A=@gM@v*x@Co>@m^@իJ{ܕ@ k](@.#s@ 9Z;@Jy5@ ?L@[U@Eǂ@:@}yJ@)@>@b  @ a@Ĺ@@W@0#@@L@|@2JK@J@'h^w@1@_I@ധ@u*=@yG@䔬戋@Q!j@* }@hg @%@5@+>@7C@:"D@ *// Platform=Macintosh, IGORVersion=8.040, architecture=Intel, systemTextEncoding="MacRoman", historyTextEncoding="UTF-8", procwinTextEncoding="UTF-8", recreationTextEncoding="UTF-8", build=34722 #pragma TextEncoding = "UTF-8" Silent 101 // use | as bitwise or -- not comment. if (IgorVersion() < 8.00) *** This experiment requires Igor Pro 8.00 or later because it uses long object names *** endif NewPath Personal_Igor_Procedures "::Documents:Personal Igor Procedures:" NewPath/Z X88AA43F8_9DAE_4BE0_A78E_DD1F67A8C48E "::Library:Containers:com.apple.mail:Data:Library:Mail Downloads:88AA43F8-9DAE-4BE0-A78E-DD1F67A8C48E:" SetDataFolder root:Simplified: DefaultFont "Helvetica" MoveWindow/C 11,600,1257,796 Massachusetts_Plot() MoveWindow/P 233,45,1170,611 KillStrings/Z root:gWMSetNextTextFilesTextEncoding Window Massachusetts_Plot() : Graph PauseUpdate; Silent 1 // building window... String fldrSav0= GetDataFolder(1) SetDataFolder root:Simplified: Display /W=(35,45,691,444)/K=1 Massachusetts,Massachusetts_smth as "Massachusetts_Plot" AppendToGraph/R Massachusetts_DIF SetDataFolder fldrSav0 ModifyGraph wbRGB=(49151,53155,65535) ModifyGraph mode(Massachusetts)=3 ModifyGraph marker(Massachusetts)=19 ModifyGraph lSize(Massachusetts_DIF)=2 ModifyGraph rgb(Massachusetts_smth)=(0,0,0),rgb(Massachusetts_DIF)=(1,16019,65535) ModifyGraph msize(Massachusetts)=3 ModifyGraph zero(right)=1 ModifyGraph highTrip(left)=1e+06 ModifyGraph axRGB(right)=(1,16019,65535) ModifyGraph tlblRGB(right)=(1,16019,65535) ModifyGraph alblRGB(right)=(1,16019,65535) ModifyGraph useTSep(left)=1,useTSep(right)=1 ModifyGraph axisEnab(left)={0,0.3} ModifyGraph axisEnab(right)={0.3,1} ModifyGraph dateInfo(bottom)={0,0,0} Label left "\\f01Confirmed Cases" Label bottom "\\f01Massachusetts_Plot" Label right "\\f01Growth Rate / Cases/day" SetAxis/A/N=1/E=1 left SetAxis/A/N=1/E=1 right SetDrawLayer ProgBack SetDrawEnv xcoord= bottom,ycoord= prel,linethick= 0,fillfgc= (55555,55555,55555) DrawRect 3685910400,0,3687120000,1 SetDrawLayer UserFront EndMacro H#pragma TextEncoding = "UTF-8" #pragma rtGlobals=3 // Use modern global access method and strict wave access. Function/S PlotCaseRate(Cases, SmoothCases, CaseRate) String Cases, SmoothCases, CaseRate String Sample = Cases + "_Plot" Wave CaseW = $Cases, SmoothW = $SmoothCases, RateW = $CaseRate Display /K=1/W=(35,45,691,444)/N=$Sample CaseW as Sample ModifyGraph wbRGB=(49151,53155,65535) ModifyGraph mode($Cases)=3 ModifyGraph marker($Cases)=19, msize=3 ModifyGraph mirror(left)=2 ModifyGraph dateInfo(bottom)={0,0,0} Label left "\f01Confirmed Cases" Label bottom "\f01"+Sample SetAxis/A/N=1/E=1 left SetAxis/A/N=0 bottom AppendToGraph SmoothW ModifyGraph rgb($SmoothCases)=(0,0,0) // TextBox/C/N=CF_Cases/X=53.66/Y=4.42 AppendToGraph /R RateW ModifyGraph rgb($CaseRate)=(1,16019,65535) ModifyGraph lsize($CaseRate)=2 ModifyGraph axRGB(right)=(1,16019,65535),tlblRGB(right)=(1,16019,65535),alblRGB(right)=(1,16019,65535) SetAxis/A/E=1/N=1 right Label right "\\f01Growth Rate / Cases/day" ModifyGraph axisEnab(left)={0,0.3},axisEnab(right)={0.3,1} ModifyGraph zero(right)=1 ModifyGraph useTSep(left)=1,useTSep(right)=1,highTrip(left)=1000000 // //Add cursor at date 2 weeks ago Variable IncubationTime = 14 Variable StartPoint = numpnts(RateW) - IncubationTime // Cursor/P/H=2/L=1/S=2 A $CaseRate, StartPoint // Cursor/P/H=2/L=1/S=2 B $CaseRate, numpnts(RateW) // ShowInfo //Shade the last 14 days Variable SmoothTime = 14 * 24 *3600 DoUpdate GetAxis/W=$Sample/Q bottom Variable Endpoint = V_max // Variable EndPoint = IndexToScale(RateW, (numpnts(RateW)), 0) //last point in the graph Startpoint = Endpoint - SmoothTime GetAxis/Q left SetDrawLayer ProgBack SetDrawEnv arrow=0,fillfgc=(55555,55555,55555), fillpat=1, linethick=0, xcoord=bottom, ycoord=prel DrawRect Startpoint, 0, Endpoint, 1 return Sample End