> 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