Ejercicios 01

Desafio 1 -Operadores matematicos

Para este desafio se mostraran diversos operadores matematicos dispuestos en r con sus respectivos codigos de ejemplo

Resta
```
resta = 4 - 2
resta
```
```
## [1] 2
```

Division entera

divisionEntera = 5 %% 2
divisionEntera

## [1] 1

Coseno en grados

grados = 90
cosenoGrados = cos(grados * pi/180)
cosenoGrados

## [1] 6.123032e-17

Coseno en radianes

cosenoR = cos(90)
cosenoR

## [1] -0.4480736

Modulo

Valor absoluto

valorAbsoluto = abs(-52)
valorAbsoluto

## [1] 52

Exponente
```
exponente = 5 ^ 2
exponente
```
```
## [1] 25
```

Factorial

factorial = factorial(5)
factorial

## [1] 120

Redondeo a suelo
```
suelo = ceiling(2.5)
suelo
```
```
## [1] 3
```
Redondeo a techo
```
techo = floor(2.5)
techo
```
```
## [1] 2
```

Desafio 2 -Estructura de datos

En este desafio se definiran a nivel de ejemplos estructuras de datos para ilustrar su funcionamiento en R.

Tablas

meses_ = c("Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio")
ing = c(100,2000,1540,300,1859, 5403, 3082)
tabla = data.frame(meses=meses_, ingresos=ing)
head(tabla)

##     meses ingresos
## 1   Enero      100
## 2 Febrero     2000
## 3   Marzo     1540
## 4   Abril      300
## 5    Mayo     1859
## 6   Junio     5403

Vectores

vectorSecuencia = seq(from=1, to=20, by= 0.8)
vectorSecuencia

##  [1]  1.0  1.8  2.6  3.4  4.2  5.0  5.8  6.6  7.4  8.2  9.0  9.8 10.6 11.4 12.2
## [16] 13.0 13.8 14.6 15.4 16.2 17.0 17.8 18.6 19.4

Desafio 3 -Piedra Papel Tijera

Para este desafio se creó la funcion jugar(), que permite al usuario jugar al piedra, papel, tijera de manera basica y sin complicaciones.

jugar = function(){
  eleccion <- readline(prompt = "elige una opcion
                       1. Piedra
                       2. Papel
                       3. Tijera")
  if(eleccion == "1" | eleccion == "2" | eleccion == "3"){
    eleccionMaquina = sample.int(3,1)
    print("3...")
    Sys.sleep(0.5)
    print("2...")
    Sys.sleep(0.5)
    print("1...")
    Sys.sleep(0.5)
    if(eleccion == "1"){
      if(eleccionMaquina == 1) {print("hubo un empate, por lo que nadie pierde")}
      else if(eleccionMaquina == 2){ print("la IA escogio papel por lo que perdiste :c")}
      else if(eleccionMaquina == 3){print("la Ia escogio tijera, Ganaste c:")}
    }
    if(eleccion == "2"){
      if(eleccionMaquina == 1) {print("La IA escogio piedra, por lo que ganaste c:")}
      else if(eleccionMaquina == 2){ print("la IA escogio papel por lo que hubo un empate")}
      else if(eleccionMaquina == 3){print("la Ia escogio tijera, perdiste :c")}
    }
    if(eleccion == "3"){
      if(eleccionMaquina == 1) {print("La IA escogio piedra, perdiste :c")}
      else if(eleccionMaquina == 2){ print("la IA escogio papel, ganaste c:")}
      else if(eleccionMaquina == 3){print("la Ia escogio tijera, hubo un empate")}
    }
    
  } else{
    print("haz introducido un opcion invalida :c")
  }
}

Desafio 4 -Datasets

En este desafio se visualizará un dataset incluido en r de nombre ToothGrowth, que contiene el largo de dientes de cerdos de guinea y la relacion de crecimiento dado una cantidad de vitamina c administrada al mismo.

Gracias a la funcion help podemos saber que los datos son extraidos de la siguiente fuente C. I. Bliss (1952). The Statistics of Bioassay. Academic Press.

summary("ToothGrowth")

##    Length     Class      Mode 
##         1 character character

plot(ToothGrowth)