Colaborador: phD.Francisco Valverde

TALLER 8

Realizar los siguientes ejercicios:

Ejercicio 1

La tabla presenta la altura, en metros, de los arboles que se encuentran en 4 áreas de terreno.

Resolver mediante el uso de R:
a) Crear 4 vectores numericos, de tal forma que cada uno guarde la altura de los arboles de cada area de terreno
area1<-c(7.5, 12, 14.5)
area2<-c(12.5, 10.5, 13, 9, 18.5)
area3<-c(11, 8, 7.5, 9.5, 19, 14)
area4<-c(12.5, 16, 9.5, 10)
# b) Agrupar los 4 vectores generados, en una lista
altura<-list(area1=c(7.5, 12, 14.5),
             area2=c(12.5, 10.5, 13, 9, 18.5),
             area3=c(11, 8, 7.5, 9.5, 19, 14),
             area4=c(12.5, 16, 9.5, 10))
altura
## $area1
## [1]  7.5 12.0 14.5
## 
## $area2
## [1] 12.5 10.5 13.0  9.0 18.5
## 
## $area3
## [1] 11.0  8.0  7.5  9.5 19.0 14.0
## 
## $area4
## [1] 12.5 16.0  9.5 10.0
c) Determinar, para cada area de terreno, si la altura del primer arbol es mayor a la del ultimo arbol
altura$area1[1] > altura$area1[3]
## [1] FALSE
altura$area2[1] > altura$area2[5]
## [1] FALSE
altura$area3[1] > altura$area3[6]
## [1] FALSE
altura$area4[1] > altura$area4[4]
## [1] TRUE
d) Determinar el logaritmo decimal de la altura del tercer arbol del area de terreno 3
log_natural<-log10(altura[[3]][3])
log_natural
## [1] 0.8750613
e) Determinar la suma de las alturas de los 3 primeros arboles del area del terreno 4
sum(altura$area4[1:3])
## [1] 38
f) Determinar la altura media de los arboles del area del terreno 1
altura_media <- mean(altura$area1)
altura_media
## [1] 11.33333

Ejercicio 2

La tabla recopila información de 5 pacientes (sexo, presión arterial y pulsos por minuto), atendidos en un hospital.

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.
b) Desde R leer el archivo antes mencionado y almacenar su contenido en una variable llamado datos
library(readr)
hospital<-read.table(file =  "hospital.txt", header = F, sep = "\t")

hospital
##       V1               V2          V3
## 1   Sexo Presión arterial Pulso x min
## 2 Hombre              119          59
## 3  Mujer               99          89
## 4 Hombre              102         107
## 5 Hombre               78          76
## 6  Mujer               78          91
c) Visualizar los valores para las 3 variables para el primer individuo y el cuarto individuo
hospital[1, ]
##     V1               V2          V3
## 1 Sexo Presión arterial Pulso x min
hospital[4, ]
##       V1  V2  V3
## 4 Hombre 102 107
d) Determine si la primera mujer (posision 2) tiene una presion arterial mayor que la seguna mujer (ubicada en en la misma posicion 5)
hospital$V2[2]>hospital$V2[5]
## [1] FALSE
e) Determinar la media del pulso de los Hombres
a<-print(hospital[[3]][1])
## [1] "Pulso x min"
a
## [1] "Pulso x min"
b<-print(hospital[[3]][3])
## [1] "89"
b
## [1] "89"
c<-print(hospital[[3]][4])
## [1] "107"
c
## [1] "107"
hombres<-c(a,b,c)

mean(hombres)
## Warning in mean.default(hombres): argument is not numeric or logical: returning
## NA
## [1] NA
f) Calcular la raiz cuadrada de la presion arterial del cuarto paciente
sqrt(78)
## [1] 8.831761