knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.path = "man/figures/" )
SBSR es un paquete disenado para trabajar facilmente con data publica de la SBS, de forma gratuita, libre y facil. Este proyecto es creado por Behavioral Economics & Data Science Team (BEST). Aprende a utilizarlo con nuestros ejemplos en https://bestdatascience.github.io/SBSR/index.html, https://bestdatascience.github.io/docs/articles/analisis-4-principales-bancos.html y https://bestdatascience.github.io/SBSR/docs/articles/analisis-banco-ripley-vs-banco-falabella.html.
Lo primero que debemos hacer es instalar primero R en este enlace y luego RStudio en este enlace. Posteriormente dentro de la consola se debera poner los siguientes scripts
# Los paquetes nuevos son instalados a traves de la funcion install.packages(), siempre entre comillas install.packages("ggplot2") install.packages("dplyr") install.packages("reshape2") install.packages("tidyr") install.packages("xts") install.packages("zoo") install.packages("dygraphs") install.packages("devtools") install.packages("lubridate") devtools::install_github("BESTDATASCIENCE/SBSR")
Instalemos primero los paquetes necesarios de forma inteligente! Usemos la siguiente funcion: copiala y pega en tu consola de R, o ponlo en un script y usa control control + enter.
#apliquemos funciones para hacer el proceso mas veloz rpak <- function(pkg){ new.pkg <- pkg[!(pkg %in% installed.packages()[, "Package"])] if (length(new.pkg)) install.packages(new.pkg, dependencies = TRUE) sapply(pkg, require, character.only = TRUE) } # los paquetes que necesitamos! packages <- c("ggplot2", "dplyr", "reshape2","tidyr","xts","zoo","dygraphs","devtools","lubridate") rpak(packages) # Instala la ultima version de nuestro paquete usando devtools::install_github("BESTDATASCIENCE/SBSR")
Utilicemos la funcion library()
para activar los paquetes instalados.
library(SBSR) library(xts) library(dplyr) library(tidyr) library(dygraphs) library(ggplot2) library(reshape2) library(lubridate)
Utilicemos funciones para activar una lista de paquetes!
packs=c("SBSR","xts","dplyr","tidyr","dygraphs","ggplot2","reshape2","lubridate") invisible(lapply(packs,library,character=T))
El paquete cuenta con data de los bancos y lo puedes usar facilmente utilizando el siguiente script:
data("bancos") bd<-bancos %>% filter (Entidad %in% c("BCP","BBVA","Scotiabank","Interbank")) %>% select(Entidad,morosidad,Fecha) bd<-bd %>% spread(Entidad, morosidad) bd<-xts(bd[,2:5],order.by = as.Date(bd$Fecha)) dygraph(bd)
Por favor considerar que este paquete cuenta con un Codigo de Conducta del Contribuidor. Al participar en este proyecto o utilizarlo, se asume que estas de acuerdo con estos terminos.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.