rparatodxs

#---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

#---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

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

#*****************************************
#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

##############################################################################
 #                        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

#-----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

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

## Statistics Department - IMF
## Based on the regression method proposed by Cholette-Dagum (2006)
## Comments and/or suggestions to: STARE@imf.org

lmd <- 1
B   <- 3

M <- dim(a)

rparatodxs

#-----------------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

#--------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

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; 
; 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: