UNIVERSIDAD CENTRAL DEL ECUADOR

FACULTAD DE CIENCIAS ECONÓMICAS

INGENIERÍA EN ESTADÍSTICA

GRUPO 1

Autores: Alexander Cueva, Alexander Jiménez, Ismael Montesdeoca, Saúl Quishpe

Docente: Ing. Francisco Valverde

EJERCICIO 1:

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

A1 <- c(7.5, 12,14.5)
A2 <- c(12.5,10.5,13,9,8.5)        
A3 <- c(11,8,7.5,9.5,19,14)        
A4 <- c(12.5,16,9.5,10)

B.- Agrupar los 4 vectores generados, en una lista (estructura de datos). Utilizamos el comando list para agrupar nuestros 4 vectores

LISTA1 <- list(A1,A2,A3,A4)
names(LISTA1) <- c("Area1","Area2","Area3","Area4")
LISTA1
## $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

c.-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

LISTA1$A1[1] > LISTA1$A1[3]
## logical(0)
LISTA1$A2[1] > LISTA1$A2[5]
## logical(0)
LISTA1$A3[1] > LISTA1$A3[6]
## logical(0)
LISTA1$A4[1] > LISTA1$A4[4]
## logical(0)

D.- 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

ln<-log10(LISTA1[[3]][3])
ln
## [1] 0.8750613

E.-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(LISTA1$A4[1:3])
## [1] 0

F.-Determinar la altura media de los árboles del área de terreno 1. Utilizamos la funcion Mean de nuestro listado

mean(LISTA1[[1]])
## [1] 11.33333

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

B.- 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= )

EJERCICI2 <- read.table(file="C:\\Users\\Pc\\OneDrive - Universidad Central del Ecuador\\Hospital.txt", header = T, sep =)

C.- Visualizar los valores para las 3 variables para el primer individuo y el cuarto individuo

EJERCICI2[c(1,4), ]
##     SEXO PRESION.ARTERIAL PULSO.POR.MIN.
## 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)

primera_mujer <- EJERCICI2[3,2]
segunda_mujer <- EJERCICI2[5,2]

primera_mujer > segunda_mujer
## [1] TRUE

E.- Determinar la media del pulso de los Hombres

hombres <- c(EJERCICI2[1,2],EJERCICI2[3,2],EJERCICI2[4,2])
hombres
## [1] 119 102  78
mean(hombres)
## [1] 99.66667

F.- Calcular la raiz cuadrada de la presion arterial del cuarto paciente

sqrt(EJERCICI2[4,2])
## [1] 8.831761