Ejercicios 01

Por: Bastián Olea Díaz.

Desafío 1

num1 = 24
num2 = 12
num3 = 8
num4 = 4
num5 = 9

Ejemplo 1

suma1 = num1 + num2
suma1
## [1] 36

Ejemplo 2

suma2 = num3 + num4 + num5
suma2
## [1] 21

Ejemplo 3

resta1 = num1 - num5
resta1
## [1] 15

Ejemplo 4

resta2 = num2 - num3 - num4
resta2
## [1] 0

Ejemplo 5

multi1 = num1 * num4
multi1 
## [1] 96

Ejemplo 6

multi2 = num3 * num5
multi2
## [1] 72

Ejemplo 7

div1 = num3/num4
div1
## [1] 2

Ejemplo 8

log1 = log10(24)
log1
## [1] 1.380211

Ejemplo 9

sqr1 = sqrt(9)
sqr1
## [1] 3

Ejemplo 10

sin1 = sin(num1)
sin1
## [1] -0.9055784

Desafío 2

Ejemplo 1

vec1 = c(1, 2, 3, 4, 5)
vec1
## [1] 1 2 3 4 5

Ejemplo 2

max1 = matrix(c(24.8, 81, 31.2, 68.4, 9.9, 12.3, 45.7, 33.3, 47.8, 23, 51.2, 56),nrow = 4, ncol = 3)
max1
##      [,1] [,2] [,3]
## [1,] 24.8  9.9 47.8
## [2,] 81.0 12.3 23.0
## [3,] 31.2 45.7 51.2
## [4,] 68.4 33.3 56.0

Ejemplo 3

bool1 = (4 > 8)
bool1
## [1] FALSE

Ejemplo 4

bool2 = (length(vec1)== 5)
bool2
## [1] TRUE

Ejemplo 5

jugador1 = list(name = "Bastián", id="destructor00", age = "22")
jugador1
## $name
## [1] "Bastián"
## 
## $id
## [1] "destructor00"
## 
## $age
## [1] "22"

Ejemplo 6

jugador1$id
## [1] "destructor00"

Ejemplo 7

player = c("Stephen Curry", "LeBron James", "Jayson Tatum", "Joel Embiid", "Luka Doncic")

team = c("GSW", "LAL", "BOS", "PHI", "DAL")

position = c("PG", "SF", "SF", "C", "PG")

age = c(34, 37, 24, 28, 23)

top5nba = data.frame(Jugadores = player, Equipo = team, Posición = position, Edad = age)

head(top5nba)
##       Jugadores Equipo Posición Edad
## 1 Stephen Curry    GSW       PG   34
## 2  LeBron James    LAL       SF   37
## 3  Jayson Tatum    BOS       SF   24
## 4   Joel Embiid    PHI        C   28
## 5   Luka Doncic    DAL       PG   23

Ejemplo 8

jugador2 = list(name = "Renato", id="killerjoy31", age = "15")
jugador2
## $name
## [1] "Renato"
## 
## $id
## [1] "killerjoy31"
## 
## $age
## [1] "15"
(jugador1$age == jugador2$age)
## [1] FALSE

Desafío 3

Para el correcto funcionamiento de esta función debe escribir en consola juego_ppt(respuesta) donde en vez de escribir respuesta debe elegir entre las siguientes opciones:

tijera piedra papel

para asegurar un mejor uso de la función puede copiar su opción de las de arriba y copiarla dentro del parentesis de juego_ppt, además de aplicar run sobre las variables definidas abajo y la función en si.

tijera = “tijera” piedra = “piedra” papel = “papel”

juego_ppt <- function(a){
RPS = list(op = "piedra", opc = "papel", opci = "tijera")
machine = RPS[[sample(1:length(RPS), 1)]]
cat("Tu lanzaste", a,"la máquina lanzó", machine,"por lo tanto ")
if (a == machine){
  cat("tenemos un empate.")
}
if(a == "piedra" && machine == "papel"){
  cat("pierdes :( inténtalo de nuevo.")
}
if(a == "piedra" && machine == "tijera"){
  cat("ganas ! bien hecho.")
  }
if(a == "papel" && machine == "tijera"){
  cat("pierdes :( inténtalo de nuevo.")
}
if(a == "papel" && machine == "piedra"){
  cat("ganas ! bien hecho.")
  }
if(a == "tijera" && machine == "piedra"){
  cat("pierdes :( inténtalo de nuevo.")
  }
if(a == "tijera" && machine == "papel"){
  cat("ganas ! bien hecho.")
  }
}

Desafío 4

Se elige el dataset del Titanic el cuál representa la cantidad de personas involucradas en la tragedia relacionada al Titanic, además de cuantificar por género, edad, nivel económico y si sobrevivieron o no.

data(Titanic)

El motivo de la recolección de estos es que la institución gubernamental británica Board of Trade estaba realizando una investigación sobre el hundimiento de este famoso barco. Los datos pueden ser utilizados para redactar cualquier información sobre este acontecimiento, este logra captar la atención de la gente debido a la película que se hizo relacionada a la tragedia. La fuente de los datos es la institución gubernamental británica Board of Trade.

Tenemos 4 variables en el array edad(child o adult, es decir, niño o adulto), sobrevivientes(si o no), nivel económico(1era, 2da, 3ra o miembro de la tripulación) y género(mujer o hombre).

CLASIFICACIÓN DE VARIABLES:

Nivel económico: Variable ordinal Sobrevivientes: Variable cualitativa dicotómica (SÍ sobrevivió o NO sobrevivió) Edad: Variable cualitativa dicotómica (En este caso la edad esta dividad en clases, limitada a dos) Género: Variable cualitativa dicotómica

Estas juntas combinadas limitan la cantidad de personas que podemos ver por cada indíce esta variable es:

Cantidad de personas: Variable cuantitativa discreta.

summary(Titanic)
## Number of cases in table: 2201 
## Number of factors: 4 
## Test for independence of all factors:
##  Chisq = 1637.4, df = 25, p-value = 0
##  Chi-squared approximation may be incorrect

Lo que logra la función summary es entregar en pocas lineas de código un resumen de los datos entregados donde las dos primeras lineas lo que indican son la cantidad de datos analizados y la variables aplicadas, es decir, 4 factores luego se aplica una prueba de la independencia en todos los datos, esta se ocupa para ver si dos datos están relacionados en este caso si los niños y y los niños muertos se relacionan

plot(Titanic)

La función plot lo que entrega es un gráfico que representa los datos contenidos por el dataset.