Estadistica Computacional - Ejercicios 1

Desafío 1

10 ejemplos con operadores matematicos

v1 = 5
v2 = 4
v3 = 10
v4 = 10.1
v5 = -3

• Resta

resta = v1 - v2
resta

## [1] 1

• Elevar al cuadrado

cuadrado = v1^2
cuadrado

## [1] 25

• Elevar al cubo

cubo = v1^3
cubo

## [1] 125

• Elevar a N

elevado = v1^v2
elevado

## [1] 625

• Función Techo

techo1 = ceiling(v3)
techo2 = ceiling(v4)
techo1

## [1] 10

techo2

## [1] 11

• Truncar

truncar = trunc(v4)
truncar

## [1] 10

• Coseno de 10 en grados

coseno = cos(v3*pi/180)
coseno

## [1] 0.9848078

• Valor absoluto

absoluto1 = abs(v1)
absoluto2 = abs(v5)
absoluto1

## [1] 5

absoluto2

## [1] 3

• Raiz cubica

raizcubica = v2^(1/3)
raizcubica

## [1] 1.587401

• Logaritmo base 2

logaritmo = log2(v2)
logaritmo

## [1] 2

Desafío 2

Se representará mediante el uso de booleanos y una matriz la conexión entre 5 nodos, donde un 1 representará la existencia de conexión entre ambos nodos y un 0 la no conexión. Cada fila y columna representa al nodo dependiendo de la numeración respectiva

nodos = matrix( c(0,0,0,0,0,1,0,0,0,1,1,0,0,1,0,0,0,1,0,1,0,1,0,1,0), nrow=5, ncol=5)
nodos

##      [,1] [,2] [,3] [,4] [,5]
## [1,]    0    1    1    0    0
## [2,]    0    0    0    0    1
## [3,]    0    0    0    1    0
## [4,]    0    0    1    0    1
## [5,]    0    1    0    1    0

Desafío 3

Funcion que permita jugar “Piedra, papel o tijera”

juego = function(){
  
  x = "Ingrese su opcion a jugar: \n 1 para papel\n 2 para tijera\n 3 para piedra"
  cat(x)
  x = readline(prompt="Opcion a jugar: ")
  # El jugador realiza su jugada
  if(x == 1){
    jugadaPersona = "Papel"
  }
  if(x == 2){
    jugadaPersona = "Tijera"
  }
  if(x == 3){
    jugadaPersona = "Piedra"
  }
  
  jugadaMaquina = sample(1:3,1,replace=F) # Se genera un numero al azar entre 1, 2 o 3
  
  if(jugadaMaquina == 1){
    jugadaMaquinaS = "Papel"
  }
  if(jugadaMaquina == 2){
    jugadaMaquinaS = "Tijera"
  }
  if(jugadaMaquina == 3){
    jugadaMaquinaS = "Piedra"
  } # Se transforma el numero al azar en una jugada para la maquina
  
  cat(jugadaPersona,"VS",jugadaMaquinaS)
  # Se informa el duelo a la persona
  
  # Casos posibles del juego y sus respectivos resultados
  if(x == jugadaMaquina){
    mensaje = "\nEmpate"
    return(cat(mensaje))
  }
  if((x == 2 || jugadaMaquina == 2)&&(x == 3 || jugadaMaquina == 3)){ 
    mensaje = "\nGana piedra" # Tijera VS Piedra
    cat(mensaje) 
    return() 
  }
  if((x == 2 || jugadaMaquina == 2)&&(x == 1 || jugadaMaquina == 1)){ 
    mensaje = "\nGana tijera" # Tijera VS Papel
    return(cat(mensaje))
  }
  if((x == 1 || jugadaMaquina == 1)&&(x == 3 || jugadaMaquina == 3)){ 
    mensaje = "\nGana piedra" # Papel VS Piedra
    return(cat(mensaje))
  }
  if((x == 3 || jugadaMaquina == 3)&&(x == 2 || jugadaMaquina == 2)){ 
    mensaje = "\nGana Piedra" # Piedra VS Tijera
    return(cat(mensaje))
  }
  
}

Desafío 4

Para este desafío he seleccionado el dataset ‘euro’, siendo un conjunto de datos que contiene el equivalente al valor de 1 euro en las diversas monedas incluidas en la Union Monetaria Europea, tales como el Chelín Austriaco, Peseta Española, el Franco Belga, entre otras más. Para este conjunto de datos se utiliza la tasa de conversión del euro, que sirve hasta el dia de hoy y fue arreglada por la Unión Europea el 31 de diciembre de 1998. Lo anterior nos indica que este conjunto de datos puede haber sido utilizado para ayudar en la transición de cada país de su moneda propia al euro alrededor de los años 2000.

cbind(euro)

##            euro
## ATS   13.760300
## BEF   40.339900
## DEM    1.955830
## ESP  166.386000
## FIM    5.945730
## FRF    6.559570
## IEP    0.787564
## ITL 1936.270000
## LUF   40.339900
## NLG    2.203710
## PTE  200.482000

Con el comando anterior tenemos el valor actual de 1 euro en las monedas respectivas usadas años atras en diversos países. Tenemos de arriba abajo el Chelin Austriaco, Franco Belga, Marco Alemán, Peseta Española, Marco Finlandés, Franco Francés, Libra Irlandesa, Lira Italiana, Franco luxemburgués, Florín Neerlandés y el Escudo Portugués. Al tratarse de monedas, estamos frente a unas variables cuantitativas continuas.

summary(euro)

##      Min.   1st Qu.    Median      Mean   3rd Qu.      Max. 
##    0.7876    4.0747   13.7603  219.5482  103.3630 1936.2700

Al ejecutar el comando “summary(euro)” notamos datos estadisticos de los valores almacenados en este conjunto de datos, como el valor minimo de 0.7876, que es el valor de 1 euro en la Libra Irlandesa a dia de hoy, que a su inversa podemos notar el máximo con la Lira Italiana con un valor de 1936.27 liras.Tenemos el primer y tercer quintil, acompañados de la mediana y la media.

plot(euro)

Al ejecutar el comando “plot(euro)” podemos ver un grafico donde se presenta el valor del euro vs la respectiva moneda, sin embargo no está presente el nombre o sigla respectivo de cada moneda, sin embargo el orden es el siguiente: Chelin Austriaco, Franco Belga, Marco Alemán, Peseta Española, Marco Finlandés, Franco Francés, Libra Irlandesa, Lira Italiana, Franco luxemburgués, Florín Neerlandés y el Escudo Portugués. Podemos ver como 1936 Liras Italianas equivalen a 1 euro.