justgrimes

## OPM Workforce Data
## FedScope Employment Cube RAW Data Sets for general public consumption 
## Justin Grimes

# Load necesary packages

#install.packages("curl")
#library(curl)
#install.packages("RCurl")
#library(RCurl)

justgrimes

Building SMS Applications with Twilio

With over 3.5 billion active users, SMS (Short Message Service) is one of the most widely used data applications in the world. In the United States over 91% of adults own cell phone. Text messaging can be an incredibly useful way for delivering services and information to people.

So today, I'm going to show you how you can create a super simple light weight SMS application with just a few lines of code using Twilio, Lua, webscript.io, and Socrata's Open Data API (SODA). Twilio is a wonderful service that provides a HTTP API that allows people to build quick and easy SMS & voice applications. Lua is lightweight scripting language and [webscript.io](https://www.webscri

justgrimes

awk -F'|' 'BEGIN{print "COUNT,", "LINE"}{print gsub(/"/,"") "," NR}' file

justgrimes

#PLS Dot Density Map

library(maps)
library(mapproj)
library(maptools)
library(geosphere)
library(splancs)
library(foreign)

# Map just the points

justgrimes

# Script to load public public library data from FY 2012 Public Library Survey (PLS) from Institute of Museum and Library Services
# and merge it with most recent broadband data from National Broadband Map Community Anchor Institution data 
# 
# FOR REFERENCE

# CAIID - Unique federal ID's associated with the CAICAT 
# CAICAT -these are the unique federal ID's associated with the CAICAT
# MAXADDOWN - Maximum Advertised Download Speed subscribed to at this CAI
# MAXADUP - Maximum Advertised Upload Speed subscribed to at this CAI
# BBSERVICE - Does institution subscribe to broadband service at location (ex. Y=Yes; N=No; U=Unknown),

justgrimes

# Script to load public public library data from the most recent 
# FY 2012 Public Library Survey  (PLS) from Institute of Museum and Library Services

# Data documentation -> http://www.imls.gov/assets/1/AssetManager/fy2012_pls_data_file_documentation.pdf
# More info about data & survey -> http://www.imls.gov/research/public_libraries_in_the_united_states_survey.aspx

install.packages("audiolyzR")
library("audiolyzR")

# Load PLS 2012 directly from the web

justgrimes

justgrimes

#SDC Annual Meeting 2014 Introduction to R, R Studio, and Statistical Computing

# Load downloaded data from PLS 2012 survey, CSV format (comma seperated value)
pupld12a_csv <- read.csv("pupld12a_csv/pupld12a.csv", header = TRUE, sep=",", quote = "\"")
puout12a_csv <- read.csv("pupld12a_csv/puout12a.csv", header = TRUE, sep=",", quote = "\"")
pusum12a_csv <- read.csv("pupld12a_csv/pusum12a.csv", header = TRUE, sep=",", quote = "\"")

# Load downloaded data from PLS 2012 survey, Excel format (xls)
#install.packages("gdata")
library(gdata) #library to load xls data; if loading xlsx files use XLConnect library

justgrimes

# Load packages
library(maps)    # To draw map
library(maptools)

# download data files from IMLS website 
temp <- tempfile()
download.file("http://www.imls.gov/assets/1/AssetManager/pupld11b_csv.zip",temp)
pupld11b <- read.csv(unz(temp, "pupld11b.csv")) #file with library systems (admin buildings)
puout11b <- read.csv(unz(temp, "puout11b.csv")) #file with library outlets (all buildings)
unlink(temp)

justgrimes

require(tm)
a <- Corpus(DirSource("C:/Users/jgrimes/Desktop/text/"), readerControl = list(language="lat"))
#summary(a)
a <- tm_map(a, function(x) iconv(enc2utf8(x), sub = "byte"))
a <- tm_map(a, removePunctuation)
a <- tm_map(a, removeNumbers)
a <- tm_map(a, stripWhitespace)
a <- tm_map(a, tolower)
a <- tm_map(a, removeWords, stopwords("english"))
a <- tm_map(a, stemDocument, language = "english")