PRIMER EJERCICIO
La tabla presenta la altura, en metros, de los arboles que se encuentran en 4 áreas de terreno.
a)Crear 4 vectores numéricos, de tal forma que cada uno guarde la altura de los arboles de cada área de terreno
area1 <- c(7.5, 12, 14.5, 0, 0, 0)
area1
## [1] 7.5 12.0 14.5 0.0 0.0 0.0
area2 <- c(12.5, 10.5, 13, 9, 18.5, 0)
area2
## [1] 12.5 10.5 13.0 9.0 18.5 0.0
area3 <- c(11, 8, 7.5, 9.5, 19, 14)
area3
## [1] 11.0 8.0 7.5 9.5 19.0 14.0
area4 <- c(12.5, 16, 9.5, 10, 0, 0)
area4
## [1] 12.5 16.0 9.5 10.0 0.0 0.0
b) Agrupar los 4 vectores generados, en una lista (estructura de datos)
areas <- data.frame(area1, area2, area3, area4)
areas
## area1 area2 area3 area4
## 1 7.5 12.5 11.0 12.5
## 2 12.0 10.5 8.0 16.0
## 3 14.5 13.0 7.5 9.5
## 4 0.0 9.0 9.5 10.0
## 5 0.0 18.5 19.0 0.0
## 6 0.0 0.0 14.0 0.0
SEGUNDA FORMA
x <- cbind(area1, area2, area3, area4)
x
## area1 area2 area3 area4
## [1,] 7.5 12.5 11.0 12.5
## [2,] 12.0 10.5 8.0 16.0
## [3,] 14.5 13.0 7.5 9.5
## [4,] 0.0 9.0 9.5 10.0
## [5,] 0.0 18.5 19.0 0.0
## [6,] 0.0 0.0 14.0 0.0
head(areas)
## area1 area2 area3 area4
## 1 7.5 12.5 11.0 12.5
## 2 12.0 10.5 8.0 16.0
## 3 14.5 13.0 7.5 9.5
## 4 0.0 9.0 9.5 10.0
## 5 0.0 18.5 19.0 0.0
## 6 0.0 0.0 14.0 0.0
c) Determinar, para cada area de terreno, si la altura del primer arbol es mayor a la del último árbol
head(areas)
## area1 area2 area3 area4
## 1 7.5 12.5 11.0 12.5
## 2 12.0 10.5 8.0 16.0
## 3 14.5 13.0 7.5 9.5
## 4 0.0 9.0 9.5 10.0
## 5 0.0 18.5 19.0 0.0
## 6 0.0 0.0 14.0 0.0
(areas[1,"area1"])>(areas[3,"area1"])
## [1] FALSE
(areas[1,"area2"])>(areas[5,"area2"])
## [1] FALSE
(areas[1,"area3"])>(areas[6,"area3"])
## [1] FALSE
(areas[1,"area4"])>(areas[4,"area4"])
## [1] TRUE
d) Determinar el logaritmo decimal de la altura del tercer arbol del área de terreno 3
log10(areas[3,"area3"])
## [1] 0.8750613
e) Determinar la suma de las alturas de los 3 primeros árboles del área de terreno 4
suma<- (areas[1,"area4"])+(areas[2,"area4"])+(areas[3,"area4"])
suma
## [1] 38
f) Determinar la altura media de los árboles del área de terreno 1.
area_1<-c(7.5, 12, 14.5)
area_1
## [1] 7.5 12.0 14.5
mean(area_1)
## [1] 11.33333
CALCULAR:
a)Elaborar un archivo de tipo texto (txt) que contenga los datos de la tabla anterior. Utilizar el tabulador para separar estos datos respecto de cada variable. Por favor, guardar este archivo en el escritorio de windows y llamarlo hospital.txt
b)Desde R leer el archivo antes mencionado y almacenar su contenido en una variable llamado datos
datos<-read.table(file = "C:/Users/Pame Pilataxi/Downloads/HOSPITAL.txt", header = TRUE, sep="\t")
datos
## SEXO PRESION.ARTERIAL PULSO.X.MIN
## 1 HOMBRE 119 59
## 2 MUJER 99 89
## 3 HOMBRE 102 107
## 4 HOMBRE 78 76
## 5 MUJER 78 91
c)Visualizar los valores para las 3 variables para el primer individuo y el cuarto individuo
datos[1,]
## SEXO PRESION.ARTERIAL PULSO.X.MIN
## 1 HOMBRE 119 59
datos[4,]
## SEXO PRESION.ARTERIAL PULSO.X.MIN
## 4 HOMBRE 78 76
d)Determine si la primera mujer (posición 2) tiene una presión arterial mayor que la segunda mujer (ubicada en la posición 5)
datos[2,"PRESION.ARTERIAL"]>datos[5,"PRESION.ARTERIAL"]
## [1] TRUE
e)Determinar la media del pulso de los hombres
media<-mean(c(datos[1,"PULSO.X.MIN"],datos[3,"PULSO.X.MIN"],datos[4,"PULSO.X.MIN"]))
media
## [1] 80.66667
f)Calcular la raíz cuadrada de la presión arterial del cuarto paciente
sqrt(datos[4,"PRESION.ARTERIAL"])
## [1] 8.831761
