Pacotes

pacman::p_load(knitr,
kableExtra,
tidyverse,
janitor,
summarytools,
DataExplorer,
readxl,
tableone,
psych,
stringr,
apaTable,
arsenal,
likert,
apaTables,
compareGroups,
olsrr,
ez,
ggstatsplot)

Codificação e Consolidação dos dados

ds %>% names

 [1] "id"                        "diagnostico"               "origem"                    "procedimento"             
 [5] "sexo"                      "idade"                     "data_de_nascimento"        "data_da_avaliacao"        
 [9] "tempo_de_doenca"           "idade_do_inicio_da_doenca" "nivel_de_instrucao"        "escala_de_hoehn_e_yahr"   
[13] "bdi"                       "classificacao_bdi"

Análises Descritivas

ds %>% select(sexo, tempo_de_doenca, idade, idade_do_inicio_da_doenca, tempo_de_doenca, nivel_de_instrucao, bdi, escala_de_hoehn_e_yahr) %>% tableone::CreateTableOne(data=.)

                                       
                                        Overall      
  n                                        27        
  sexo (%)                                           
     feminino                               3 (11.1) 
     Feminino                              11 (40.7) 
     masculino                              1 ( 3.7) 
     Masculino                             12 (44.4) 
  tempo_de_doenca (mean (SD))            6.62 (3.37) 
  idade (mean (SD))                     65.11 (10.06)
  idade_do_inicio_da_doenca (mean (SD)) 58.38 (9.79) 
  nivel_de_instrucao (%)                             
     Fundamental Completo                   4 (14.8) 
     Fundamental Incompleto                 3 (11.1) 
     Médio Completo                         9 (33.3) 
     Médio Incompleto                       1 ( 3.7) 
     Pós Graduação                          1 ( 3.7) 
     Sem escolaridade                       1 ( 3.7) 
     Superior Completo                      8 (29.6) 
  bdi (mean (SD))                       16.96 (9.93) 
  escala_de_hoehn_e_yahr (mean (SD))     2.50 (0.67)

Correlação entre o BDI e Hoehn e Yahr

foi performados correlações produto momento de Pearson. Dessa forma, foi possível verificar a força e a direção de associação entre os desempenhos nos testes. O nível de significância foi fixado em 0.05. O ambiente estatístico R Studio foi utilizado para o processamento e análise de dados.

LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQojIFBhY290ZXMNCg0KDQpgYGAge3IgcGFja2FnZXMgfQ0KcGFjbWFuOjpwX2xvYWQoa25pdHIsDQprYWJsZUV4dHJhLA0KdGlkeXZlcnNlLA0KamFuaXRvciwNCnN1bW1hcnl0b29scywNCkRhdGFFeHBsb3JlciwNCnJlYWR4bCwNCnRhYmxlb25lLA0KcHN5Y2gsDQpzdHJpbmdyLA0KYXBhVGFibGUsDQphcnNlbmFsLA0KbGlrZXJ0LA0KYXBhVGFibGVzLA0KY29tcGFyZUdyb3VwcywNCm9sc3JyLA0KZXosDQpnZ3N0YXRzcGxvdCkNCmBgYA0KDQoNCiMgQ29kaWZpY2HDp8OjbyBlIENvbnNvbGlkYcOnw6NvIGRvcyBkYWRvcw0KDQpgYGB7cn0NCmRzIDwtIGNsZWFuX25hbWVzKGRzKQ0KDQpkcyAlPiUgbmFtZXMNCg0KYGBgDQoNCg0KDQojIEFuw6FsaXNlcyBEZXNjcml0aXZhcw0KDQpgYGB7cn0NCmRzICU+JSBzZWxlY3Qoc2V4bywgdGVtcG9fZGVfZG9lbmNhLCBpZGFkZSwgaWRhZGVfZG9faW5pY2lvX2RhX2RvZW5jYSwgdGVtcG9fZGVfZG9lbmNhLCBuaXZlbF9kZV9pbnN0cnVjYW8sIGJkaSwgZXNjYWxhX2RlX2hvZWhuX2VfeWFocikgJT4lIHRhYmxlb25lOjpDcmVhdGVUYWJsZU9uZShkYXRhPS4pDQpgYGANCg0KDQojIENvcnJlbGHDp8OjbyBlbnRyZSBvIEJESSBlIEhvZWhuIGUgWWFocg0KDQo+IGZvaSBwZXJmb3JtYWRvcyBjb3JyZWxhw6fDtWVzIHByb2R1dG8gbW9tZW50byBkZSBQZWFyc29uLiBEZXNzYSBmb3JtYSwgZm9pIHBvc3PDrXZlbCB2ZXJpZmljYXIgYSBmb3LDp2EgZSBhIGRpcmXDp8OjbyBkZSBhc3NvY2lhw6fDo28gZW50cmUgb3MgZGVzZW1wZW5ob3Mgbm9zIHRlc3Rlcy4gTyBuw612ZWwgZGUgc2lnbmlmaWPDom5jaWEgZm9pIGZpeGFkbyBlbSAwLjA1LiBPIGFtYmllbnRlIGVzdGF0w61zdGljbyBSIFN0dWRpbyBmb2kgdXRpbGl6YWRvIHBhcmEgbyBwcm9jZXNzYW1lbnRvIGUgYW7DoWxpc2UgZGUgZGFkb3MuDQoNCg0KPiANCg0KDQo=