INGENIERÍA EN ESTADÍSTICA

A continuación presentaremos dos ejercicios completos con la aplicación de Data Frames:

EJERCICIO 1

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

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:

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,9.5,19,14)
a4<-c(12.5,16,9.5,10)

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

ar<-list(Area1=a1,Area2=a2,Area3=a3,Area4=a4)
ar

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

(En esta parte separaremos con comentarios dentro del código R cada área. Ej. #Área1)

#Área 1 
posin<- ar[[1]][1]
posfin<-ar[[1]][3]
if(posin>posfin){
cat(posin,"Es la la altura mayor del primer arbol")
  
}else {
  cat(posfin,"Es la la altura mayor del ultimo  arbol")}

## 14.5 Es la la altura mayor del ultimo  arbol

#Área 2
posin<- ar[[2]][1]
posfin<-ar[[2]][5]
if(posin>posfin){
  cat(posin,"Es la la altura mayor del primer arbol")
  
}else {
  cat(posfin,"Es la la altura mayor del ultimo  arbol")}

## 18.5 Es la la altura mayor del ultimo  arbol

#Área 3
posin<- ar[[3]][1]
posfin<-ar[[3]][7]
if(posin>posfin){
  cat(posin,"Es la la altura mayor del primer arbol")
  
}else {
  cat(posfin,"Es la la altura mayor del ultimo  arbol")
  }

## 14 Es la la altura mayor del ultimo  arbol

ar

## $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  9.5 19.0 14.0
## 
## $Area4
## [1] 12.5 16.0  9.5 10.0

#Área 4
posin<- ar[[4]][1]
posfin<-ar[[4]][4]
if(posin>posfin){
  cat(posin,"Es la la altura mayor del primer arbol")
  
}else {
  cat(posfin,"Es la la altura mayor del ultimo  arbol")
}

## 12.5 Es la la altura mayor del primer arbol

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

a<-log10(ar[[3]][3])
a

## [1] 0.8750613

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

e4<-ar[[4]][1:3]
e4

## [1] 12.5 16.0  9.5

sum(e4)

## [1] 38

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

p<-mean(ar[[1]][1:3])
p

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

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. Guardamos este archivo en el escritorio de windows y lo llamamos EjercicioR.txt:

library(readr)

## Warning: package 'readr' was built under R version 4.3.1

Ejercio_R <- read_delim("C:/Users/FLOR MARIA MOROCHO/Downloads/EjercicioR.txt", 
                        delim = "\t", escape_double = FALSE)

## Rows: 5 Columns: 3
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: "\t"
## chr (1): Sexo
## dbl (2): Presion Arterial, Pulso x min
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

View(Ejercio_R)

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

datos<-Ejercio_R
datos

## # A tibble: 5 × 3
##   Sexo   `Presion Arterial` `Pulso x min`
##   <chr>               <dbl>         <dbl>
## 1 Hombre                119            59
## 2 Mujer                  99            89
## 3 Hombre                102           107
## 4 Hombre                 78            76
## 5 Mujer                  78            91

head(Ejercio_R,1)

## # A tibble: 1 × 3
##   Sexo   `Presion Arterial` `Pulso x min`
##   <chr>               <dbl>         <dbl>
## 1 Hombre                119            59

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

#Primer individuo
Ejercio_R[1,c("Sexo","Presion Arterial","Pulso x min")]

## # A tibble: 1 × 3
##   Sexo   `Presion Arterial` `Pulso x min`
##   <chr>               <dbl>         <dbl>
## 1 Hombre                119            59

#Cuarto individuo
Ejercio_R[4,c("Sexo","Presion Arterial","Pulso x min")]

## # A tibble: 1 × 3
##   Sexo   `Presion Arterial` `Pulso x min`
##   <chr>               <dbl>         <dbl>
## 1 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):

pre1<-Ejercio_R[[2]][2]
pre2<-Ejercio_R[[2]][4]
if (pre1>pre2) {
  cat(pre1 ,"La presion aterial de la primera mujer es mayor")
  
}else {
  cat(pre2 ,"La presion aterial de la segunda mujer es mayor")
}

## 99 La presion aterial de la primera mujer es mayor

e) Determinar la media del pulso de los hombres:

or<-datos[order(datos$Sexo),]
or

## # A tibble: 5 × 3
##   Sexo   `Presion Arterial` `Pulso x min`
##   <chr>               <dbl>         <dbl>
## 1 Hombre                119            59
## 2 Hombre                102           107
## 3 Hombre                 78            76
## 4 Mujer                  99            89
## 5 Mujer                  78            91

pre<-or[1:3,]
pre

## # A tibble: 3 × 3
##   Sexo   `Presion Arterial` `Pulso x min`
##   <chr>               <dbl>         <dbl>
## 1 Hombre                119            59
## 2 Hombre                102           107
## 3 Hombre                 78            76

a<-c(pre[[2]][1:3])
a

## [1] 119 102  78

mean(a)

## [1] 99.66667

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

datos

## # A tibble: 5 × 3
##   Sexo   `Presion Arterial` `Pulso x min`
##   <chr>               <dbl>         <dbl>
## 1 Hombre                119            59
## 2 Mujer                  99            89
## 3 Hombre                102           107
## 4 Hombre                 78            76
## 5 Mujer                  78            91

ps4<-datos[4,]
ps4

## # A tibble: 1 × 3
##   Sexo   `Presion Arterial` `Pulso x min`
##   <chr>               <dbl>         <dbl>
## 1 Hombre                 78            76

preps4<-datos[[2]][4]
preps4

## [1] 78

sqrt(preps4)

## [1] 8.831761

DATA FRAMES

Morocho Flor, Imbaquingo Kevin, Ponce Elian, Zapata Jordan

2023-07-02

INGENIERÍA EN ESTADÍSTICA

A continuación presentaremos dos ejercicios completos con la aplicación de Data Frames:

EJERCICIO 1

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

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:

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

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

(En esta parte separaremos con comentarios dentro del código R cada área. Ej. #Área1)

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

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

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

EJERCICIO 2

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

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. Guardamos este archivo en el escritorio de windows y lo llamamos EjercicioR.txt:

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

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

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

e) Determinar la media del pulso de los hombres:

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