Desafio 1

Suponer que se tiene inicialmente:

num1=14
num2=5

Exponente

ex=4
num2**ex
## [1] 625

Modulo

num1%%num2
## [1] 4

Raiz de x de y

y=4
num1^(1/y)
## [1] 1.934336

Negativo

num1*(-1)
## [1] -14

El porcentaje de un numero con respecto al 100%

numx=5 #número a buscar %
num100=50 #número 100%
(numx*100)/num100
## [1] 10

Coseno en radianes de un numero

cos(num1)
## [1] 0.1367372

Tangente en radianes

sin(num1)/cos(num1)
## [1] 7.244607
tan(num1)
## [1] 7.244607

Cotangente en radianes

cos(num1)/sin(num1)
## [1] 0.1380337

Sumatoria

numero=10
(numero*(numero+1))/2
## [1] 55

Logaritmo natural

log(num1)
## [1] 2.639057

Desafio 2

Datos booleanos

booleano= c(TRUE, FALSE)
booleano
## [1]  TRUE FALSE

Factor

factor(c("agua", "fuego", "hielo", "hielo", "agua"))
## [1] agua  fuego hielo hielo agua 
## Levels: agua fuego hielo

Atributos

personax = "carlitos"
attr(personax, "continente")= "America sur"
attr(personax, "pais")= "Chile"
attr(personax, "region")="Metropolitana"
attr(personax, "edad")=20
str(attributes(personax))
## List of 4
##  $ continente: chr "America sur"
##  $ pais      : chr "Chile"
##  $ region    : chr "Metropolitana"
##  $ edad      : num 20

Desafio 3

Se creo una funcion que permite jugar al Piedra, Papel o Tijeras.

Tomar en cuenta de como se trata de un algoritmo que es al azar, actulizar la pagina podria ayudar a jugar denuevo

cachipum=function(x){
  random=sample(1:3,1,replace=F) 
  if (random==1){ #CASO PIEDRA
    cat("computadora ha utilizado piedra.")
    if (x=="papel"){
      cat(" Has ganado, papel gana a piedra")
      }
    if (x=="tijeras"){
      cat(" Has Perdido, piedra gana a tijeras")
      }
    imprimir="piedra"
    }
  
  if (random==2){ #caso papel
    cat("computadora ha utilizado papel.")
    if (x=="piedra"){
      cat(" Has Perdido, papel gana a piedra")
      }
    if (x=="tijeras"){
      cat(" Has ganado, tijeras gana a papel")
      }
    imprimir="papel"
    }
  
  if (random==3){#caso tijeras
    cat("computadora ha utilizado tijeras.")
    if (x=="papel"){
      cat(" Has Perdido, tijeras gana a papel")
      } 
    if (x=="piedra"){
      cat(" Has ganado, piedra gana a tijeras")
      }
    imprimir="tijeras"
  }
  if (imprimir==x){
    cat(" empate:c")
  }
}
cachipum("piedra")#probar con "papel" y "tijeras"
## computadora ha utilizado tijeras. Has ganado, piedra gana a tijeras

Desafio 4

Orange

Orange es un “Dataset” que es un marco de datos (data frame) que contiene 3 variables (Árbol, edad (en días) y circunferencia) y tiene 35 filas (7 filas para cada árbol, con un total de 5 árboles), esta información tiene la función de comparar Árboles en distintas etapas de sus vidas, teniendo como foco de comparación, el tamaño de su circunferencia. Cabe destacar que los datos fueron registrados desde el 31/12/1968. https://stat.ethz.ch/R-manual/R-devel/library/datasets/html/Orange.html

El dataset “Orange” puede tomar 3 tipos de variable, el “árbol”, la “edad” y la “circunferencia”, la variable “árbol” se refiere al árbol del cual se habla, esta toma los valores de 5 arboles distintos en 7 periodos de tiempo

Orange[,1]
##  [1] 1 1 1 1 1 1 1 2 2 2 2 2 2 2 3 3 3 3 3 3 3 4 4 4 4 4 4 4 5 5 5 5 5 5 5
## Levels: 3 < 1 < 5 < 2 < 4

Esta variable posee la unidad de medida de un entero, aunque puede tomar el valor de un string si se quisiera, ya que solo es un factor que indica el árbol del cual se habla.

La variable “Edad” se refiere al tiempo de vida del árbol del cual se habla, este esta en días tomados desde 1968, esta variable toma los valores de:

Orange[,2]
##  [1]  118  484  664 1004 1231 1372 1582  118  484  664 1004 1231 1372 1582  118
## [16]  484  664 1004 1231 1372 1582  118  484  664 1004 1231 1372 1582  118  484
## [31]  664 1004 1231 1372 1582

Estos valores poseen la unidad de medida en días.

Para finalizar la Variable circunferencia se refiere al grosor del árbol del que se habla, este toma los valores de:

Orange[,3]
##  [1]  30  58  87 115 120 142 145  33  69 111 156 172 203 203  30  51  75 108 115
## [20] 139 140  32  62 112 167 179 209 214  30  49  81 125 142 174 177

Estos valores poseen la unidad de medida en milímetros (mm).

Función Summary

summary(Orange)
##  Tree       age         circumference  
##  3:7   Min.   : 118.0   Min.   : 30.0  
##  1:7   1st Qu.: 484.0   1st Qu.: 65.5  
##  5:7   Median :1004.0   Median :115.0  
##  2:7   Mean   : 922.1   Mean   :115.9  
##  4:7   3rd Qu.:1372.0   3rd Qu.:161.5  
##        Max.   :1582.0   Max.   :214.0

La función summary muestra distintos valores de las tablas de las variables (Árbol, edad y circunferencia), para la primera tabla esta muestra la cantidad de veces que se tomaron registro, es decir del árbol 3 se tomaron 7 veces y así sucesivamente con los demás, también las siguientes tablas muestran, el número menor de edad (edad inicial y circunferencia menor), el primer cuartil, el número de en medio, el promedio, el tercer cuartil y el número más grande (edad máxima y diámetro mas grande).

Función Plot

plot(Orange)

Se observa una matriz de correlación en donde se observan 6 gráficos, en donde por ejemplo se tiene el caso del Árbol como eje X y la Edad como eje Y, pero también existe el de árbol como eje Y y la Edad como eje x, es por esto que se le llama matriz de correlación, en donde esta nos muestra todas las posibles tablas que se pueden generar a base de la información obtenida.

plot(circumference ~ age, data = Orange, pch = 15, col=c("red", "blue", "violet", "green", "black"),
     xlab = "Edad Árbol",
     ylab = "Circunferencia  Árbol (mm)", las = 1,
     main = "Edad vs Circunferencia ")

Por otro lado, no es menor destacar de los gráficos mostrados anteriormente, destaca el de Circunferencia vs Edad, ya que este se centra más en el propósito inicial del trabajo.