Colaborador: Ing. Francisco Valverde P.hD en informática

EJERCICIO 1

La tabla presenta la altura, en metros de los aboles que se encuentran en 4 Areas 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 numericos, de tal forma que cada uno guarde la altura de los Arboles de cada area de terreno

area1 <- c(7.5, 12,14.5)
area2 <- c(12.5,10.5,13,9,8.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)

Area <- list(area1,area2,area3,area4)
names(Area)<-c("AREA 1","AREA 2","AREA 3","AREA 4")
Area
## $`AREA 1`
## [1]  7.5 12.0 14.5
## 
## $`AREA 2`
## [1] 12.5 10.5 13.0  9.0  8.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

c. Determinar, para cada area de terreno, si la altura del primer arbol es mayor a la del utilmo arbol

#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") 
}
## 14.5 Es la altura mayor a la del primer árbol
#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") 
}
## 12.5 Es la altura mayor a la del último árbol
#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") 
}
## 14 Es la altura mayor a la del primer árbol
#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") 
}
## 12.5 Es la altura mayor a la del último árbol

d. Determinar el logaritmo decimal de la altura del tercer árbol del área del terreno 3

log <- print(Area[[3]][[3]])     
## [1] 7.5
log
## [1] 7.5
log10(log)
## [1] 0.8750613

e. Determinar la suma de de las alturas de los 3 primeros arboles del area del terreno 4

a <- print(Area[[4]][[1]])
## [1] 12.5
b <- print(Area[[4]][[2]])
## [1] 16
c <- print(Area[[4]][[3]])
## [1] 9.5
suma <- a+b+c
suma  
## [1] 38

f. Determinar la altura media de los arboles del area del terreno 1

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

EJERCICIO 2

La tabla recopila informacion de 5 pacientes (sexo, presion arterial y pulsos por minuto),atendidos en un hospital
SEXO PRESIÓN ARTERIAL PULSO POR MINUTO
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 llamario hospital.txt

sexo <- c("Hombre","Mujer","Hombre","Hombre","Mujer")
Presion_arterial <- c(119,99,102,78,78)
Pulsoxmin <- c(59,89,107,76,91)

df <- data.frame(sexo,Presion_arterial,Pulsoxmin)
names(df)<-c("SEXO","PRESION ARTERIAL","PULSO POR MIN.")
df
##     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(df, "Hospital.txt", sep =  )

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

datos <- read.table(file= "C:\\Users\\DETPC\\OneDrive\\Documentos\\3er semestre\\PROGRAMACION\\TRABAJOS GRUPALES\\TALLER 8\\Hospital.txt", header = TRUE, sep = )
datos
##     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

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

datos <- read.table(file= "C:\\Users\\DETPC\\OneDrive\\Documentos\\3er semestre\\PROGRAMACION\\TRABAJOS GRUPALES\\TALLER 8\\Hospital.txt", header = TRUE, sep = )
datos[c(1,4), ]
##     SEXO PRESION.ARTERIAL PULSO.POR.MIN.
## 1 Hombre              119             59
## 4 Hombre               78             76

d. Determine si la primera mujer (posicion 2) tiene una presion arterial mayor que la segundo mujer (ubicada en la posicion 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") 
}
## 99 La presion arterial seria mayor de la primera mujer

e. Determinar la media del pulso de los hombres

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

f. Calcular la raiz cuadrada de la presion arterial del cuarto paciente.

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