UNIVERSIDAD CENTRAL DEL ECUADOR

FACULTAD DE CIENCIAS ECONÓMICAS

CARRERA DE ESTADÍSTICA



PRIMERAS PRACTICAS EN R 5

Manual

En el siguiente texto podremos encontrar una serie de códigos elaborados en el programa Rstudio que darán solución a un determinado ejercicio enfocados principalmente en Dataframes.

Ejercicio 1

La tabla presenta la altura, en metros, de los arboles 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

Con la información indicada resolver mediante el uso de R lo siguiente:

a.- Crear 4 vectores numéricos, de tal forma que cada uno guarde la altura de los arboles de cada área de terreno.

  1. Para esto vamos a crear vectores que contengan los datos que hay en cada columna de esta tabla.
area1<-c(7.5,12,14.5)
area2<-c(12.5,10.5,13,9,18.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).

  1. Para esto vamos a crear vectores que contengan los datos que hay en cada columna de esta tabla.
alturas_arboles<-list(area1,area2,area3,area4)

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

  1. Para esto vamos a analizar los valores que estan dentro de las ubiaciones deseadas.
area1[1]>area1[3]
area2[1]>area2[5]
area3[1]>area3[6]
area4[1]>area4[4]

d.- Determinar el logaritmo decimal de la altura del tercer arbol del area del terreno 3.

  1. Para esto vamos a utilizar la funcion del logaritmo de base 10 [ log10() ] y adentro de los parentesis ponemos la ubicacion del valor que deseamos calcular.
log10(area3[3])

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

  1. Para esto vamos a utilizar la funcion sum() que suma valores y adentro de los parentesis ponemos la ubicacion de los valores qe deseamos calcular .
sum(area4[1:3])

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

  1. Para esto vamos a utilizar la funcion mean() que calcula la media de un grupo de numeros.
mean(area1)

Ejecución del código en R

SINTAXIS COMPLETA
# EJERCICIO 1

## Literal a
area1<-c(7.5,12,14.5)
area2<-c(12.5,10.5,13,9,18.5)
area3<-c(11,8,7.5,9.5,19,14)
area4<-c(12.5,16,9.5,10)

## Literal b
alturas_arboles<-list(area1,area2,area3,area4)
alturas_arboles

##Literal c
area1[1]>area1[3]
area2[1]>area2[5]
area3[1]>area3[6]
area4[1]>area4[4]

##Literal d
log10(area3[3])

##Literal e
sum(area4[1:3])

##Literal f
mean(area1)
RESULTADO FINAL
## [[1]]
## [1]  7.5 12.0 14.5
## 
## [[2]]
## [1] 12.5 10.5 13.0  9.0 18.5
## 
## [[3]]
## [1] 11.0  8.0  7.5  9.5 19.0 14.0
## 
## [[4]]
## [1] 12.5 16.0  9.5 10.0
## [1] FALSE
## [1] FALSE
## [1] FALSE
## [1] TRUE
## [1] 0.8750613
## [1] 38
## [1] 11.33333

Ejercicio 2

La tabla recopila informacion de 5 pacientes (sexo,presion arterial y pulsos por minuto:

SEXO PRESION ARTERIAL PULSO POR MINUTO
Hombre 119 59
Mujer 99 89
Hombre 102 107
Hombre 78 76
Mujer 78 91

Con la información indicada resolver mediante el uso de R lo siguiente:

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.

  1. Para esto vamos a crear un archivo de texto de la siguiente manera.

texto

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

  1. Para esto vamos a asignar a “datos” una funcion llamada read.table() que lee una tabla de un archivo de texto y dentro del parentesis ponemos la ubicacion de nuestro archivo antes creado.
datos<-read.table("C:\\Users\\Usuario\\Desktop\\hospital.txt")
  1. Para la visualizacion correcta y ordenada de los datos vamos a renombrar las columnas de nuestra tabla con el siguiente comando.
colnames(datos)<-c("Sexo","Presion_arterial","Pulsoxmin")

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

  1. Para esto vamos a ubicar los valores indicados de la siguiente forma.
datos[1,c(1:3)]
datos[4,c(1:3)]

d.- Determine si la primera mujer (posicion 2) tiene una presion arterial mayor que la segunda mujer (ubicada en la posicion 5).

  1. Para esto vamos a analizar los valores que estan dentro de las ubiaciones deseadas.
datos[2,2]>datos[5,2]

e.- Determinar la media del pulso de los hombres.

  1. Para esto vamos a utilizar la funcion mean() que calcula la media de un grupo de numeros y en este caso vamos a poner la ubicacion del valor que deseamos calcular.
mean(datos[c(1:5),3])

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

  1. Para esto vamos a utilizar la funcion sqrt() que calcula la raiz cuadrada de un valor numerico.
sqrt(datos[4,2])

Ejecución del código en R

SINTAXIS COMPLETA
# EJERCICIO 2

# Literal b
datos<-read.table("C:\\Users\\Usuario\\Desktop\\hospital.txt")
colnames(datos)<-c("Sexo","Presion_arterial","Pulsoxmin")

# Literal c
datos[1,c(1:3)]
datos[4,c(1:3)]

# Literal d
datos[2,2]>datos[5,2]

# Literal e
mean(datos[c(1:5),3])

# Literal f
sqrt(datos[4,2])
RESULTADO FINAL
##     Sexo Presion_arterial Pulsoxmin
## 1 Hombre              119        59
##     Sexo Presion_arterial Pulsoxmin
## 4 Hombre               78        76
## [1] TRUE
## [1] 84.4
## [1] 8.831761
COLABORADOR: Phd.Francisco Valverde Alulema.