Ejercicio 1

  1. 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);A1
## [1]  7.5 12.0 14.5
A2<- c(12.5,10.5,13,9,18.5);A2
## [1] 12.5 10.5 13.0  9.0 18.5
A3<- c(11,8,7.5,9.5,19,14);A3
## [1] 11.0  8.0  7.5  9.5 19.0 14.0
A4<- c(12.5,16,9.5,10);A4
## [1] 12.5 16.0  9.5 10.0
max_length <- max(length(A1), length(A2), length(A3), length(A4))
A1 <- rep(A1, length.out = max_length)

A2 <- rep(A2, length.out = max_length)

A3 <- rep(A3, length.out = max_length)

A4 <- rep(A4, length.out = max_length)
tabla <- data.frame(Area1 = A1, Area2 = A2, Area3 = A3, Area4 = A4)
View(tabla)
tabla
##   Area1 Area2 Area3 Area4
## 1   7.5  12.5  11.0  12.5
## 2  12.0  10.5   8.0  16.0
## 3  14.5  13.0   7.5   9.5
## 4   7.5   9.0   9.5  10.0
## 5  12.0  18.5  19.0  12.5
## 6  14.5  12.5  14.0  16.0
  1. Agrupar los 4 vectores generados, en una lista (estructura de datos)
L1<-list(A1,A2,A3,A4);L1
## [[1]]
## [1]  7.5 12.0 14.5  7.5 12.0 14.5
## 
## [[2]]
## [1] 12.5 10.5 13.0  9.0 18.5 12.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 12.5 16.0
  1. Determinar, para cada area de terreno, si la altura del primer arbol es mayor a la del último árbol
comparacion <- function(area) {
  
  primer_arbol <- area[1]
  
  ultimo_arbol <- area[length(area)]
  
  return(primer_arbol > ultimo_arbol)
}
resultado_A1 <- comparacion(A1)

resultado_A2 <- comparacion(A2)

resultado_A3 <- comparacion(A3)

resultado_A4 <- comparacion(A4)
cat("A1:", resultado_A1, "\n")
## A1: FALSE
cat("A2:", resultado_A2, "\n")
## A2: FALSE
cat("A3:", resultado_A3, "\n")
## A3: FALSE
cat("A4:", resultado_A4, "\n")
## A4: FALSE
  1. Determinar el logaritmo decimal de la altura del tercer arbol del área de terreno 3
tercer_arbol_area3 <- A3[3]
log_decimal <- log10(tercer_arbol_area3)
log_decimal
## [1] 0.8750613
  1. Determinar la suma de las alturas de los 3 primeros árboles del área de terreno 4
suma_alturas <- sum(A4[1:3])
suma_alturas
## [1] 38
  1. Determinar la altura media de los árboles del área de terreno 1.
altura_media <- mean(A1)
altura_media
## [1] 11.33333

Ejercicio 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 llamarlo hospital.txt
ruta <- 
  "C:/Users/kevin/Desktop/Uce/Semestre3/programacion/taller8/pacientes.txt"
  1. Desde R leer el archivo antes mencionado y almacenar su contenido en una variable  llamado datos
datos <- read.delim(ruta,header = TRUE)
datos
##     Sexo Presion_Arterial Pulso_min
## 1 Hombre              119        59
## 2  Mujer               99        89
## 3 Hombre              102       107
## 4 Hombre               78        76
## 5  Mujer               78        91
  1.  Visualizar los valores para las 3 variables para el primer individuo y el cuarto individuo
# Visualizar los valores para el primer individuo

cat("Datos del primer individuo:\n")
## Datos del primer individuo:
print(datos[1, ])
##     Sexo Presion_Arterial Pulso_min
## 1 Hombre              119        59
# Visualizar los valores para el cuarto individuo
cat("\nDatos del cuarto individuo:\n")
## 
## Datos del cuarto individuo:
print(datos[4, ])
##     Sexo Presion_Arterial Pulso_min
## 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[2,2]

cat("Presión arterial de la primera mujer: ",primera_mujer, "\n")
## Presión arterial de la primera mujer:  99
segunda_mujer <- datos[5,2]

cat("Presión arterial de la segunda mujer: ",segunda_mujer, "\n")
## Presión arterial de la segunda mujer:  78
if (primera_mujer > segunda_mujer) {
  cat("La primera mujer tiene mayor presión arterial con: ",primera_mujer, "\n")
}
## La primera mujer tiene mayor presión arterial con:  99
  1. Determinar la media del pulso de los hombres
datos_hombres <- datos[datos$Sexo == "Hombre",]
datos_hombres
##     Sexo Presion_Arterial Pulso_min
## 1 Hombre              119        59
## 3 Hombre              102       107
## 4 Hombre               78        76
media_pulso_hombres <- mean(datos_hombres$Pulso_min)
media_pulso_hombres
## [1] 80.66667
cat("La media del pulso de los hombres es:", media_pulso_hombres, "\n")
## La media del pulso de los hombres es: 80.66667
  1. Calcular la raíz cuadrada de la presión arterial del cuarto paciente
cuarto_paciente <- datos[4,]
raiz_cuarto_paciente <- sqrt(cuarto_paciente$Presion_Arterial)
cat("La raiz cuadrada del cuarto paciente es: ",raiz_cuarto_paciente, "\n")
## La raiz cuadrada del cuarto paciente es:  8.831761