Relatório criado por Lucas Barrozo
1 Análises descritivas
1.1 Tabela descritiva
ds %>% select(sexo:cc_wcst) %>% tableby(~.,.) %>%
summary(., text = TRUE) %>%
data.frame() %>% DT::datatable()1.2 Gráficos
1.2.1 Variáveis sociodemográficas
1.2.2 Variáveis das escalas de rastreio
ds %>% select(eb_meem:cc_wcst) %>%
data.frame() %>%
likert() %>% plot(., wrap = 10,ordered = T,
low.color='darkblue', high.color='maroon') +
theme(legend.position = "right")
2 Análises de fator de risco
2.1 Variáveis sociodemográficas e EB-MEEM
ds %>% select(eb_meem, sexo:esc) %>%
compareGroups::compareGroups(eb_meem ~ .,
byrow = T,
riskratio = T,
data = .) %>%
compareGroups::createTable(.,
show.ratio = TRUE,
show.p.overall = F) %>%
pander::pander()Chi-squared approximation may be incorrectChi-squared approximation may be incorrectChi-squared approximation may be incorrectChi-squared approximation may be incorrectChi-squared approximation may be incorrectNo pander.method for "createTable", reverting to default.
* **descr**:
--------------------------------------------------------------------
0 1 RR p.ratio
-------------- ------------ ----------- ------------------ ---------
**sexo: 0** 13 (86.7%) 2 (13.3%) Ref. Ref.
**sexo: 1** 26 (78.8%) 7 (21.2%) 1.59 [0.37;6.77] 0.562
**idade: 0** 22 (91.7%) 2 (8.33%) Ref. Ref.
**idade: 1** 17 (70.8%) 7 (29.2%) 3.50 [0.81;15.2] 0.080
**td: 0** 34 (81.0%) 8 (19.0%) Ref. Ref.
**td: 1** 5 (83.3%) 1 (16.7%) 0.88 [0.13;5.82] 0.954
**iid: 0** 27 (77.1%) 8 (22.9%) Ref. Ref.
**iid: 1** 12 (92.3%) 1 (7.69%) 0.34 [0.05;2.43] 0.267
**esc: 0** 23 (95.8%) 1 (4.17%) Ref. Ref.
**esc: 1** 16 (66.7%) 8 (33.3%) 8.00 [1.08;59.1] 0.012
--------------------------------------------------------------------
* **avail**:
----------------------------------------------------------------
[ALL] 0 1 method select Fact OR/HR
----------- ------- ---- --- ------------- -------- ------------
**sexo** 48 39 9 categorical ALL 1
**idade** 48 39 9 categorical ALL 1
**td** 48 39 9 categorical ALL 1
**iid** 48 39 9 categorical ALL 1
**esc** 48 39 9 categorical ALL 1
----------------------------------------------------------------
* **call**: `compareGroups::createTable(x = ., show.p.overall = F, show.ratio = TRUE)`
<!-- end of list -->2.2 Variáveis sociodemográficas e EP-RIVERMEAD
ds %>% select(ep_rivermead, sexo:esc) %>%
compareGroups::compareGroups(ep_rivermead ~ .,
byrow = T,
riskratio = T,
data = .) %>%
compareGroups::createTable(.,
show.ratio = TRUE,
show.p.overall = F) %>%
pander::pander()Chi-squared approximation may be incorrectNo pander.method for "createTable", reverting to default.
* **descr**:
---------------------------------------------------------------------
0 1 RR p.ratio
-------------- ------------ ------------ ------------------ ---------
**sexo: 0** 10 (66.7%) 5 (33.3%) Ref. Ref.
**sexo: 1** 15 (45.5%) 18 (54.5%) 1.64 [0.75;3.57] 0.192
**idade: 0** 16 (66.7%) 8 (33.3%) Ref. Ref.
**idade: 1** 9 (37.5%) 15 (62.5%) 1.88 [0.98;3.57] 0.051
**td: 0** 24 (57.1%) 18 (42.9%) Ref. Ref.
**td: 1** 1 (16.7%) 5 (83.3%) 1.94 [1.18;3.21] 0.085
**iid: 0** 19 (54.3%) 16 (45.7%) Ref. Ref.
**iid: 1** 6 (46.2%) 7 (53.8%) 1.18 [0.63;2.19] 0.634
**esc: 0** 17 (70.8%) 7 (29.2%) Ref. Ref.
**esc: 1** 8 (33.3%) 16 (66.7%) 2.29 [1.15;4.53] 0.012
---------------------------------------------------------------------
* **avail**:
-----------------------------------------------------------------
[ALL] 0 1 method select Fact OR/HR
----------- ------- ---- ---- ------------- -------- ------------
**sexo** 48 25 23 categorical ALL 1
**idade** 48 25 23 categorical ALL 1
**td** 48 25 23 categorical ALL 1
**iid** 48 25 23 categorical ALL 1
**esc** 48 25 23 categorical ALL 1
-----------------------------------------------------------------
* **call**: `compareGroups::createTable(x = ., show.p.overall = F, show.ratio = TRUE)`
<!-- end of list -->2.3 Variáveis sociodemográficas e EP-V
ds %>% select(ep_v, sexo:esc) %>%
compareGroups::compareGroups(ep_v ~ .,
byrow = T,
riskratio = T,
data = .) %>%
compareGroups::createTable(.,
show.ratio = TRUE,
show.p.overall = F)%>%
pander::pander()Chi-squared approximation may be incorrectChi-squared approximation may be incorrectChi-squared approximation may be incorrectChi-squared approximation may be incorrectChi-squared approximation may be incorrectNo pander.method for "createTable", reverting to default.
* **descr**:
--------------------------------------------------------------------
0 1 RR p.ratio
-------------- ------------ ----------- ------------------ ---------
**sexo: 0** 12 (80.0%) 3 (20.0%) Ref. Ref.
**sexo: 1** 27 (81.8%) 6 (18.2%) 0.91 [0.26;3.15] 0.870
**idade: 0** 20 (83.3%) 4 (16.7%) Ref. Ref.
**idade: 1** 19 (79.2%) 5 (20.8%) 1.25 [0.38;4.10] 0.731
**td: 0** 34 (81.0%) 8 (19.0%) Ref. Ref.
**td: 1** 5 (83.3%) 1 (16.7%) 0.88 [0.13;5.82] 0.954
**iid: 0** 28 (80.0%) 7 (20.0%) Ref. Ref.
**iid: 1** 11 (84.6%) 2 (15.4%) 0.77 [0.18;3.24] 0.762
**esc: 0** 22 (91.7%) 2 (8.33%) Ref. Ref.
**esc: 1** 17 (70.8%) 7 (29.2%) 3.50 [0.81;15.2] 0.080
--------------------------------------------------------------------
* **avail**:
----------------------------------------------------------------
[ALL] 0 1 method select Fact OR/HR
----------- ------- ---- --- ------------- -------- ------------
**sexo** 48 39 9 categorical ALL 1
**idade** 48 39 9 categorical ALL 1
**td** 48 39 9 categorical ALL 1
**iid** 48 39 9 categorical ALL 1
**esc** 48 39 9 categorical ALL 1
----------------------------------------------------------------
* **call**: `compareGroups::createTable(x = ., show.p.overall = F, show.ratio = TRUE)`
<!-- end of list -->2.4 Variáveis sociodemográficas e EP-D
ds %>% select(ep_d, sexo:esc) %>%
compareGroups::compareGroups(ep_d ~ .,
byrow = T,
riskratio = T,
data = .) %>%
compareGroups::createTable(.,
show.ratio = TRUE,
show.p.overall = F)%>%
pander::pander()Chi-squared approximation may be incorrectChi-squared approximation may be incorrectChi-squared approximation may be incorrectChi-squared approximation may be incorrectChi-squared approximation may be incorrectNo pander.method for "createTable", reverting to default.
* **descr**:
--------------------------------------------------------------------
0 1 RR p.ratio
-------------- ------------ ----------- ------------------ ---------
**sexo: 0** 13 (86.7%) 2 (13.3%) Ref. Ref.
**sexo: 1** 30 (90.9%) 3 (9.09%) 0.68 [0.13;3.67] 0.671
**idade: 0** 20 (83.3%) 4 (16.7%) Ref. Ref.
**idade: 1** 23 (95.8%) 1 (4.17%) 0.25 [0.03;2.08] 0.199
**td: 0** 37 (88.1%) 5 (11.9%) Ref. Ref.
**td: 1** 6 (100%) 0 (0.00%) 0.00 [0.00;.] 0.497
**iid: 0** 33 (94.3%) 2 (5.71%) Ref. Ref.
**iid: 1** 10 (76.9%) 3 (23.1%) 4.04 [0.76;21.5] 0.130
**esc: 0** 23 (95.8%) 1 (4.17%) Ref. Ref.
**esc: 1** 20 (83.3%) 4 (16.7%) 4.00 [0.48;33.2] 0.199
--------------------------------------------------------------------
* **avail**:
----------------------------------------------------------------
[ALL] 0 1 method select Fact OR/HR
----------- ------- ---- --- ------------- -------- ------------
**sexo** 48 43 5 categorical ALL 1
**idade** 48 43 5 categorical ALL 1
**td** 48 43 5 categorical ALL 1
**iid** 48 43 5 categorical ALL 1
**esc** 48 43 5 categorical ALL 1
----------------------------------------------------------------
* **call**: `compareGroups::createTable(x = ., show.p.overall = F, show.ratio = TRUE)`
<!-- end of list -->2.5 Variáveis sociodemográficas e EP-C
ds %>% select(ep_c, sexo:esc) %>%
compareGroups::compareGroups(ep_c ~ .,
byrow = T,
riskratio = T,
data = .) %>%
compareGroups::createTable(.,
show.ratio = TRUE,
show.p.overall = F)%>%
pander::pander()Chi-squared approximation may be incorrectChi-squared approximation may be incorrectChi-squared approximation may be incorrectChi-squared approximation may be incorrectChi-squared approximation may be incorrectNo pander.method for "createTable", reverting to default.
* **descr**:
--------------------------------------------------------------------
0 1 RR p.ratio
-------------- ------------ ----------- ------------------ ---------
**sexo: 0** 11 (73.3%) 4 (26.7%) Ref. Ref.
**sexo: 1** 28 (84.8%) 5 (15.2%) 0.57 [0.18;1.82] 0.377
**idade: 0** 19 (79.2%) 5 (20.8%) Ref. Ref.
**idade: 1** 20 (83.3%) 4 (16.7%) 0.80 [0.24;2.62] 0.731
**td: 0** 34 (81.0%) 8 (19.0%) Ref. Ref.
**td: 1** 5 (83.3%) 1 (16.7%) 0.88 [0.13;5.82] 0.954
**iid: 0** 29 (82.9%) 6 (17.1%) Ref. Ref.
**iid: 1** 10 (76.9%) 3 (23.1%) 1.35 [0.39;4.61] 0.649
**esc: 0** 23 (95.8%) 1 (4.17%) Ref. Ref.
**esc: 1** 16 (66.7%) 8 (33.3%) 8.00 [1.08;59.1] 0.012
--------------------------------------------------------------------
* **avail**:
----------------------------------------------------------------
[ALL] 0 1 method select Fact OR/HR
----------- ------- ---- --- ------------- -------- ------------
**sexo** 48 39 9 categorical ALL 1
**idade** 48 39 9 categorical ALL 1
**td** 48 39 9 categorical ALL 1
**iid** 48 39 9 categorical ALL 1
**esc** 48 39 9 categorical ALL 1
----------------------------------------------------------------
* **call**: `compareGroups::createTable(x = ., show.p.overall = F, show.ratio = TRUE)`
<!-- end of list -->2.6 Variáveis sociodemográficas e CC-WCST
ds %>% select(cc_wcst, sexo:esc) %>%
compareGroups::compareGroups(cc_wcst ~ .,
byrow = T,
riskratio = T,
data = .) %>%
compareGroups::createTable(.,
show.ratio = TRUE,
show.p.overall = F) %>%
pander::pander()Chi-squared approximation may be incorrectChi-squared approximation may be incorrectChi-squared approximation may be incorrectChi-squared approximation may be incorrectChi-squared approximation may be incorrectNo pander.method for "createTable", reverting to default.
* **descr**:
--------------------------------------------------------------------
0 1 RR p.ratio
-------------- ------------ ----------- ------------------ ---------
**sexo: 0** 12 (80.0%) 3 (20.0%) Ref. Ref.
**sexo: 1** 27 (81.8%) 6 (18.2%) 0.91 [0.26;3.15] 0.870
**idade: 0** 16 (66.7%) 8 (33.3%) Ref. Ref.
**idade: 1** 23 (95.8%) 1 (4.17%) 0.12 [0.02;0.92] 0.012
**td: 0** 33 (78.6%) 9 (21.4%) Ref. Ref.
**td: 1** 6 (100%) 0 (0.00%) 0.00 [0.00;.] 0.266
**iid: 0** 30 (85.7%) 5 (14.3%) Ref. Ref.
**iid: 1** 9 (69.2%) 4 (30.8%) 2.15 [0.68;6.80] 0.233
**esc: 0** 19 (79.2%) 5 (20.8%) Ref. Ref.
**esc: 1** 20 (83.3%) 4 (16.7%) 0.80 [0.24;2.62] 0.731
--------------------------------------------------------------------
* **avail**:
----------------------------------------------------------------
[ALL] 0 1 method select Fact OR/HR
----------- ------- ---- --- ------------- -------- ------------
**sexo** 48 39 9 categorical ALL 1
**idade** 48 39 9 categorical ALL 1
**td** 48 39 9 categorical ALL 1
**iid** 48 39 9 categorical ALL 1
**esc** 48 39 9 categorical ALL 1
----------------------------------------------------------------
* **call**: `compareGroups::createTable(x = ., show.p.overall = F, show.ratio = TRUE)`
<!-- end of list -->LS0tDQp0aXRsZTogIiINCm91dHB1dDoNCiAgaHRtbF9ub3RlYm9vazoNCiAgICB0b2M6IHllcw0KICAgIHRvY19mbG9hdDogeWVzDQogICAgbnVtYmVyX3NlY3Rpb25zOiB5ZXMNCiAgICB0aGVtZTogdW5pdGVkDQogICAgaGlnaGxpZ2h0OiB0ZXh0bWF0ZQ0KZWRpdG9yX29wdGlvbnM6IA0KICBjaHVua19vdXRwdXRfdHlwZTogaW5saW5lDQotLS0NCg0KPiBSZWxhdMOzcmlvIGNyaWFkbyBwb3IgTHVjYXMgQmFycm96bw0KDQoNCg0KYGBge3IgZ2xvYmFsIG9wdGlvbnMsIGluY2x1ZGUgPSBGQUxTRX0NCmtuaXRyOjpvcHRzX2NodW5rJHNldChlY2hvID0gRkFMU0UsIA0KICAgICAgICAgICAgICAgICAgICAgIHdhcm5pbmcgPSBGQUxTRSwgDQogICAgICAgICAgICAgICAgICAgICAgbWVzc2FnZXMgPSBGQUxTRSwgDQogICAgICAgICAgICAgICAgICAgICAgaW5jbHVkZSA9IFRSVUUsDQogICAgICAgICAgICAgICAgICAgICAgcmVzdWx0cyA9ICJzaG93IikNCmBgYA0KDQojIEFuw6FsaXNlcyBkZXNjcml0aXZhcw0KDQojIyBUYWJlbGEgZGVzY3JpdGl2YQ0KDQpgYGB7cn0NCmRzICU+JSBzZWxlY3Qoc2V4bzpjY193Y3N0KSAlPiUgdGFibGVieSh+LiwuKSAlPiUgDQogIHN1bW1hcnkoLiwgdGV4dCA9IFRSVUUpICU+JSANCiAgZGF0YS5mcmFtZSgpICU+JSBEVDo6ZGF0YXRhYmxlKCkNCmBgYA0KDQoNCiMjIEdyw6FmaWNvcw0KDQojIyMgVmFyacOhdmVpcyBzb2Npb2RlbW9ncsOhZmljYXMNCmBgYHtyIG91dC53aWR0aCA9ICIxMDAlIn0NCmxpYnJhcnkobGlrZXJ0KQ0KDQpkcyAlPiUgc2VsZWN0KHNleG86ZXNjKSAlPiUNCiAgZGF0YS5mcmFtZSgpICU+JSANCiAgbGlrZXJ0KCkgJT4lIHBsb3QoLiwgd3JhcCA9IDEwLG9yZGVyZWQgPSBULA0KICAgICAgICAgICAgICAgICAgICBsb3cuY29sb3I9J2RhcmtibHVlJywgaGlnaC5jb2xvcj0nbWFyb29uJykgKyANCiAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gInJpZ2h0IikNCg0KYGBgDQoNCiMjIyBWYXJpw6F2ZWlzIGRhcyBlc2NhbGFzIGRlIHJhc3RyZWlvDQpgYGB7ciBvdXQud2lkdGggPSAiMTAwJSJ9DQoNCg0KZHMgJT4lIHNlbGVjdChlYl9tZWVtOmNjX3djc3QpICU+JQ0KICBkYXRhLmZyYW1lKCkgJT4lIA0KICBsaWtlcnQoKSAlPiUgcGxvdCguLCB3cmFwID0gMTAsb3JkZXJlZCA9IFQsDQogICAgICAgICAgICAgICAgICAgIGxvdy5jb2xvcj0nZGFya2JsdWUnLCBoaWdoLmNvbG9yPSdtYXJvb24nKSArIA0KICB0aGVtZShsZWdlbmQucG9zaXRpb24gPSAicmlnaHQiKQ0KDQpgYGANCg0KIyBBbsOhbGlzZXMgZGUgZmF0b3IgZGUgcmlzY28NCg0KIyMgVmFyacOhdmVpcyBzb2Npb2RlbW9ncsOhZmljYXMgZSBFQi1NRUVNDQoNCmBgYHtyfQ0KZHMgJT4lIHNlbGVjdChlYl9tZWVtLCBzZXhvOmVzYykgJT4lIA0KICBjb21wYXJlR3JvdXBzOjpjb21wYXJlR3JvdXBzKGViX21lZW0gfiAuLCANCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBieXJvdyA9IFQsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgcmlza3JhdGlvID0gVCwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBkYXRhID0gLikgJT4lIA0KICBjb21wYXJlR3JvdXBzOjpjcmVhdGVUYWJsZSguLCANCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgc2hvdy5yYXRpbyA9IFRSVUUsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgIHNob3cucC5vdmVyYWxsID0gRikgJT4lIA0KICBwYW5kZXI6OnBhbmRlcigpDQoNCmBgYA0KDQoNCg0KDQojIyBWYXJpw6F2ZWlzIHNvY2lvZGVtb2dyw6FmaWNhcyBlICBFUC1SSVZFUk1FQUQNCg0KYGBge3J9DQpkcyAlPiUgc2VsZWN0KGVwX3JpdmVybWVhZCwgc2V4bzplc2MpICU+JSANCiAgY29tcGFyZUdyb3Vwczo6Y29tcGFyZUdyb3VwcyhlcF9yaXZlcm1lYWQgfiAuLCANCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBieXJvdyA9IFQsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgcmlza3JhdGlvID0gVCwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBkYXRhID0gLikgJT4lIA0KICBjb21wYXJlR3JvdXBzOjpjcmVhdGVUYWJsZSguLCANCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgc2hvdy5yYXRpbyA9IFRSVUUsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgIHNob3cucC5vdmVyYWxsID0gRikgJT4lIA0KICBwYW5kZXI6OnBhbmRlcigpDQoNCmBgYA0KDQojIyBWYXJpw6F2ZWlzIHNvY2lvZGVtb2dyw6FmaWNhcyBlICBFUC1WDQoNCmBgYHtyfQ0KZHMgJT4lIHNlbGVjdChlcF92LCBzZXhvOmVzYykgJT4lIA0KICBjb21wYXJlR3JvdXBzOjpjb21wYXJlR3JvdXBzKGVwX3YgfiAuLCANCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBieXJvdyA9IFQsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgcmlza3JhdGlvID0gVCwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBkYXRhID0gLikgJT4lIA0KICBjb21wYXJlR3JvdXBzOjpjcmVhdGVUYWJsZSguLCANCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgc2hvdy5yYXRpbyA9IFRSVUUsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgIHNob3cucC5vdmVyYWxsID0gRiklPiUgDQogIHBhbmRlcjo6cGFuZGVyKCkNCg0KDQpgYGANCg0KDQojIyBWYXJpw6F2ZWlzIHNvY2lvZGVtb2dyw6FmaWNhcyBlICBFUC1EDQoNCmBgYHtyfQ0KZHMgJT4lIHNlbGVjdChlcF9kLCBzZXhvOmVzYykgJT4lIA0KICBjb21wYXJlR3JvdXBzOjpjb21wYXJlR3JvdXBzKGVwX2QgfiAuLCANCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBieXJvdyA9IFQsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgcmlza3JhdGlvID0gVCwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBkYXRhID0gLikgJT4lIA0KICBjb21wYXJlR3JvdXBzOjpjcmVhdGVUYWJsZSguLCANCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgc2hvdy5yYXRpbyA9IFRSVUUsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgIHNob3cucC5vdmVyYWxsID0gRiklPiUgDQogIHBhbmRlcjo6cGFuZGVyKCkNCg0KYGBgDQoNCg0KIyMgVmFyacOhdmVpcyBzb2Npb2RlbW9ncsOhZmljYXMgZSAgRVAtQw0KDQpgYGB7cn0NCmRzICU+JSBzZWxlY3QoZXBfYywgc2V4bzplc2MpICU+JSANCiAgY29tcGFyZUdyb3Vwczo6Y29tcGFyZUdyb3VwcyhlcF9jIH4gLiwgDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgYnlyb3cgPSBULA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHJpc2tyYXRpbyA9IFQsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZGF0YSA9IC4pICU+JSANCiAgY29tcGFyZUdyb3Vwczo6Y3JlYXRlVGFibGUoLiwgDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgIHNob3cucmF0aW8gPSBUUlVFLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICBzaG93LnAub3ZlcmFsbCA9IEYpJT4lIA0KICBwYW5kZXI6OnBhbmRlcigpDQoNCmBgYA0KDQoNCg0KIyMgVmFyacOhdmVpcyBzb2Npb2RlbW9ncsOhZmljYXMgZSBDQy1XQ1NUDQoNCmBgYHtyfQ0KZHMgJT4lIHNlbGVjdChjY193Y3N0LCBzZXhvOmVzYykgJT4lIA0KICBjb21wYXJlR3JvdXBzOjpjb21wYXJlR3JvdXBzKGNjX3djc3QgfiAuLCANCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBieXJvdyA9IFQsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgcmlza3JhdGlvID0gVCwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBkYXRhID0gLikgJT4lIA0KICBjb21wYXJlR3JvdXBzOjpjcmVhdGVUYWJsZSguLCANCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgc2hvdy5yYXRpbyA9IFRSVUUsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgIHNob3cucC5vdmVyYWxsID0gRikgJT4lIA0KICBwYW5kZXI6OnBhbmRlcigpDQoNCmBgYA==