UCE
UCE

UNIVERSIDAD CENTRAL DEL ECUADOR

FACULTAD DE CIENCIAS ECONÓMICAS

CARRERA DE ECONOMÍA

SISTEMAS DE INFORMACIÓN APLICADOS A LA ECONOMÍA

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.

Área1 <- c(7.5, 12,14.5)
Área1
## [1]  7.5 12.0 14.5
Área2 <- c(12.5,10.5,13,9,8.5) 
Área2
## [1] 12.5 10.5 13.0  9.0  8.5
Área3 <- c(11,8,7.5,9.5,19,14)
Área3
## [1] 11.0  8.0  7.5  9.5 19.0 14.0
Área4 <- c(12.5,16,9.5,10) 
Área4 
## [1] 12.5 16.0  9.5 10.0

b) Agrupar los 4 vectores generados, en una lista (estructura de datos).

Área1 <- c(7.5, 12,14.5)
Área2 <- c(12.5,10.5,13,9,8.5)        
Área3 <- c(11,8,7.5,9.5,19,14)        
Área4 <- c(12.5,16,9.5,10) 
Áreas <- list(Área1,Área2,Área3,Área4)
names(Áreas) <- c("Área1","Área2","Área3","Área4")
Áreas
## $Área1
## [1]  7.5 12.0 14.5
## 
## $Área2
## [1] 12.5 10.5 13.0  9.0  8.5
## 
## $Área3
## [1] 11.0  8.0  7.5  9.5 19.0 14.0
## 
## $Área4
## [1] 12.5 16.0  9.5 10.0

c) Determinar, para cada área de terreno, si la altura del primer árbol es mayor a la del último árbol.

Área1 <- c(7.5, 12,14.5)
Área2 <- c(12.5,10.5,13,9,8.5)        
Área3 <- c(11,8,7.5,9.5,19,14)        
Área4 <- c(12.5,16,9.5,10) 
Áreas$Área1[1] > Áreas$Área1[3]
## [1] FALSE
Áreas$Área2[1] > Áreas$Área2[5]
## [1] TRUE
Áreas$Área3[1] > Áreas$Área3[6]
## [1] FALSE
Áreas$Área4[1] > Áreas$Área4[4]
## [1] TRUE

d) Determinar el logaritmo decimal de la altura del tercer árbol del área del terreno 3.

Área1 <- c(7.5, 12,14.5)
Área2 <- c(12.5,10.5,13,9,8.5)        
Área3 <- c(11,8,7.5,9.5,19,14)        
Área4 <- c(12.5,16,9.5,10) 
logaritmo<-log10(Áreas[[3]][3])
logaritmo
## [1] 0.8750613

e) Determinar la suma de las alturas de los 3 primeros árboles del área del terreno 4.

Área1 <- c(7.5, 12,14.5)
Área2 <- c(12.5,10.5,13,9,8.5)        
Área3 <- c(11,8,7.5,9.5,19,14)        
Área4 <- c(12.5,16,9.5,10) 
sum(Áreas$Área4[1:3])
## [1] 38

f) Determinar la altura media de los árboles del área del terreno 1.

Área1 <- c(7.5, 12,14.5)
Área2 <- c(12.5,10.5,13,9,8.5)        
Área3 <- c(11,8,7.5,9.5,19,14)        
Área4 <- c(12.5,16,9.5,10) 
mean(Áreas[[1]])
## [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.

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.

#file.choose()
"C:\\Users\\danig\\OneDrive\\Escritorio\\hospital.txt"
## [1] "C:\\Users\\danig\\OneDrive\\Escritorio\\hospital.txt"

b) Desde R leer el archivo antes mencionado y almacenar su contenido en una variable llamada “datos”.

datos <- read.table(file="C:\\Users\\danig\\OneDrive\\Escritorio\\hospital.txt", header = TRUE, sep ="," )
datos
##     Sexo Presión_Arterial Pulso_por_Minuto
## 1 Hombre              119               59
## 2  Mujer               99               89
## 3 Hombre              102              107
## 4 Hombre               78               76
## 5  Mujer               78               91

c) Visualizar los valores de las 3 variables para el primer individuo y el cuarto individuo.

datos[c(1,4),]
##     Sexo Presión_Arterial Pulso_por_Minuto
## 1 Hombre              119               59
## 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).

M1 <- datos[2,2]
M1
## [1] 99
M2 <- datos[5,2]
M2
## [1] 78
M1>M2
## [1] TRUE

e) Determinar la media del pulso de los hombres.

x <-datos$Pulso_por_Minuto
x
## [1]  59  89 107  76  91
Media <-mean(x)
Media
## [1] 84.4

f) Calcular la raíz cuadrada de la presión arterial del cuarto paciente.

x <- datos[4,2]
x
## [1] 78
sqrt(x)
## [1] 8.831761