UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD DE CIENCIAS ECONÓMICAS
CARRERA DE ESTADÍSTICA

Autores:

Grupo 5

Trabajo sobre Data Frames

Realizar los siguientes ejercicios:

EJERCICIO N°1

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

Area 1 Area 2 Area 3 Area 4
7.5 12,5 11 12,5
12 10,5 8 16
14,5 13 7,5 9,5
9 9,5 10
18,5 19
14

Resolver mediante el uso de R :

a) Crear 4 vectores numéricos, de tal forma que cada uno guarde la altura de los arboles de cada área de terreno.

Proceso: Creamos los 4 vectores que representan cada area

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 (estructura de datos)

Proceso: Creamos la lista usando la Función list() con los vectores antes creados

areas <- list(area1,area2,area3,area4)
areas
## [[1]]
## [1]  7.5 12.0 14.5
## 
## [[2]]
## [1] 12.5 10.5 13.0  9.0 18.5
## 
## [[3]]
## [1] 11.0  8.0  7.5  9.5 19.0 14.0
## 
## [[4]]
## [1] 12.5 16.0  9.5 10.0

Damos nombres a cada columna de la lista

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 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 último árbol

Proceso: Usando [] llamamos al elemento del vector que queremos comparar

areas$Area1[1] > areas$Area1[3]
## [1] FALSE
areas$Area2[1] > areas$Area2[5]
## [1] FALSE
areas$Area3[1] > areas$Area3[6]
## [1] FALSE
areas$Area4[1] >areas$Area4[4]
## [1] TRUE

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

Proceso: Usamos la funcion log10() y con los corchetes especificamos de que árbol, área y terreno queremos el logaritmo décimal.

logaritmo<-log10(areas[[3]][3])
logaritmo
## [1] 0.8750613

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

Proceso: Usamos la función sum() y especificamos los elementos de los cuales vamos a sacar la suma total

sum(areas$Area4[1:3])
## [1] 38

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

Proceso: 

altmed <- mean(areas$Area1)
altmed
## [1] 11.33333

EJERCICIO N°2

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

Sexo Presión arterial Pulso x min
Hombre 119 59
Mujer 99 89
Hombre 102 107
Hombre 78 76
Mujer 78 91

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

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

Proceso:

  • Creamos el archivo de texto Hospital
  • Luego creamos la variable datos con la información del archivo de texto importado
datos <- read.table(file="C:/Users/ROBERTO/Downloads/hospital.txt", header = T, sep =)
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

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

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

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

datos[4,]
##     Sexo Presión_arterial Pulso_x_min
## 4 Hombre               78          76
raiz <- sqrt(datos[4,2])
raiz
## [1] 8.831761