Attaching package: 'dplyr'
The following objects are masked from 'package:stats':
filter, lag
The following objects are masked from 'package:base':
intersect, setdiff, setequal, union
Attaching package: 'tidyr'
The following object is masked from 'package:magrittr':
extract
Attaching package: 'plotly'
The following object is masked from 'package:ggplot2':
last_plot
The following object is masked from 'package:stats':
filter
The following object is masked from 'package:graphics':
layout
Crosstab of CFIR and Outcomes
LS0tCnRpdGxlOiAiV0hPIENvdmlkMTkgU3R1ZGllcyIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKYGBge3IgZGVwZW5kZW5jaWVzLCBlY2hvPUZBTFNFfQpsaWJyYXJ5KHJlYWR4bCkKbGlicmFyeShtYWdyaXR0cikKbGlicmFyeShkcGx5cikKbGlicmFyeSh0aWR5cikKbGlicmFyeShhcGV4Y2hhcnRlcikKbGlicmFyeShnZ3Bsb3QyKQpsaWJyYXJ5KHBsb3RseSkKY29sb3JfZGljdCA8LSBjKAogICcjREFGN0E2JywKICAnI0ZGQzMwMCcsCiAgJyNGRjU3MzMnLAogICcjQzcwMDM5JywKICAnIzkwMEMzRicsCiAgJyM1ODE4NDUnCikKbWFrZV9iYXJjaGFydCA8LSBmdW5jdGlvbihkZiwgeCwgeSwgY29sPTEsYXV0b191cGRhdGU9VFJVRSl7CiAgYXBleChkZiwgYWVzX3N0cmluZyh4LCB5KSwgdHlwZSA9ICdiYXInLCBhdXRvX3VwZGF0ZSA9IGF1dG9fdXBkYXRlKSAlPiUKICAgIGF4X3Bsb3RPcHRpb25zKGJhcj1iYXJfb3B0cyhob3Jpem9udGFsID0gVFJVRSkpICU+JQogICAgYXhfY29sb3JzKGNvbG9yX2RpY3RbY29sXSkgJT4lCiAgICBheF9jaGFydCh0b29sYmFyID0gbGlzdChzaG93PUZBTFNFKSkKfQpjb250XzJfbWF0IDwtIGZ1bmN0aW9uKGRmLCB4LCB5LCBuKXsKICAjIFBpdm90CiAgZGYyIDwtIGRmICU+JQogICAgdGlkeXI6OnBpdm90X3dpZGVyKAogICAgICBpZF9jb2xzID0ge3h9LAogICAgICBuYW1lc19mcm9tID0ge3l9LAogICAgICB2YWx1ZXNfZnJvbSA9IG4KICAgICkKICAjIEdldCBOYW1lcwogIHhfbmFtZXMgPC0gbmFtZXMoZGYyKVsyOm5jb2woZGYyKV0KICB5X25hbWVzIDwtIGRmMltbeF1dCiAgIyBNYWtlIE1hdHJpeAogIG1hdCA8LSBhcy5tYXRyaXgoZGYyKQogIG1hdFtdIDwtIGFzLm51bWVyaWMobWF0KQogIAogIG1hdCA8LSBtYXRbLDI6bmNvbChtYXQpXQogIAogIGNvbG5hbWVzKG1hdCkgPC0geF9uYW1lcwogIHJvd25hbWVzKG1hdCkgPC0geV9uYW1lcwogIHJldHVybihtYXQpCn0KbWFrZV9oZWF0bWFwIDwtIGZ1bmN0aW9uKGRmLCB4LCB5KXsKICAjIENyb3NzLVRhYgogIGRmICU+JQogICAgZHBseXI6OmNvdW50KC5bW3hdXSwgLltbeV1dKSAlPiUKICAgIHNldE5hbWVzKGMoeCx5LCduJykpIC0+IHh0CiAgCiAgIyBNYWtlIE1hdHJpeAogIG0gPC0gY29udF8yX21hdCh4dCwgeCwgeSwgJ24nKQoKICBwbG90IDwtIAogICAgcGxvdF9seSgKICAgICAgej1tLCB4PWNvbG5hbWVzKG0pLCB5PXJvd25hbWVzKG0pLCB0eXBlID0gJ2hlYXRtYXAnLAogICAgICBob3ZlcnRlbXBsYXRlID0gJyV7eH08YnI+JXt5fTxicj4le3p9PGV4dHJhPjwvZXh0cmE+JywKICAgICAgY29sb3JzY2FsZT0nVmlyaWRpcycsIHJldmVyc2VzY2FsZSA9IEZBTFNFCiAgICApICU+JQogICAgY29uZmlnKAogICAgICBtb2RlQmFyQnV0dG9ucz1saXN0KGxpc3QoJ2F1dG9TY2FsZTJkJykpLAogICAgICBkaXNwbGF5bG9nbyA9IEZBTFNFCiAgICApCiAgCiAgcmV0dXJuKHBsb3QpCiAgCn0KYGBgCgpgYGB7ciBpbXBvcnQgYW5kIGNsZWFuLCBlY2hvPUZBTFNFLCBtZXNzYWdlPUZBTFNFLCB3YXJuaW5nPUZBTFNFfQpkYiA8LSByZWFkX3hsc3goJ1N0cmF0ZWdpZXMgT3V0Y29tZV9tYXN0ZXIueGxzeCcsIHJhbmdlID0gJ0IyOloxOTUnKQpgYGAKCiMgSGlzdG9ncmFtIG9mIE91dGNvbWVzCmBgYHtyIGVjaG89RkFMU0V9CmRiICU+JQogIHBpdm90X2xvbmdlcihgQWRhcHRhYmlsaXR5YDpgU3VwcGx5IFBlbmVudHJhdGlvbmApICU+JQogIGdyb3VwX2J5KG5hbWUpICU+JQogIHN1bW1hcmlzZSgKICAgIFN0dWRpZXMgPSBzdW0odmFsdWUsIG5hLnJtPVRSVUUpCiAgKSAlPiUKICBhcnJhbmdlKFN0dWRpZXMpICU+JQogIG1ha2VfYmFyY2hhcnQoJ25hbWUnLCAnU3R1ZGllcycsIGNvbCA9IDIpCmBgYAoKIyBIaXN0b2dyYW0gb2YgQmFycmllcnMKYGBge3IgZWNobz1GQUxTRX0KZGIgJT4lCiAgZmlsdGVyKCFpcy5uYShgSW1wbGVtZW50YXRpb24gQ2hhbGxlbmdlL0NvbnRleHR1YWwgQmFycmllcmApKSAlPiUKICBncm91cF9ieShgSW1wbGVtZW50YXRpb24gQ2hhbGxlbmdlL0NvbnRleHR1YWwgQmFycmllcmApICU+JQogIHN1bW1hcmlzZShTdHJhdGVnaWVzID0gbigpKSAlPiUKICBhcnJhbmdlKFN0cmF0ZWdpZXMpICU+JQogIG1ha2VfYmFyY2hhcnQoJ2BJbXBsZW1lbnRhdGlvbiBDaGFsbGVuZ2UvQ29udGV4dHVhbCBCYXJyaWVyYCcsICdTdHJhdGVnaWVzJywgY29sID0gMykKYGBgCgojIEhpc3RvZ3JhbSBvZiBDRklSCmBgYHtyIGVjaG89RkFMU0V9CmRiICU+JQogIGZpbHRlcighaXMubmEoYENGSVIgRG9tYWluYCkpICU+JQogIGdyb3VwX2J5KGBDRklSIERvbWFpbmApICU+JQogIHN1bW1hcmlzZShTdHJhdGVnaWVzID0gbigpKSAlPiUKICBhcnJhbmdlKFN0cmF0ZWdpZXMpICU+JQogIG1ha2VfYmFyY2hhcnQoJ2BDRklSIERvbWFpbmAnLCAnU3RyYXRlZ2llcycsIGNvbCA9IDQpCmBgYAoKIyBDcm9zc3RhYiBvZiBDRklSIGFuZCBPdXRjb21lcwpgYGB7ciBlY2hvPUZBTFNFLCB3YXJuaW5nPUZBTFNFfQpkYiAlPiUKICBwaXZvdF9sb25nZXIoYEFkYXB0YWJpbGl0eWA6YFN1cHBseSBQZW5lbnRyYXRpb25gKSAlPiUKICBmaWx0ZXIoIWlzLm5hKHZhbHVlKSwgIWlzLm5hKGBDRklSIERvbWFpbmApKSAlPiUKICBtYWtlX2hlYXRtYXAoJ0NGSVIgRG9tYWluJywgJ25hbWUnKQpgYGAK