This is an R Markdown Notebook. When you execute code within the notebook, the results appear beneath the code.

Try executing this chunk by clicking the Run button within the chunk or by placing your cursor inside it and pressing Cmd+Shift+Enter.

LS0tCnRpdGxlOiAiU3BlY3Ryb3Njb3B5IGZpcnN0IGxvb2siCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KClRoaXMgaXMgYW4gW1IgTWFya2Rvd25dKGh0dHA6Ly9ybWFya2Rvd24ucnN0dWRpby5jb20pIE5vdGVib29rLiBXaGVuIHlvdSBleGVjdXRlIGNvZGUgd2l0aGluIHRoZSBub3RlYm9vaywgdGhlIHJlc3VsdHMgYXBwZWFyIGJlbmVhdGggdGhlIGNvZGUuIAoKVHJ5IGV4ZWN1dGluZyB0aGlzIGNodW5rIGJ5IGNsaWNraW5nIHRoZSAqUnVuKiBidXR0b24gd2l0aGluIHRoZSBjaHVuayBvciBieSBwbGFjaW5nIHlvdXIgY3Vyc29yIGluc2lkZSBpdCBhbmQgcHJlc3NpbmcgKkNtZCtTaGlmdCtFbnRlciouIAoKYGBge3J9CmxpYnJhcnkodGlkeXZlcnNlKQoKZGZfMTkgPC0gcmVhZF9jc3YoIi4uLy4uLy4uLy4uL1ZvbHVtZXMvTk8gTkFNRS9OUzFEYXRhLzgwNzE5XzE5X2NvbXByZXNzZWQuZGF0Iiwgc2tpcCA9IDE2LCBjb2xfbmFtZXMgPSBjKCJ0aW1lIiwgImludGVuc2l0eSIpKSAlPiUgbXV0YXRlKGNvbmRpdGlvbiA9ICdiaW9maWxtJykKCmRmXzIwIDwtIHJlYWRfY3N2KCIuLi8uLi8uLi8uLi9Wb2x1bWVzL05PIE5BTUUvTlMxRGF0YS84MDcxOV8yMF9jb21wcmVzc2VkLmRhdCIsIHNraXAgPSAxNiwgY29sX25hbWVzID0gYygidGltZSIsICJpbnRlbnNpdHkiKSkgJT4lIG11dGF0ZShjb25kaXRpb24gPSAnMXVNUnUnKQoKZGZfMjEgPC0gcmVhZF9jc3YoIi4uLy4uLy4uLy4uL1ZvbHVtZXMvTk8gTkFNRS9OUzFEYXRhLzgwNzE5XzIxX2NvbXByZXNzZWQuZGF0Iiwgc2tpcCA9IDE2LCBjb2xfbmFtZXMgPSBjKCJ0aW1lIiwgImludGVuc2l0eSIpKSAlPiUgbXV0YXRlKGNvbmRpdGlvbiA9ICcxeFJoJykKCmRmXzIyIDwtIHJlYWRfY3N2KCIuLi8uLi8uLi8uLi9Wb2x1bWVzL05PIE5BTUUvTlMxRGF0YS84MDcxOV8yMl9jb21wcmVzc2VkLmRhdCIsIHNraXAgPSAxNiwgY29sX25hbWVzID0gYygidGltZSIsICJpbnRlbnNpdHkiKSkgJT4lIG11dGF0ZShjb25kaXRpb24gPSAnMnhSaCcpCgpkZl8yMyA8LSByZWFkX2NzdigiLi4vLi4vLi4vLi4vVm9sdW1lcy9OTyBOQU1FL05TMURhdGEvODA3MTlfMjNfY29tcHJlc3NlZC5kYXQiLCBza2lwID0gMTYsIGNvbF9uYW1lcyA9IGMoInRpbWUiLCAiaW50ZW5zaXR5IikpICU+JSBtdXRhdGUoY29uZGl0aW9uID0gJzR4UmgnKQoKZGZfZHBoeiA8LSBiaW5kX3Jvd3MoZGZfMTksIGRmXzIwLCBkZl8yMSwgZGZfMjIsIGRmXzIzKQoKCmdncGxvdChkZl9kcGh6LCBhZXMoeCA9IHRpbWUsIHkgPSBpbnRlbnNpdHksIGNvbG9yID0gY29uZGl0aW9uKSkgKyBnZW9tX3BhdGgoKSArIHhsaW0oTkEsIDFlLTYpK3lsaW0oTkEsMC4wNCkgKyBzY2FsZV9jb2xvcl92aXJpZGlzX2QoKQoKZGZfZHBoel9iZyA8LSBkZl9kcGh6ICU+JSAKICBncm91cF9ieSh0aW1lKSAlPiUgCiAgbXV0YXRlKG1pbiA9IG1pbihpbnRlbnNpdHkpKSAlPiUgCiAgbXV0YXRlKGJnX3N1YiA9IGludGVuc2l0eSAtIG1pbikKICAKCmdncGxvdChkZl9kcGh6X2JnLCBhZXMoeCA9IHRpbWUsIHkgPSBiZ19zdWIsIGNvbG9yID0gY29uZGl0aW9uKSkgKyBnZW9tX3BhdGgoKSArICN4bGltKE5BLCAxZS02KSt5bGltKE5BLDAuMDQpICsKICBzY2FsZV9jb2xvcl92aXJpZGlzX2QoKQoKZGZfZHBoel9iZ19ub3JtIDwtIGRmX2RwaHpfYmcgJT4lIAogIGZpbHRlcih0aW1lPjApICU+JSAKICBncm91cF9ieShjb25kaXRpb24pICU+JSAKICBtdXRhdGUobWF4ID0gbWF4KGJnX3N1YikpICU+JSAKICBtdXRhdGUobm9ybV9pbnRlbnNpdHkgPSBiZ19zdWIgLyBtYXgpCgoKZ2dwbG90KGRmX2RwaHpfYmdfbm9ybSwgYWVzKHggPSB0aW1lLCB5ID0gbm9ybV9pbnRlbnNpdHksIGNvbG9yID0gY29uZGl0aW9uKSkgKyBnZW9tX3BhdGgoKSArICN4bGltKE5BLCAxZS02KSt5bGltKE5BLDAuMDQpICsKICBzY2FsZV9jb2xvcl92aXJpZGlzX2QoKQpgYGAKCmBgYHtyfQpkZl8yNSA8LSByZWFkX2NzdigiLi4vLi4vLi4vLi4vVm9sdW1lcy9OTyBOQU1FL05TMURhdGEvODA3MTlfMjVfY29tcHJlc3NlZC5kYXQiLCBza2lwID0gMTYsIGNvbF9uYW1lcyA9IGMoInRpbWUiLCAiaW50ZW5zaXR5IikpICU+JSBtdXRhdGUoY29uZGl0aW9uID0gJ2Jpb2ZpbG0nKQoKZGZfMjYgPC0gcmVhZF9jc3YoIi4uLy4uLy4uLy4uL1ZvbHVtZXMvTk8gTkFNRS9OUzFEYXRhLzgwNzE5XzI2X2NvbXByZXNzZWQuZGF0Iiwgc2tpcCA9IDE2LCBjb2xfbmFtZXMgPSBjKCJ0aW1lIiwgImludGVuc2l0eSIpKSAlPiUgbXV0YXRlKGNvbmRpdGlvbiA9ICcxdU1SdScpCgpkZl8yNyA8LSByZWFkX2NzdigiLi4vLi4vLi4vLi4vVm9sdW1lcy9OTyBOQU1FL05TMURhdGEvODA3MTlfMjdfY29tcHJlc3NlZC5kYXQiLCBza2lwID0gMTYsIGNvbF9uYW1lcyA9IGMoInRpbWUiLCAiaW50ZW5zaXR5IikpICU+JSBtdXRhdGUoY29uZGl0aW9uID0gJzF4UmgnKQoKZGZfMjggPC0gcmVhZF9jc3YoIi4uLy4uLy4uLy4uL1ZvbHVtZXMvTk8gTkFNRS9OUzFEYXRhLzgwNzE5XzI4X2NvbXByZXNzZWQuZGF0Iiwgc2tpcCA9IDE2LCBjb2xfbmFtZXMgPSBjKCJ0aW1lIiwgImludGVuc2l0eSIpKSAlPiUgbXV0YXRlKGNvbmRpdGlvbiA9ICcyeFJoJykKCmRmXzI5IDwtIHJlYWRfY3N2KCIuLi8uLi8uLi8uLi9Wb2x1bWVzL05PIE5BTUUvTlMxRGF0YS84MDcxOV8yOV9jb21wcmVzc2VkLmRhdCIsIHNraXAgPSAxNiwgY29sX25hbWVzID0gYygidGltZSIsICJpbnRlbnNpdHkiKSkgJT4lIG11dGF0ZShjb25kaXRpb24gPSAnNHhSaCcpCgpkZl93dCA8LSBiaW5kX3Jvd3MoZGZfMTksIGRmXzIwLCBkZl8yMSwgZGZfMjIsIGRmXzIzKQoKZ2dwbG90KGRmX3d0LCBhZXMoeCA9IHRpbWUsIHkgPSBpbnRlbnNpdHksIGNvbG9yID0gY29uZGl0aW9uKSkgKyBnZW9tX3BhdGgoKSArIHhsaW0oTkEsIDFlLTYpKyAjeWxpbShOQSxOQSkgKwogIHNjYWxlX2NvbG9yX3ZpcmlkaXNfZCgpCgpkZl93dF9iZyA8LSBkZl93dCAlPiUgCiAgZ3JvdXBfYnkodGltZSkgJT4lIAogIG11dGF0ZShtaW4gPSBtaW4oaW50ZW5zaXR5KSkgJT4lIAogIG11dGF0ZShiZ19zdWIgPSBpbnRlbnNpdHkgLSBtaW4pCiAgCgpnZ3Bsb3QoZGZfd3RfYmcsIGFlcyh4ID0gdGltZSwgeSA9IGJnX3N1YiwgY29sb3IgPSBjb25kaXRpb24pKSArIGdlb21fcGF0aCgpICsgI3hsaW0oTkEsIDFlLTYpK3lsaW0oTkEsMC4wNCkgKwogIHNjYWxlX2NvbG9yX3ZpcmlkaXNfZCgpCgpkZl93dF9iZ19ub3JtIDwtIGRmX3d0X2JnICU+JSAKICBmaWx0ZXIodGltZT4wKSAlPiUgCiAgZ3JvdXBfYnkoY29uZGl0aW9uKSAlPiUgCiAgbXV0YXRlKG1heCA9IG1heChiZ19zdWIpKSAlPiUgCiAgbXV0YXRlKG5vcm1faW50ZW5zaXR5ID0gYmdfc3ViIC8gbWF4KQoKZ2dwbG90KGRmX3d0X2JnX25vcm0sIGFlcyh4ID0gdGltZSwgeSA9IG5vcm1faW50ZW5zaXR5LCBjb2xvciA9IGNvbmRpdGlvbikpICsgZ2VvbV9wYXRoKCkgKyAjeGxpbShOQSwgMWUtNikreWxpbShOQSwwLjA0KSArCiAgc2NhbGVfY29sb3JfdmlyaWRpc19kKCkKYGBgCgoK