> attach(dados)
> tapply(CT,Momento,summary)
$Alternativa
Min. 1st Qu. Median Mean 3rd Qu. Max.
9.0 10.0 45.0 259.2 192.5 3100.0
$Atual
Min. 1st Qu. Median Mean 3rd Qu. Max.
9
9019 230000 5849000 2350000 107300000
> tapply(CT,Momento,sd)
Alternativa Atual
6.437986e+02
1.613285e+07