caixeta$dap <- NA 
str(caixeta)