** Ejercicio 1 **

###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)

Area <- list(a1,a2,a3,a4)
names(Area)<-c("ÁREA 1","ÁREA 2","ÁREA 3","ÁREA 4")
Area

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

##AREA 1
a1 <- Area[[1]][1]
b1 <- Area[[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") 
}

##AREA 2 
a2 <- Area[[2]][1]
b2 <- Area[[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") 
}

##AREA 3
a3 <- Area[[3]][1]
b3 <- Area[[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") 
}

##AREA 4
a4 <- Area[[4]][1]
b4 <- Area[[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") 
}

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

log <- print(Area[[3]][[3]]) 
log 
log10(log)

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

a <- print(Area[[4]][[1]])
b <- print(Area[[4]][[2]])
c <- print(Area[[4]][[3]])

suma <- a+b+c
suma

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

mean(Area[[1]])

** Ejercicio 2 **


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

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

getwd() setwd(“D:/SISTEMAS”)


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

datos<-read.table(file = “hospital.txt”, header = TRUE, sep = “,”, dec = “.”) datos View(datos)


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

datos<-read.table(file = “hospital.txt”, header = TRUE, sep = “,”, dec = “.”) datos[c(1,4), ] View(datos)


###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)

a <- datos[2,2] b <- datos[5,2]

if (a>b){ cat(a, “La presion arterial seria mayor de la primera mujer”) } else { cat(b, “La presion arterial seria mayor de la segunda mujer”) }


###e)Determinar la media del pulso de los hombres

x <- c(datos[1,2],datos[3,2],datos[4,2]) x mean(x)


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

sqrt(datos[4,2]) ```