lucianaprova.r

Luciana — Sep 25, 2013, 3:03 PM

idade=c(22,20,47,17,23,23,22,21,32,18,27,22,21,20,23,20,27,21,20,19)
sexo=c("homem","homem","homem","homem","homem","mulher","mulher","mulher","mulher","mulher")
pontosbrutos=c(23,26,27,27,24,21,29,27,28,26,28,18,26,26,23,25,22,24,29)
qi=c(110,115,127,121,121,125,91,134,121,136,115,127,96,115,115,110,109,94,103,134)
class.intelig=c("mediasuperior","mediasuperior","superior","mediasuperior","superior","superior","media","muitosuperior","superior","muitosuperior","mediasuperior","superior","media","mediasuperior","mediasuperior","mediasuperior","media","media","media","muitosuperior")
sd(idade)

[1] 6.552

mean(idade)

[1] 23.25

table(sexo)

sexo
 homem mulher 
     5      5 

prop.table(table(sexo))

sexo
 homem mulher 
   0.5    0.5 

escolaridade=c("superiorincompleto","superiorincompleto","superiorcompleto","superiorincompleto","superiorincompleto","superiorincompleto","ensinomedio","superiorincompleto","superiorcompleto","superiorincompleto","superiorcompleto","superiorincompleto","ensinomedio","superiorincompleto","superiorcompleto","ensinomedio","superiorincompleto","superiorincompleto","superiorincompleto","superiorincompleto")
table(escolaridade)

escolaridade
       ensinomedio   superiorcompleto superiorincompleto 
                 3                  4                 13 

prop.table(table(escolaridade))

escolaridade
       ensinomedio   superiorcompleto superiorincompleto 
              0.15               0.20               0.65 

median(pontosbrutos)

[1] 26

mean(pontosbrutos)

[1] 25.21

table(pontosbrutos)

pontosbrutos
18 21 22 23 24 25 26 27 28 29 
 1  1  1  2  2  1  4  3  2  2 

max(pontosbrutos)

[1] 29

min(pontosbrutos)

[1] 18

range(pontosbrutos)

[1] 18 29

var(pontosbrutos)

[1] 8.287

sd(pontosbrutos)

[1] 2.879

median(qi)

[1] 115

mean(qi)

[1] 116

table(qi)

qi
 91  94  96 103 109 110 115 121 125 127 134 136 
  1   1   1   1   1   2   4   3   1   2   2   1 

max(qi)

[1] 136

min(qi)

[1] 91

range(qi)

[1]  91 136

var(qi)

[1] 171

sd(qi)

[1] 13.08

boxplot(qi)

hist(pontosbrutos)

table(class.intelig)

class.intelig
        media mediasuperior muitosuperior      superior 
            5             7             3             5 

prop.table(table(class.intelig))

class.intelig
        media mediasuperior muitosuperior      superior 
         0.25          0.35          0.15          0.25 

pie(table((class.intelig)))