Topografia

ORTIZ HERNANDEZ JUAN PABLO
PRACTICA NUMERO 4
D <- read.table(file.choose(),header=TRUE,sep=" ")
names(D)
table(D$Operador,D$Dia) ->T
prop.table(T)

#a) P(B y Martes)
prop.table(T)["B","Martes"]

#b) P(B | Martes)
prop.table(T,2)["B","Martes"]

#c) P(Martes | B)
prop.table(T,1)["B","Martes"]

#d) P(B)
margin.table(prop.table(T),1)["B"]

#e) P(jueves)margin.table(prop.table(T),2)["Jueves"]

# "PROBLEMA 2"
#Como crear una tabla a mano

R <- matrix(c(8,12,21,18,15,7),nrow=2,byrow=TRUE)

rownames(T)<-c("Poca violencia","violencia")

colnames(T)<-c("16-34","35-55","55+")

_____________________________________________________________________________________

> D <- read.table(file.choose(),header=TRUE,sep=" ")
>
> names(D)
[1]"Operador" "Dia" "Mes" "Defecto"
> table(D$Operador,D$Dia) -> T
> T

Jueves Lunes Martes Miércoles Viernes
A 73 61 25 35 101
B 48 42 27 25 70
C 58 55 27 21 70
> prop.table(T)[2,3]
[1] 0.03658537
> prop.table(T)["B","Martes"]
[1] 0.03658537
> prop.table(T,2)["B","Martes"]
[1]0.3417722
> prop.table(T,1)["B","Martes"]
[1] 0.1273585
> margin.table(prop.table(T),1)["B"]
B
0.2872629
> prop.table(T)["A","Jueves"]
[1] 0.09891599
> T <- matrix(c(8,12,21,18,15,7),nrow=2,byrow=TRUE)
> T
[,1] [,2] [,3]
[1,] 8 12 21
[2,] 18 15 7
> rownames(T)<-c("Poca violencia","violencia")
>
> T
[,1] [,2][,3]
Poca violencia 8 12 21
violencia 18 15 7
> colnames(T)<-c("16-34","35-55","55+")
> T
16-34 35-55 55+
Poca violencia 8 12 21
violencia 18 15 7
>
_____________________________________________________________________________________
Operador Dia Mes Defecto
B Jueves Enero Reventado.de.piel
B Viernes FebreroReventado.de.piel
A Miércoles Marzo Mal.montado
A Miércoles Febrero Piel.arrugada
A Lunes Enero Falla.en.las.costuras
C Viernes Marzo Reventado.de.piel
C Jueves Marzo Falla.en.las.costuras
C Viernes Marzo Mal.montado
B Viernes Marzo Reventado.de.piel
B Viernes Enero Reventado.de.piel
C Lunes Marzo Piel.arrugada
B Viernes Enero Falla.en.las.costuras
C Viernes Marzo Reventado.de.piel
B MartesEnero Reventado.de.piel
C Viernes Febrero Reventado.de.piel
A Miércoles Marzo Piel.arrugada
A Miércoles Enero Reventado.de.piel
C Viernes Enero Mal.montado
C Viernes Febrero Piel.arrugada
C Viernes Febrero Reventado.de.piel
B Jueves Febrero Reventado.de.piel
C Jueves Febrero Reventado.de.piel
B Viernes Enero Piel.arrugada
B Lunes Marzo Reventado.de.piel
B Lunes Enero Reventado.de.pielA Jueves Enero Reventado.de.piel
A Miércoles Marzo Reventado.de.piel
C Lunes Enero Reventado.de.piel
C Jueves Marzo Reventado.de.piel
A Viernes Enero Reventado.de.piel
C Viernes Enero Reventado.de.piel
A Jueves Marzo Reventado.de.piel
A Jueves Marzo Mal.montado
A Lunes Enero Mal.montado
B Jueves Enero Reventado.de.piel
B Viernes Marzo Reventado.de.piel
C Viernes EneroFalla.en.las.costuras
C Viernes Marzo Reventado.de.piel
C Martes Enero Falla.en.las.costuras
C Jueves Marzo Mal.montado
A Lunes Febrero Piel.arrugada
B Viernes Marzo Mal.montado
B Jueves Marzo Reventado.de.piel
B Viernes Marzo Reventado.de.piel
A Lunes Enero Falla.en.las.costuras
C Jueves Marzo Mal.montado
A Lunes Febrero Reventado.de.piel
C Jueves Marzo Reventado.de.piel
C Martes EneroReventado.de.piel
C Miércoles Marzo Reventado.de.piel
B Viernes Febrero Reventado.de.piel
A Lunes Febrero Reventado.de.piel
C Miércoles Febrero Reventado.de.piel
A Jueves Febrero Falla.en.las.costuras
A Jueves Enero Reventado.de.piel
C Miércoles Marzo Piel.arrugada
C Martes Marzo Piel.arrugada
C Lunes Marzo Mal.montado
A Jueves Enero Piel.arrugada
B Viernes Febrero Piel.arrugada
C Lunes Marzo...