caixeta$dap <- caixeta$cap/pi 
str(caixeta)