Estadistica

X=read.table("C:/estadistica.txt",header=T)
X
PROFESION
attach(X)
fi=table(PROFESION)
hi=fi/sum(fi)
tabla=cbind(fi,hi)
tabla
fi hi
CARRERA 93 0.4386792
TECNICA 59 0.2783019
TECNOLOGIA 60 0.2830189


EDAD
attach(X)
fi=table(EDAD)
hi=fi/sum(fi)
tabla=cbind(fi,hi)
tabla
fi hi
16 1 0.004716981
17 29 0.136792453
18 540.254716981
19 45 0.212264151
20 43 0.202830189
21 22 0.103773585
22 8 0.037735849
23 1 0.004716981
25 9 0.042452830

ESTRATO
attach(X)
fi=table(ESTRATO)
hi=fi/sum(fi)
tabala=cbind(fi,hi)
tabla
fi hi
16 1 0.004716981
17 29 0.136792453
18 54 0.254716981
19 45 0.212264151
20 43 0.202830189
21 22 0.103773585
22 8 0.037735849
23 1 0.004716981
25 90.042452830
PAGO
attach(X)
fi=table(PAGO)
hi=fi/sum(fi)
tabla=cbind(fi,hi)
tabla
fi hi
BECADO 8 0.03773585
CHEQUE 6 0.02830189
CONTADO 145 0.68396226
FINANCIADO 29 0.13679245
FONDOEPM 24 0.11320755

SEMESTRE
attach(X)
fi=table(SEMESTRE)
hi=fi/sum(fi)
tabla=cbind(fi,hi)
tabla
fi hi
1 15 0.07075472
2 48 0.22641509
3 1040.49056604
4 40 0.18867925
5 5 0.02358491

TARNSPORTE
attach(X)
fi=table(TRANSPORTE)
hi=fi/sum(fi)
tabla=cbind(fi,hi)
tabla
fi hi
AUTOMOVIL 20 0.094339623
BUS 129 0.608490566
METRO 46 0.216981132
MOTO 16 0.075471698
PIE 1 0.004716981
PROGRAMA
attach(X)
fi=table(PROGRAMA)
hi=fi/sum(fi)
tabla=cbind(fi,hi)
tablafi hi
ADMINISTRACION 24 0.113207547
CONTADURIA 30 0.141509434
DISEÑOGRAF 38 0.179245283
ELECTRONICA 12 0.056603774
GESTIONCONT 2 0.009433962
GESTIONEMP 6 0.028301887
GESTIONFIN 6 0.028301887
INGENIERIAELE 4 0.018867925
INGENIERIAIND 22 0.103773585
INGENIERIASIST 3 0.014150943
MERCADEO 36 0.169811321
NEGOCIOSINT 18 0.084905660
SISTEMAS11 0.051886792

BARRAS PROFESION
barplot(table(X$PROFESION),xlab="PROFESION",ylab="frecuencia",col=c("blue","green","yellow"))

ANALISIS:
ESTA ES LA BARRA DE PROFESION Y MUESTRA COMO HAY (16) PERSONAS QUE ESTUDIAN CARRERA, (9) DE TECNOLOGIA Y (1) TECNICA

BARARS PROGARMAbarplot(table(X$PROGRAMA),clab="PROGRAMA",ylab="frecuencia",col=c("blue","green","yellow","red","black","orange","white","pink","purple","grey","brown","maroon"))

ANALISIS:
ESTA ES LA BARRA DE PROGRAMA Y EN ESTA SE VISUALIZA QUE EN ADMINISTARCION, ELECTRONICA, INGENIERIA DE SISTEMAS , GESTION FINANCIERA E EMPRSEARIAL, INGENIERIA ELECTRONICA HAY MENOS PERSONAS DANDOSE UN TOTAL DE (6) DE CADA UNO UNA SOLA PERSONA, AL CONTARRIO EN INGENIERIA INDUSTRIAL (7),DISEÑO GRAFICO (3), NEGOCIOS INTERNACIONALES(2), EN CONTADURIA (5) Y MERACDEO (4).

BARRAS TRANSPORTE
barplot(table(X$TRANSPORTE),clab="TRANSPORTE",ylab="frecuencia",col=c("blue","green","yellow","red","black"))

ANALISIS:
ESTA ES LA BARRA DE TRANSPORTE Y EN ESTA SE OBSERVA QUE LA MAYORIA (21) DE PERSONAS VIAJAN EN BUS, 3 SE VAN EN METRO, 2 EN MOTO Y UNA A PIE(CAMINANDO)

BARRAS PAGObarplot(table(X$PAGO),clab="PAGO",ylab="frecuencia",col=c("blue","green","yellow","orange"))

ANALISIS:
EN ESTA BARRA SE DEMUESTRA QUE 17 DE LAS PERSONAS PAGAN DE CONTADO, EL RESTO SON: 1 BECADO, 1 CHEQUE, 4 FINANCIADOS, 4 DEL FONDO EPM.

BARRAS SEMESTRE
barplot(table(X$SEMESTRE),clab="SEMESTRE",ylab="frecuencia",col=c("blue","green","yellow","orange","black"))

ANALISIS:
EN ESTA BARRA SE DEDUCE QUE EL SEMESTRE 3 TIENE 14 PERSONAS, EL2 TIENE 7, EL 4 TIENE 3, EL 1 TIENE 2 Y EL 5 TIENE 1.

BARRAS EDAD
barplot(table(X$EDAD),clab="EDAD",ylab="frecuencia",col=c("blue","green","yellow","red","black","orange"))

ANALISIS:
EN LAS BARRAS DE EDAD SE OBSERVA QUE LA MAYORIA (23) DE LOS ESTUDIANTES SE ENCUENTRAN EN LOS 17, 18, 19 Y 20(CON MAYOR #), MIENTRAS QUE DE LOS 21 A LOS 25 HAY UNA MINORIA DE 4 PERSONAS.

BARARS ESTRATO...