UNIVERSIDAD CENTRAL DEL ECUADOR

FACULTAD DE CIENCIAS ECONOMICAS

CARRERA DE ESTADISTICA

Integrantes: Almeida Rene, Navarrete Mishel, Estefania Carlosama, Lizeth Tipantiza.

Colaborador: PhD. Francisco Valverde

En los 2 ejercicios que vamos a realizar espero les sirva de mucha ayuda, son unos ejercicios muy sencillos los cuales te van ayudar a y espero te siva de mucho en R.

EJERCICIO 1

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

Ejercicio 1

Entonces Aqui les voy a poner el Scrip para que puedan visualizar como realizamos este programa, y los comandos que usamos para este.

En este ejercicio las funciones que usamos fueron la creacion del vector y los data frames para realizar este ejercicio. Ya que lo que pide son 6 literales entonces lo hacemos.

a) CreaR 4 vectores numericos de tal forma que cada una guarde la altura de 
los arboles de cada area de terreno.
area_terreno1 <- c(7.5, 12, 14.5,0 ,0 ,0)
area_terreno1
## [1]  7.5 12.0 14.5  0.0  0.0  0.0
area_terreno2 <- c(12.5, 10.5, 13, 9, 18.5, 0)
area_terreno2
## [1] 12.5 10.5 13.0  9.0 18.5  0.0
area_terreno3 <- c(11, 8, 7.5, 9.5, 19, 14)
area_terreno3
## [1] 11.0  8.0  7.5  9.5 19.0 14.0
area_terreno4 <- c(12.5, 16, 9.5, 10,0 ,0)
area_terreno4
## [1] 12.5 16.0  9.5 10.0  0.0  0.0
b) Agrupar los 4 vectores generados,en una lista
(estructura de datos)
areas_terrenos <- data.frame(area_terreno1, area_terreno2, area_terreno3,
                            area_terreno4)
areas_terrenos
##   area_terreno1 area_terreno2 area_terreno3 area_terreno4
## 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           0.0           9.0           9.5          10.0
## 5           0.0          18.5          19.0           0.0
## 6           0.0           0.0          14.0           0.0
c) Determinar para cada area de terreno, si la altura del primer
arbol es mayor a la del ultimo arbol
(areas_terrenos[1,"area_terreno1"])>(areas_terrenos[3,"area_terreno1"])
## [1] FALSE
(areas_terrenos[1,"area_terreno2"])>(areas_terrenos[5,"area_terreno2"])
## [1] FALSE
(areas_terrenos[1,"area_terreno3"])>(areas_terrenos[6,"area_terreno3"])
## [1] FALSE
(areas_terrenos[1,"area_terreno4"])>(areas_terrenos[4,"area_terreno4"])
## [1] TRUE
d) Determinar el logaritmo decimal de la altura del tercer arbol
 del area de terreno 3
log10(areas_terrenos[3,"area_terreno3"])
## [1] 0.8750613
e) Determinar la suma de las alturas de los 3 primeros àrboles 
del àrea de terreno 4
suma_areas<- (areas_terrenos[1,"area_terreno4"])+(areas_terrenos[2,"area_terreno4"])+(areas_terrenos[3,"area_terreno4"])
suma_areas
## [1] 38
f) Determinar la altura media de los arboles del areas de 
terreno 1
area_media<-c(7.5, 12, 14.5)
area_media
## [1]  7.5 12.0 14.5
mean(area_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.

Ejercicio 2

Entonces Aqui les voy a poner el Scrip para que puedan visualizar como realizamos este programa, y los comandos que usamos para este.

En este ejercicio las funciones que usamos fueron file.choose() este para visualizar el documento a importar que nos va a pedir, o tambien podemos importar desde nuestro Environment haciendo click en Import Dataset y seleccionar From Text (base)

Entonces dicho esto procedemos hacer nuestro segundo ejercicio.

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
file.choose()
## [1] "C:\\Users\\USER\\Documents\\CUARTO SEMESTRE\\PROGRAMACION\\EJERCICIOS EN RMARKDOWN\\ejercicio 1.png"
b) Desde R leer el archivo antes mencionado y almacenar en una
variable llamado datos
Hospital <- read.delim("~/CUARTO SEMESTRE/PROGRAMACION/BASES/Hospital.txt")
View(Hospital)
c) Visualizar los valores para las 3 variables para el primer
individuo y el cuarto individuo
Hospital[c(1,4),c(1,2,3)]
##     SEXO PRESION.ARTERIAL PULSO.X.MIN
## 1 HOMBRE              119          59
## 4 HOMBRE               78          76
d) Determine si la primera mujer (posicion 2) tiene una presion 
arterial mayor que la segunda mujer (ubicado en la posicion 5)
Hospital[c(2),c(2)] > Hospital[c(5),c(2)]
## [1] TRUE
e) Determine la media del pulso de los hombres
Hombres <- c(59,107,76)
Hombres
## [1]  59 107  76
media_pulso_hombres<- mean(Hombres)
media_pulso_hombres
## [1] 80.66667
f) Calcular la raiz cuadrada de la presion arterial del
#cuarto paciente
sqrt(78)
## [1] 8.831761