UNIVERSIDAD CENTRAL DEL ECUADOR

                            Facultad de Ciencias Económicas

                        Colaborador Ing. Francisco Valverde PhD
               
                      

R y R STUDIO

R es un software que fue diseñado para hacer análisis estadísticos y gráficas y es un software de libre acceso. RStudio es un entorno de desarrollo integrado para el lenguaje de programación R, dedicado a la computación estadística y gráficos. Incluye una consola, editor de sintaxis que apoya la ejecución de código, así como herramientas para el trazado, la depuración y la gestión del espacio de trabajo. está disponible para Windows, Mac y Linux o para navegadores conectados a RStudio Server o RStudio Server Pro (Debian / Ubuntu, RedHat / CentOS, y SUSE Linux).

EJERCICIOS EN R

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

ÁREAS:


A) Crear 4 vectores numéricos, de tal forma que cada uno guarde la altura de los árboles de cada área de terreno.
Area_1<-c(7.5,12,14.5)
Area_1
## [1]  7.5 12.0 14.5
Area_2<-c(12.5,10.5,13,9,18.5)
Area_2
## [1] 12.5 10.5 13.0  9.0 18.5
Area_3<-c(11,8,7.5,9.5,19,14)
Area_3
## [1] 11.0  8.0  7.5  9.5 19.0 14.0
Area_4<-c(12.5,16,9.5,10)
Area_4
## [1] 12.5 16.0  9.5 10.0

B) Agrupar los 4 vectores generados, en una lista (estructura de datos).
La función list (), especificando los objetos que deseas unir dentro de tu lista.
data.frame(). Esta función nos pedirá un número de vectores igual al número de columnas que deseemos.Todos los vectores que proporcionemos deben tener el mismo largo.
Areas<-list(Area_1,Area_2,Area_3,Area_4)
names(Areas)<-c("Area 1","Area 2","Area 3","Area 4")
Areas
## $`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
Area_1<-c(7.5,12,14.5,NA,NA,NA)
Area_1
## [1]  7.5 12.0 14.5   NA   NA   NA
Area_2<-c(12.5,10.5,13,9,18.5,NA)
Area_2
## [1] 12.5 10.5 13.0  9.0 18.5   NA
Area_3<-c(11,8,7.5,9.5,19,14)
Area_3
## [1] 11.0  8.0  7.5  9.5 19.0 14.0
Area_4<-c(12.5,16,9.5,10,NA,NA)
Area_4
## [1] 12.5 16.0  9.5 10.0   NA   NA
Areas<-data.frame(Area_1,Area_2,Area_3,Area_4)
Areas
##   Area_1 Area_2 Area_3 Area_4
## 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     NA    9.0    9.5   10.0
## 5     NA   18.5   19.0     NA
## 6     NA     NA   14.0     NA

C) Determinar, para cada área de terreno, si la altura del primer árbol es mayor a la del último árbol.
Los corchetes [] permiten identificar la ubicación, en la lista del dato que se desea mostrar . En el caso de los dobles corchetes [[]] se especifica con detalle el dato buscado en la lista y se presenta para la operación .
La función max() identifica el valor máximo.
La función min() identifica el valor mínimo.
Areas
##   Area_1 Area_2 Area_3 Area_4
## 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     NA    9.0    9.5   10.0
## 5     NA   18.5   19.0     NA
## 6     NA     NA   14.0     NA
# Primera area

Areas[[1]][[1]]
## [1] 7.5
Areas[[1]][[3]] 
## [1] 14.5
max(Areas[[1]][[1]],Areas[[1]][[3]] )
## [1] 14.5
min(Areas[[1]][[1]],Areas[[1]][[3]] )
## [1] 7.5
# Segunda area

Areas[[2]][[1]]
## [1] 12.5
Areas[[2]][[5]] 
## [1] 18.5
max(Areas[[2]][[1]],Areas[[2]][[5]] )
## [1] 18.5
min(Areas[[2]][[1]],Areas[[2]][[5]] )
## [1] 12.5
# tercera area

Areas[[3]][[1]]
## [1] 11
Areas[[3]][[6]] 
## [1] 14
max(Areas[[3]][[1]],Areas[[3]][[6]] )
## [1] 14
min(Areas[[3]][[1]],Areas[[3]][[6]] )
## [1] 11
# cuarta area

Areas[[4]][[1]]
## [1] 12.5
Areas[[4]][[4]] 
## [1] 10
max(Areas[[4]][[1]],Areas[[4]][[4]] )
## [1] 12.5
min(Areas[[4]][[1]],Areas[[4]][[4]] )
## [1] 10

D) Determinar el logaritmo decimal de la altura del tercer árbol del área de terreno 3.
Areas
##   Area_1 Area_2 Area_3 Area_4
## 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     NA    9.0    9.5   10.0
## 5     NA   18.5   19.0     NA
## 6     NA     NA   14.0     NA
x<-Areas[[3]][[3]]
x
## [1] 7.5
log10(x)
## [1] 0.8750613

E) Determinar la suma de las alturas de los 3 primeros árboles del área de terreno 4.
La función sum() suma los componentes de un vector.
Areas
##   Area_1 Area_2 Area_3 Area_4
## 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     NA    9.0    9.5   10.0
## 5     NA   18.5   19.0     NA
## 6     NA     NA   14.0     NA
Arbol1<-Areas[[4]][[1]]
Arbol1
## [1] 12.5
Arbol2<-Areas[[4]][[2]]
Arbol2
## [1] 16
Arbol3<-Areas[[4]][[3]]
Arbol3
## [1] 9.5
sum(Arbol1,Arbol2,Arbol3)
## [1] 38

F) Determinar la altura media de los árboles del área de terreno 1.
La función sum() suma los componentes de un vector.
a<-Areas[[1]][[1]]
a
## [1] 7.5
b<-Areas[[1]][[2]]
b
## [1] 12
c<-Areas[[1]][[3]]
c
## [1] 14.5
y<-sum(a,b,c)
y
## [1] 34
media<-y/3
media
## [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


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
Instalar el paquete readr el paquete más práctico para importación de datos a R.
La función getwdque imprimirá la ruta del directorio de trabajo actual. Por tanto, la salida es la carpeta donde se guardarán todos tus archivos.
La función dir realiza búsquedas de archivos y directorios.
Lalibreria ("río") realiza la búsqueda de archivos en el equipo y los importa.
library(readr)
getwd()
## [1] "C:/Users/POINT/OneDrive/Documentos/A TALLER 8"
dir()
## [1] "~$LLER-8.docx"    "hospital.txt"     "rsconnect"        "TALLER-8.docx"   
## [5] "TALLER-8.html"    "TALLER-8.Rmd"     "TALLER 8 PDF.pdf" "taller 8.R"      
## [9] "TALLER 8.Rmd"
library("rio")

#   Cargar la base de datos en el lenguaje R. 

Pacientes<- import("hospital.txt")
Pacientes
##     Sexo Presi¢n arterial Pulso x min
## 1 Hombre              119          59
## 2  Mujer               99          89
## 3 Hombre              102         107
## 4 Hombre               78          76
## 5  Mujer               78          91
View(Pacientes)

B) Desde R leer el archivo antes mencionado y almacenar su contenido en una variable llamada datos.
Para crear un data frame usamos la función data.frame. Esta función nos pedirá un número de vectores igual al número de columnas que deseemos. Todos los vectores que proporcionemos deben tener el mismo largo.
datos <- data.frame(Pacientes)
datos
##     Sexo Presi.n.arterial Pulso.x.min
## 1 Hombre              119          59
## 2  Mujer               99          89
## 3 Hombre              102         107
## 4 Hombre               78          76
## 5  Mujer               78          91

C) Vizualizar los valores para las 3 variables para el primer individuo y el cuarto individuo
Los corchetes [] permiten identificar la ubicación, en la lista del dato que se desea mostrar . En el caso de los dobles corchetes [[]] se especifica con detalle el dato buscado en la lista y se presenta para la operación .
#primer individuo 
datos[1, ]
##     Sexo Presi.n.arterial Pulso.x.min
## 1 Hombre              119          59
#cuarto individuo 
datos[ 4, ]
##     Sexo Presi.n.arterial Pulso.x.min
## 4 Hombre               78          76
#valores del individuo 1 y 4

datos [c(1,4), c(2,3)]
##   Presi.n.arterial Pulso.x.min
## 1              119          59
## 4               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).
La función max() identifica el valor máximo.
Mujer1<-datos[[2]][[2]]
Mujer1
## [1] 99
Mujer2<-datos[[2]][[5]]
Mujer2
## [1] 78
max(Mujer1,Mujer2)
## [1] 99

E) Determinar la media del pulso de los hombres.
La función sum() suma los componentes de un vector.
Hombre1<-datos[[3]][[1]]
Hombre2<-datos[[3]][[3]]
Hombre3<-datos[[3]][[4]]

todos<-sum(Hombre1,Hombre2,Hombre3)
todos
## [1] 242
media<-todos/3
media
## [1] 80.66667

F) Calcular la raíz cuadrada de la presión arterial del cuarto paciente.
La función sqrt ejecuta la raíz del dato seleccionado.
Hombre2<-datos[[2]][[4]]
Hombre2
## [1] 78
sqrt(Hombre2)
## [1] 8.831761