rparatodxs’s gists

rparatodxs / salariosINE2014_20150101.R

Last active January 4, 2016 18:49

Este codigo es un ejemplo para obtener los datos del sitio de transparencia del INE, correspondiente a los datos del 2014. Siempre debe hacerse cuando el año esta finalizado.

	#---actualizado 01-01-2016. Codigo trabajado usando las librerias:
	#--Optimizar para http://www.gobiernotransparentechile.cl/directorio/entidad
	#--lee las librerias que hace el web scrap. En caso de no tenerla instalada debe instalarla usando el comando:
	#--"install.packages(c("rvest", "ggplot2","scales"))"--- no usar las cremillas exteriores.

	library(rvest)
	library(ggplot2)
	library(scales)

rparatodxs / MIN_MEDAMB_2014

Last active December 31, 2015 12:49

	#---actualizado 01-01-2016. Codigo trabajado usando las librerias:

	#--lee las librerias que hace el web scrap. En caso de no tenerla instalada debe instalarla usando el comando:
	#--"install.packages(c("rvest", "ggplot2","scales"))"--- no usar las cremillas exteriores.

	library(rvest)
	library(ggplot2)
	library(scales)

rparatodxs / FONIS_Paula.R

Last active February 11, 2016 20:12

	rm(list=ls())
	estudio <-read.csv("http://www.udec.cl/~jbustosm/consolidado_bases.csv", sep=";", h=T)
	estudio0<-estudio[,c(1:51)]
	attach(estudio0)
	estudio0$cansancio_emocional<-(MBI1.1+MBI2.1+MBI3.1+MBI6.1+MBI8.1+MBI13.1+MBI14.1+
	MBI16.1+MBI20.1)
	detach(estudio0)
	##-------------------------HISTOGRAMA DE FRECUENCIA PARA BURNOUT: CANSANCION EMOCIONAL--------------------------------
	hist(estudio0$cansancio_emocional, main="Cansancio Emocional", ylab="Frecuencia", xlab="Puntaje", col = gray.colors(11),
	breaks=11)

rparatodxs / Curso de Regresión

Created January 20, 2016 19:38

Este curso fue originalmente creado por el profesor Edgar Acuña de la Universidad de Puerto Rico.

	#*****************************************
	#Laboratorio 1 de Regresion Aplicada:
	# Regresion lineal simple en R
	# Enero del 2010
	#*****************************************
	#Leyendo el conjunto de datos mortalidad de la internet
	muertes <- read.table("http://www.udec.cl/~jbustosm/muertes.csv",
	header=TRUE, sep=";")
	#Mostrando los datos
	muertes

rparatodxs / calendarHeat

Created January 20, 2016 19:41

	##############################################################################
	# Calendar Heatmap #
	# by #
	# Paul Bleicher #
	# an R version of a graphic from: #
	# http://stat-computing.org/dataexpo/2009/posters/wicklin-allison.pdf #
	# requires lattice, chron, grid packages #
	##############################################################################

	## calendarHeat: An R function to display time-series data as a calendar heatmap

rparatodxs / Temperatura_Chile_Scrap

Last active January 19, 2018 14:19

	#-----Web Scraper del Meteo Chile
	#-http://164.77.222.61/climatologia/php/temperaturaMensual.php?IdEstacion=330021&FechaIni=01-01-1971
	setwd("C:/Scraping Data from the Web")
	rm(list=ls())
	require(RCurl)
	require(XML)
	library(rvest)
	require(rjson)
	library(RJSONIO)

rparatodxs / función BNCH

Created August 18, 2016 13:39

	BNCH <- function(a,s,rho) {

	## Statistics Department - IMF
	## Based on the regression method proposed by Cholette-Dagum (2006)
	## Comments and/or suggestions to: [email protected]

	lmd <- 1
	B <- 3

	M <- dim(a)

rparatodxs / Muestreo_Lumey.R

Created August 23, 2017 17:27

Muestreo_Lumey.R

	#-----------------TUTORIAL DE MUESTREOS EN R--------------
	R version 3.2.1 (2015-06-18) -- "World-Famous Astronaut"
	Copyright (C) 2015 The R Foundation for Statistical Computing
	Platform: i386-w64-mingw32/i386 (32-bit)
	#---------------BASADO EN EL MANUAL DE LUMEY--------------
	rm(list=ls())
	#Introducción
	#El presente tutorial tiene como objetivo principal el introducir al
	#usuario en el muestreo simple y complejo en el ambiente de programación
	#analítica R.Se cubren los siguientes temas:

rparatodxs / respuesta_encuesta.R

Last active September 8, 2017 17:50

Clasifica los informantes de una encuestra y busca perfiles en base a una matriz de respuesta/No-respuesta

	#--------08-09-2017-----------
	#-----------------------------
	#-Estoy feliz de compartir este código, pero cuenteme cuando lo utilice.
	#-Ayuda a la indentificación de grupos de informantes en una base de datos o encuesta
	#-----------------------------

	library(vegan)
	library(dendextend)
	library(colorspace)
	library(circlize)

rparatodxs / positive-words.txt

Created December 17, 2017 17:03

	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;
	; Opinion Lexicon: Positive
	;
	; This file contains a list of POSITIVE opinion words (or sentiment words).
	;
	; This file and the papers can all be downloaded from
	; http://www.cs.uic.edu/~liub/FBS/sentiment-analysis.html
	;
	; If you use this list, please cite one of the following two papers: