UNIVERSIDAD CENTRAL DEL ECUADOR

FACULTAD DE CIENCIAS ECONOMICAS

SISTEMAS DE INFORMACIÓN GEOGRÁFICA

Autores

-Johann Tul
-Bryan Venegas

PROBLEMA 1

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

  1. 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)
Area2 <- c(12.5,10.5,13,9,8.5)        
Area3 <- c(11,8,7.5,9.5,19,14)        
Area4 <- c(12.5,16,9.5,10)
  1. Agrupar los 4 vectores generados, en una lista (estructura de datos) Utilizamos el comando list para agrupar nuestros 4 vectores
Areas <- list(Area1,Area2,Area3,Area4)
names(Areas) <- c("Area1","Area2","Area3","Area4")
Areas
## $Area1
## [1]  7.5 12.0 14.5
## 
## $Area2
## [1] 12.5 10.5 13.0  9.0  8.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
  1. Determinar, para cada area de terreno, si la altura del primer árbol es mayor a la del último árbol

Utilizamos el signo $ para llamar a nuestro vector en especifico de nuestra lista y con [] comparamos las alturas

Areas$Area1[1] > Areas$Area1[3]
## [1] FALSE
Areas$Area2[1] > Areas$Area2[5]
## [1] TRUE
Areas$Area3[1] > Areas$Area3[6]
## [1] FALSE
Areas$Area4[1] > Areas$Area4[4]
## [1] TRUE
  1. Determinar el logaritmo decimal de la altura del tercer arbol del área de terreno 3 Asignamos a logaritmo la funcion de logaritmo base 10 de nuestro tecer árbol del vector Área 3
logaritmo<-log10(Areas[[3]][3])
logaritmo
## [1] 0.8750613
  1. Determinar la suma de las alturas de los 3 primeros árboles del área de terreno 4 Utilizamos la funcion sum y utilizamos el signo $ para llamar a nuestra Área 4 de nuestro listado
sum(Areas$Area4[1:3])
## [1] 38
  1. Determinar la altura media de los árboles del área de terreno 1. Utilizamos la funcion Mean de nuestro listado
mean(Areas[[1]])
## [1] 11.33333

PROBLEMA 2

  1. 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 llamario hospital.txt

  2. Desde R leer el archivo antes mencionado y almacenar su contenido en una variable llamado datos

sexo <- c("Hombre","Mujer","Hombre","Hombre","Mujer")
pre_arte <- c(119,99,102,78,78)
pu_min <- c(59,89,107,76,91)

tabla <- data.frame(sexo,pre_arte,pu_min) 
names(tabla) <- c("SEXO","PRESION ARTERIAL","PULSO POR MIN.")
tabla
##     SEXO PRESION ARTERIAL PULSO POR MIN.
## 1 Hombre              119             59
## 2  Mujer               99             89
## 3 Hombre              102            107
## 4 Hombre               78             76
## 5  Mujer               78             91
write.table(tabla,"Hospital.txt", sep= )

datos <- read.table(file="C:\\Users\\Bryan\\OneDrive - Universidad Central del Ecuador\\Escritorio\\hospital.txt", header = T, sep =)
  1. Visualizar los valores para las 3 variables para el primer individuo y el cuarto individuo
datos[c(1,4), ]
##     SEXO PRESION.ARTERIAL PULSO.POR.MINUTO
## 1 Hombre              119               59
## 4 Hombre               78               76
  1. Determine si la primera mujer (posición 2) tiene una presión arterial mayor que la segunda mujer (ubicada en la posición 5)
primera_mujer <- datos[3,2]
segunda_mujer <- datos[5,2]

primera_mujer > segunda_mujer
## [1] TRUE
  1. Determinar la media del pulso de los hombres
hombres <- c(datos[1,2],datos[3,2],datos[4,2])
hombres
## [1] 119 102  78
mean(hombres)
## [1] 99.66667
  1. Calcular la raiz cuadrada de la presion arterial del cuarto paciente
sqrt(datos[4,2])
## [1] 8.831761