EJERCICIO 1

En el presente trabajo se encuentra 2 ejercicios con dataframes los cuales fueron elaborados en el programa Rstudio.

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

Resolver mediante el uso de R :

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

Proceso

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

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

lista1 <- list(A1,A2,A3,A4)
names(lista1) <- c("AREA 1","AREA 2","AREA 3","AREA 4")
lista1

## $`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

Determinar, para cada area de terreno, si la altura del primer arbol es mayor a la del último árbol.

a <- print(lista1[[4]][[1]])

## [1] 12.5

b <- print(lista1[[4]][[2]])

## [1] 16

c <- print(lista1[[4]][[3]])

## [1] 9.5

suma <- a+b+c
suma

## [1] 38

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

ln <- log10(lista1[[3]][3])
ln

## [1] 0.8750613

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

AREA 1

a1 <- lista1[[1]][1]
b1 <- lista1[[1]][3]

if (a1>b1) {
  cat(a1, "Es la altura mayor a la del último árbol \n")
} else {
  cat(b1, "Es la altura mayor a la del primer árbol \n") 
}

## 14.5 Es la altura mayor a la del primer árbol

AREA 2

a2 <- lista1[[2]][1]
b2 <- lista1[[2]][5]

if (a2>b2) {
  cat(a2, "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

AREA 3

a3 <- lista1[[3]][1]
b3 <- lista1[[3]][6]

if (a3>b3) {
  cat(a3, "Es la altura mayor a la del último árbol \n")
} else {
  cat(b3, "Es la altura mayor a la del primer árbol \n") 
}

## 14 Es la altura mayor a la del primer árbol

AREA 4

a4 <- lista1[[4]][1]
b4 <- lista1[[4]][4]

if (a4>b4) {
  cat(a4, "Es la altura mayor a la del último árbol \n")
} else {
  cat(b4, "Es la altura mayor a la del primer árbol \n") 
}

## 12.5 Es la altura mayor a la del último árbol

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

mean(lista1[[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 :

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
Desde R leer el archivo antes mencionado y almacenar su contenido en una variable llamado datos

SEXO <- c("hombre","mujer","hombre","hombre","mujer")
PRESION_ARTERIAL <- c(119,99,102,78,78)
PULSO_X_MIN <- c(59,89,107,76,91)

tabla1 <- data.frame(SEXO,PRESION_ARTERIAL,PULSO_X_MIN)
names(tabla1) <- c("SEXO","PRESION","PULSO POR MINUTO")
tabla1

##     SEXO PRESION PULSO POR MINUTO
## 1 hombre     119               59
## 2  mujer      99               89
## 3 hombre     102              107
## 4 hombre      78               76
## 5  mujer      78               91

write.table(tabla1,"TABLA HOSPITAL1", sep = )
EJERCICIO2 <- read.table(file = "C:\\Users\\user\\OneDrive\\Escritorio\\TABLA HOSPITAL1 - copia.txt", header = TRUE, sep ="\t" )

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

EJERCICIO2[c(1,4), ]

##     SEXO PRESION.ARTERIAL PULSO.X.MIN
## 1 HOMBRE              119          59
## 4 HOMBRE               78          76

Determine si la primera mujer (posición 2) tiene una presión arterial mayor que la segunda mujer (ubicada en la posición 5)

p1_mujer <- EJERCICIO2[3,2]
p2_mujer <- EJERCICIO2[5,2]
p1_mujer>p2_mujer

## [1] TRUE

Determinar la media del pulso de los hombres.

hombres <- c(EJERCICIO2[1,3],EJERCICIO2[3,3],EJERCICIO2[4,3])
hombres

## [1]  59 107  76

mean(hombres)

## [1] 80.66667

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

sqrt(EJERCICIO2[4,2])

## [1] 8.831761

UNIVERSIDAD CENTRAL DEL ECUADOR

FACULTAD DE CIENCIAS ECONÓMICAS

INGENIERÍA EN ESTADÍSTICA

AUTORES:

FECHA DE PUBLICACIÓN: 2023-07-01

TALLER N#7

Trabajo sobre Data Frames

EJERCICIO 1

Proceso

EJERCICIO 2