Ejercicios 1 - 4 Estadistica Computacional

Desafio 1

El desafio 1 pide realizar 10 ejemplos con diferentes operadores matematicos a los siguientes: suma, multiplicación, división, logaritmo base 10, raíz cuadrada, seno en radianes, seno en grados y aproximacion de numeros.

Considerando lo anterior se realizaran ejemplos con los siguientes operadores matematicos:

• Resta

  resta = 5 - 4
  resta

  ## [1] 1

• Potencia

  potencia = 3^2
  potencia

  ## [1] 9

• Modulo

  modulo = 14%%3
  modulo

  ## [1] 2

• Valor absoluto

  vAbsoluto = abs(-7)
  vAbsoluto

  ## [1] 7

• Factorial

  factorial = factorial(5)
  factorial

  ## [1] 120

• Logaritmo base 2

  logaritmo = log2(20)
  logaritmo

  ## [1] 4.321928

• Coseno

  coseno = cos(90)
  coseno

  ## [1] -0.4480736

• Tangente

  tangente = tan(90)
  tangente

  ## [1] -1.9952

• Cotangente

  cotangente = atan(60)
  cotangente

  ## [1] 1.554131

• Redondear

  redond = round(3.14159,4)
  redond

  ## [1] 3.1416

Desafio 2

El desafio 2 pide realizar ejemplos usando tipos de estructura de datos:

Para el siguiente ejemplo se considera un grupo de 10 persona a las que se les pregunta si tienen mascotas o no - Elementos booleanos

   mascota <-c(TRUE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE) 
   mascota

##  [1]  TRUE FALSE FALSE  TRUE FALSE  TRUE  TRUE FALSE  TRUE  TRUE

Con la anterior lista de valores boleanos respecto de la tenencia o no de mascotas podemos considerarlo un factor devido a sus dos categorias

• Factores

  mascotas <- factor(mascota)
  mascotas

##  [1] TRUE  FALSE FALSE TRUE  FALSE TRUE  TRUE  FALSE TRUE  TRUE 
## Levels: FALSE TRUE

Por ultimo con la informacion obtenida se puede realizar una tabla de informacion - Tablas

  table(mascotas)

## mascotas
## FALSE  TRUE 
##     4     6

Desafio 3

El desafio 3 pide construir una función que permita a un usuario jugar al piedra papel o tijera.

juego = function(jugador1, jugador2){
  piedra = 1
  papel = 2
  tijera = 3
  print("Escoga una de las siguientes opciones:")
  print("Igrese 1 si su opcion desea escoger piedra")
  print("Igrese 2 si su opcion desea escoger papel")
  print("Igrese 3 si su opcion desea escoger tijera")

  jugador1 = readline(prompt = "Ingrese su opcion:  ")
  jugador2 = sample(1:3, 1)
  
  if (jugador1 == jugador2){
    print("Ha sido un empate")
  }
  else if (jugador1 == piedra){
    if (jugador2 == papel){
      print("Ha ganado el jugador 2")
    }
    else if (jugador2 == tijera){
      print("Ha ganado el jugador 1")
    }
  }
  else if (jugador1 == papel){
    if (jugador2 == piedra){
      print("Ha ganado el jugador 1")
    }
    else if (jugador2 == tijera){
      print("Ha ganado el jugador 2")
    }
  }
  else if (jugador1 == tijera){
    if (jugador2 == papel){
      print("Ha ganado el jugador 1")
    }
    else if (jugador2 == piedra){
      print("Ha ganado el jugador 2")
    }
  }
  else {
    print("El jugador 1 no ha ingresado una opción válida")
  }
}

En este caso como se pide que solo un jugador pueda jugar, al “jugador 2” se le asigna una opción aleatoria.

Desafio 4

1.- Seleccione un conjunto de datos desde el paquete ‘datasets’ de R.

  data("trees")

2.- Describa el conjunto de datos y explique para que fue o podría ser utilizado. ¿Cuál es la fuente de los datos?

El conjunto de datos provee las medidas con respecto a los diametros alturas y volumenes de 31 alrboles de cerezo. Cabe destacar que la fuente utilizada para estos datos es Ryan, T. A., Joiner, B. L. and Ryan, B. F. (1976) The Minitab Student Handbook. Duxbury Press.

3.- Describa cada variable, indique a qué tipo de variable corresponde, indique qué valores puede tomar y su unidad de medida.

Las variables utilizadas en el set de datos son el diametro (girth), la altura(height) y el volumen(volume), tanto el volumen y la altura tiene una unidad de medidas de pies(feets) y el diametro una unidad de medicion de pulgadas(inchs).

4.- Ejecute la función summary(“conjunto_de_datos”).

summary("trees")

##    Length     Class      Mode 
##         1 character character

5.- Ejecute la función plot(“conjunto_de_datos”).

plot(trees)