Realice otros 10 ejemplos con diferentes operadores matemáticos.
#Declaración de variables
v1 = 180
v2 = 50
#Cos de 180 radianes
cosrad = cos(v1)
cosrad
## [1] -0.5984601
#Cos de 180 grados
cosgrad = cos(v1*180/pi)
cosgrad
## [1] -0.8205811
#Tan de 180 radianes
tanrad = tan(v1)
tanrad
## [1] 1.33869
#Tan de 180 grados
tangrad = tan(v1*180/pi)
tangrad
## [1] -0.6964945
#Raiz cubica de v2
raizc = v2^(1/3)
raizc
## [1] 3.684031
#Log de base 2 de v2
logd = logb(v2)
logd
## [1] 3.912023
#Logaritmo natural de v1
log = log(v1)
log
## [1] 5.192957
#Elevación de v1 a 7
elevado = v1^7
elevado
## [1] 6.1222e+15
#Truncar un número en su parte entera
trun = trunc(log)
trun
## [1] 5
#Resta de v1 con v2
resta = v1 - v2
resta
## [1] 130
Realice ejemplos usando otros tipos de estructura de datos: elementos booleanos, factores, tablas, entre otros.
#Ejemplo 1
#Utilizando el factor para representar el dato categorico "Sexo" de una persona
sexo = c("hombre","mujer", "hombre", "mujer", "mujer", "mujer")
factor = factor(sexo)
factor
## [1] hombre mujer hombre mujer mujer mujer
## Levels: hombre mujer
#Ejemplo 2
#Utilizando el dataframe con una columna que contiene un tipo factor
colores <- c("rojo", "azul", "verde", "rojo", "verde")
colores_factor <- factor(colores)
colores_factor
## [1] rojo azul verde rojo verde
## Levels: azul rojo verde
tabla <- data.frame(colores = colores_factor, numeros = 1:5)
tabla
## colores numeros
## 1 rojo 1
## 2 azul 2
## 3 verde 3
## 4 rojo 4
## 5 verde 5
Construya una función que permita a un jugador jugar al piedra papel o tijeras.
source("juego.R")
juego("papel")
## [1] "GANASTE!!"
juego("piedra")
## [1] "perdiste :c"
juego("tijeras")
## [1] "Fue un empate"
rm(list=ls(all=TRUE))
ls()
## character(0)
1.- Seleccione un conjunto de datos desde el paquete ‘datasets’ de R. Para ver los datasets disponibles en la consola puede utilizar la función “data()” o puede consultarlos en la página web https://stat.ethz.ch/R-manual/R-devel/library/datasets/html/00Index.html. Una vez seleccionado puede utilizar la función data(‘nombre_del_dataset’) para cargar el dataset. 2.- Describa el conjunto de datos y explique para que fue o podría ser utilizado. Puede usar la función help(‘nombre_del_dataset’). ¿Cuál es la fuente de los datos? 3.- Describa cada variable, indique a qué tipo de variable corresponde, indique qué valores puede tomar y su unidad de medida. 4.- Ejecute la función summary(“conjunto_de_datos”). ¿Qué puede observar? 5.- Ejecute la función plot(“conjunto_de_datos”). ¿Qué puede observar?
#1. Se cargan los datos
data("Nile")
# 2. El conjuto de datos es una serie temporal que va desde 1871 a 1970 recopilando cual fue el caudal del rio nilo, este puede ser utilizado para analizar la los cambios en el caudal del río nilo y asi poder encontrar patrones, como lo podrian ser cada cuanto tiempo hay sequias o desbordamiento. La fuente de los datos es: Durbin, J. and Koopman, S. J. (2001). Time Series Analysis by State Space Methods. Oxford University Press.
help("Nile")
## starting httpd help server ... done
#3. En este se contiene un tipo de dato que es serie temporal en el cual se guarda el valor (en este caso un entero), tambien se guarda el dato que indica el incio de la toma de datos que en este caso es en años y el año final, además se tiene el dato frecuencia que indica el salto de los años entre los valores de incio y final. En este caso es una variable de tipo ratio discreta y su unidad de medida es m^3/s
#4. Se puede observar que en el dato Nile se tiene un valor min de 456.0, un valor max de 1370.0, una mediana de 893, un promedio de 919.4 y los valores que se encunetran en el primer cuartil y en el tercer cuartil, es decir, muestra un resumen de la data.
summary(Nile)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 456.0 798.5 893.5 919.4 1032.5 1370.0
#5. Se puede ver con el plot un grafico que muestra toda la data, es decir, que en el eje x se contempla el tiempo que ira desde el año de incio hasta el ultimo año en que se tomaron las medidas y en el eje y se tiene el valor del caudal del rio Nilo en ese año.
plot(Nile)