“Grupo 3” ” Integrantes: Ayala Tania” ” Callatasig Katherine” ” Iñiguez Yessica” ” Vera Melany”

####        EJERCICIO 1    #####
#La tabla presenta la altura, en metros, de los Árboles que se encuentran en 4 Áreas de terreno.
#Resolver mediante el uso de R :

#a) Crear 4 vectores numéricos, de tal forma que cada uno guarde la altura de los Árboles de cada Área de terreno.
#Se asigna a cada una de las variables los valores que van a almacenar los vectores.
Area_1<-c(7.5,12,14.5)
Area_2<-c(12.5,10.5,13,9,18.5)
Area_3<-c(11,8,7.5,9.5,19,14)
Area_4<-c(12.5,16,9.5,10)
#Se hace el llamado a las variables para verificar los vectores creados.
Area_1
## [1]  7.5 12.0 14.5
Area_2
## [1] 12.5 10.5 13.0  9.0 18.5
Area_3
## [1] 11.0  8.0  7.5  9.5 19.0 14.0
Area_4
## [1] 12.5 16.0  9.5 10.0
#b) Agrupar los 4 vectores generados, en una lista (estructura de datos)
#Se asigna a una nueva variable con la función list junto a los 4 vectores generados para la creación de una lista.
Area<- list(Area_1,Area_2,Area_3,Area_4)
#Se utiliza la función name para observar el nombre de los vectores
names(Area)<-c("AREA 1","AREA 2","AREA 3","AREA 4")
#Se hace el llamado a la variable para observar los nombres de los vectores.
Area
## $`AREA 1`
## [1]  7.5 12.0 14.5
## 
## $`AREA 2`
## [1] 12.5 10.5 13.0  9.0 18.5
## 
## $`AREA 3`
## [1] 11.0  8.0  7.5  9.5 19.0 14.0
## 
## $`AREA 4`
## [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 Último Árbol

#Area1
#Se asigna a una nueva varible, las posiciones de la lista creada para que identifique los valores que se requiere comparar. 
a1<-Area[[1]][1]
a2<-Area[[1]][3]
#Mediante la función if y else se realiza la comparación y se utiliza la función cat para que refleje el resultado en la consola.
if (a1>a2) {cat(a1, "Es la altura mayor a la del Último Árbol \n")} else {cat(a2, "Es la altura mayor a la del primer Árbol \n")}
## 14.5 Es la altura mayor a la del primer Árbol
#Area2
#Se asigna a una nueva varible, las posiciones de la lista creada para que identifique los valores que se requiere comparar. 
b1<-Area[[2]][1]
b2<-Area[[2]][5]
#Mediante la función if y else se realiza la comparación y se utiliza la función cat para que refleje el resultado en la consola.
if (b1>b2) {cat(b1, "Es la altura mayor a la del Último Árbol \n")} else {cat(b2, "Es la altura mayor a la del primer Árbol \n")}
## 18.5 Es la altura mayor a la del primer Árbol
#Area3
#Se asigna a una nueva varible, las posiciones de la lista creada para que identifique los valores que se requiere comparar.
c1<-Area[[3]][1]
c2<-Area[[3]][6]
#Mediante la función if y else se realiza la comparación y se utiliza la función cat para que refleje el resultado en la consola.
if (b1>b2) {cat(c1, "Es la altura mayor a la del Último Árbol \n")} else {cat(c2, "Es la altura mayor a la del primer Árbol \n")}
## 14 Es la altura mayor a la del primer Árbol
#Area4
#Se asigna a una nueva varible, las posiciones de la lista creada para que identifique los valores que se requiere comparar.
d1<-Area[[4]][1]
d2<-Area[[4]][4]
#Mediante la función if y else se realiza la comparación y se utiliza la función cat para que refleje el resultado en la consola.
if (b1>b2) {cat(d1, "Es la altura mayor a la del Último Árbol \n")} else {cat(d2, "Es la altura mayor a la del primer Árbol \n")}
## 10 Es la altura mayor a la del primer Árbol
#d) Determinar el logaritmo decimal de la altura del tercer arbol del Área de terreno 3.

#Se  asigna a una nueva variable con la función print para que contenga el valor de la lista según la posición requerida.
log <- print(Area[[3]][[3]])  
## [1] 7.5
#Se asigna una nueva variable en donde se calcula el logaritmo decimal.
l<-log10(log)
#Se hace el llamado a la variable para observar el resultado.
l
## [1] 0.8750613
#e)Determinar la suma de las alturas de los 3 primeros Árboles del Área de terreno 4

#Se  asigna a nuevas variables con la función print para que contenga el valor de la lista según la posición requerida.
altura1<-print(Area[[4]][[1]])
## [1] 12.5
altura2<-print(Area[[4]][[2]])
## [1] 16
altura3<-print(Area[[4]][[3]])
## [1] 9.5
#Se  asigna a una variable para que sume las 3 alturas.
suma<-altura1+altura2+altura3
#Se utiliza la función cat para que refleje la respuesta en la consola.
cat("La suma de las alturas de los 3 primeros rboles del Área del terreno 4 es", suma)
## La suma de las alturas de los 3 primeros rboles del Área del terreno 4 es 38
#f)Determinar la altura media de los Árboles del Área de terreno 1.

#Mediante la función mean se calcula la media de los Árboles del Área del terreno 1
mean(Area[[1]])
## [1] 11.33333

EJERCICIO 2

####        EJERCICIO 2    #####

#   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

#Se utiliza file.choose() para exportar el archivo de texto,cuando se ejecuta en la consola el URL del archivo,
#se lo vuelve a ejecutar para guardar la información.
file.choose()
## [1] "C:\\Users\\pc1\\Downloads\\Hospital.txt"
"C:\\Users\\pc1\\Downloads\\Hospital.txt"
## [1] "C:\\Users\\pc1\\Downloads\\Hospital.txt"
#   b)Desde R leer el archivo antes mencionado y almacenar su contenido en una variable llamado datos.

#Se utiliza la función read.table para reflejar la tabla que se realizá en el archivo de texto.
datos<- read.table(file="C:\\Users\\pc1\\Downloads\\Hospital.txt",header= FALSE, sep ="", dec = "." )
## Warning in read.table(file = "C:\\Users\\pc1\\Downloads\\Hospital.txt", :
## incomplete final line found by readTableHeader on
## 'C:\Users\pc1\Downloads\Hospital.txt'
datos
##       V1  V2  V3
## 1 Hombre 119  59
## 2  Mujer  99  89
## 3 Hombre 102 107
## 4 Hombre  78  76
## 5  Mujer  78  91
# Para cambiar el nombre de las variables utilizamos la función "names"
names(datos)<-c("SEXO  ","PRESIÓN ARTERIAL" ,"PULSO X MIN")
datos
##   SEXO   PRESIÓN 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[c(1,4), ]
##   SEXO   PRESIÓN ARTERIAL PULSO X MIN
## 1 Hombre              119          59
## 4 Hombre               78          76
# Para calcular de forma individual se lo realiza así:
#Primer individuo
datos[1, ]
##   SEXO   PRESIÓN ARTERIAL PULSO X MIN
## 1 Hombre              119          59
#Cuarto individuo
datos[4, ]
##   SEXO   PRESIÓN 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)
#Posición 2 de la Mujer
datos$`PRESIÓN ARTERIAL`[2]
## [1] 99
#Posición 5 de la otra Mujer
datos$`PRESIÓN ARTERIAL`[5]
## [1] 78
#Comprobar que la 1ra mujer tiene la presión arterial más alta que la 2da mujer.
datos$`PRESIÓN ARTERIAL`[2]>datos$`PRESIÓN ARTERIAL`[5]
## [1] TRUE
#   e)Determinar la media del pulso de los hombres.
datos[c(1,3,4),3]
## [1]  59 107  76
mean(datos[c(1,3,4),3])
## [1] 80.66667
#Para redondear la media del pulso de los hombres se utiliza la función "mean".
round(mean(datos[c(1,3,4),3]),digits=2)
## [1] 80.67
#   f)Calcular la raíz cuadrada de
#la presión arterial del cuarto paciente.
datos$`PRESIÓN ARTERIAL`[4]
## [1] 78
#Para determinar la raíz cuadrada se utiliza "sqrt"-
sqrt(datos$`PRESIÓN ARTERIAL`[4])
## [1] 8.831761
#Para redondear la raíz cuadrada se utiliza el "round".
round(sqrt(datos$`PRESIÓN ARTERIAL`[4]),digits = 2)
## [1] 8.83