Ei Walmes,
Eu achei que seria mais facil dessa forma porque eu mesmo faria
rec.cum <- read.table("clipboard") # depois de um ctrl+c
Mas de qualquer forma segue o dput
> dput(rec.cum)
structure(list(b2 = structure(1:20, label = "Número de rastreamento", class = c("labelled",
"integer")), r3 = structure(c(16169, 16175, 16176, 16206, 16218,
16280, 16309, 16350, 16365, 16370, 16372, 16384, 16384, 16393,
16406, 16412, 16491, 16497, 16504, 16511), class = c("labelled",
"Date"), label = "Data do início da avaliação"), r24 = structure(c(2L,
1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 1L, 2L, 2L, 2L,
2L, 2L, 2L), .Label = c("Não", "Sim"), class = c("labelled",
"factor"), label = "Apto a ser voluntário"), r25 = structure(c(16169,
16175, 16176, 16206, 16218, 16280, 16309, 16351, 16365, 16370,
16372, 16384, 16384, 16393, 16406, 16412, 16491, 16497, 16504,
16511), class = c("labelled", "Date"), label = "Data do fim da avaliação de recrutamento")), .Names = c("b2",
"r3", "r24", "r25"), row.names = c(1L, 10L, 12L, 21L, 29L, 36L,
43L, 50L, 56L, 62L, 79L, 85L, 90L, 94L, 95L, 96L, 101L, 102L,
103L, 105L), class = "data.frame")
abraço forte,