jbkunst

# rm(list=ls())
# RUT Functions
# RUT '16019432K'
# RUTNUM 16019432
# RUT10 '016019432K'
# DV 'K'

# devtools::source_gist("bec1a080d02b59ffd9b3")
# rutnums <- c(16019432, 16355485, 15724861, 121, 6505922) # dvs  <- c(4, 2, 8, "K", 3)

jbkunst

license: gpl-3.0

jbkunst

license: gpl-3.0

jbkunst

# run via
# source("https://gist.githubusercontent.com/jbkunst/981a6416025d3d7d80303bc20e5269fa/raw/install.packages.R")

install.packages(c(
  # tidyverse
  "tidyverse", "broom",
  # io
  "RODBC", "odbc", "readxl", "writexl", "dbplyr",
  # development
  "devtools", "testthat", "roxygen2", "assertthat",

jbkunst

x <- system("ipconfig", intern=TRUE)
x[grep("IPv4", x)]
z <- x[grep("IPv4", x)]
ip <- gsub(".*? ([[:digit:]])", "\\1", z)

runApp(host = ip)

jbkunst

Arbol de decisión:
  
  Algoritmo que divide recursivamente grupo de observaciones según valores
  de variables de acuerdo a una variable de interés y una medida de separación.
  El objetivo de usar el árbol de decisión es obtener grupos de observaciones 
  en donde cada segmento tenga distribuciones disimiles de la variable de interés

Random Forest:
  
  Es una colección de árboles de decisión tales que cada árbol es construido

jbkunst

rm(list = ls())
library(partykit)
library(tidyverse)

iris2 <- iris %>% 
  tbl_df() %>% 
  mutate(Species = as.character(Species),
         Species = ifelse(Species == "setosa", "versicolor", Species),
         Species = as.factor(Species))

jbkunst

rm(list = ls())
library(tidyverse)
library(viridis)
theme_set(theme_minimal())

n <- 1000
s <- seq(1, n)

x <- sqrt(s) + rnorm(n) +  log(s) * rnorm(n)

jbkunst

# packages ----------------------------------------------------------------
rm(list = ls())
library(tidyverse)
theme_set(theme_minimal())


# data --------------------------------------------------------------------
n <- 500
df <- data_frame(
  x1 = rnorm(n) + 1,

jbkunst

# x <- "https://raw.githubusercontent.com/melvidoni/r4ds/traduccion_melina/factors.Rmd"
# x <- "https://raw.githubusercontent.com/melvidoni/r4ds/traduccion_melina/datetimes.Rmd"

chequear_traduccion <- function(x = "https://raw.githubusercontent.com/melvidoni/r4ds/traduccion_melina/factors.Rmd") {
  
  library(tidyverse)
  library(hunspell)
  library(tidytext)
  
  data <- obtener_data(x)