Desculpem, eu ainda não consegui rodar por causa que ele não reconhece este objeto “a”. É necessário montar um arquivo e chamar com o read.table?

 

> dput(a[sample(1:nrow(a),100),c("Hosp_Death","SAPS3Pro2")])

Error in dput(a[sample(1:nrow(a), 100), c("Hosp_Death", "SAPS3Pro2")]) :

  object 'a' not found