jbryer

require(ipeds)
require(ggplot2)
require(reshape2)
require(scales)
data(surveys)

View(surveys)

# Directory
ipedsHelp('HD', 2012)

jbryer

.libPaths() #By default, R will install packages to the first element

#This script will install some very common R packages.
repos = 'http://cran.r-project.org' #Main CRAN
repos.win = 'http://www.stats.ox.ac.uk/pub/RWin' #Site provides some prebuilt binaries for Windows
repos.rforge = 'http://r-forge.r-project.org'

libraries = c('Deducer', 'devtools', 'doBy', 'foreign', 'gdata', 'ggplot2', 'gmaps', 
	'Hmisc', 'JGR', 'maps', 'mapdata', 'mapproj', 'maptools', 'proto', 'psych', 'R2wd',
	'Rcmdr', 'RCurl', 'reshape', 'RODBC', 'roxygen2', 'seqinr', 'sm', 'sp',

jbryer

require(XML)
require(RCurl)

#' This function ruturns an XML tree of the RSS feed from the given URL.
#'
#' This function utilizes the (unofficial) Google Reader API to retrieve RSS
#' feeds. The advantage of access RSS feeds through the Google Reader API is that
#' you are not limited by the number of entries a website may included in their
#' feed. That is, Google maintains generally maintains a complete history of
#' entries from the RSS feed. 

jbryer

source('https://raw.github.com/gist/1606595/269d61dfcc7930f5275a212e11f3c43771ab2591/GoogleReader.R')

rbloggers = getRSSFeed(feedURL="http://r-bloggers.com/feed",
			   email="GOOGLE READER EMAIL",
			   passwd="GOOGLE READER PASSWORD",
			   posts=5000)
entries = rbloggers[which(names(rbloggers) == "entry")]
length(entries)
saveXML(rbloggers, file='rbloggers.xml')

jbryer

#' Constructor
EmailClass <- function(name, email) {
	nc = list(
		name = name,
		email = email,
		get = function(x) nc[[x]],
		set = function(x, value) nc[[x]] <<- value,
		props = list(),
		history = list(),
		getHistory = function() return(nc$history),

jbryer

## See http://en.wikipedia.org/wiki/Birthday_problem for an explanation  of the problem
require(ggplot2)
require(reshape)

theme_update(panel.background=theme_blank(), 
			 panel.grid.major=theme_blank(), 
			 panel.border=theme_blank())

birthday <- function(n) { 
	1 - exp( - n^2 / (2 * 365) )

jbryer

# .Rprofile -- commands in this file will be executed at the beginning of
# each R session. On Windows, the R_PROFILE environment variable must have value
# with the full path to this file. On Linux (or other Unix like systems) this file
# must be in the user's home directory.

# Set the default repository to the main CRAN site
options(repos=c(CRAN='http://cran.r-project.org'))

# Set the oDrive varaible and library path
if(Sys.info()['sysname'] == 'Windows') {

jbryer

require(ggplot2)
require(grid)

theme_update(panel.background=theme_blank(), 
			 panel.grid.major=theme_blank(), 
			 panel.border=theme_blank())

#Borrowed (i.e. stollen) from http://research.stowers-institute.org/efg/R/Color/Chart/ColorChart.R
getColorHexAndDecimal <- function(color) {
	if(is.na(color)) {

jbryer

#' Set function parameters for debugging.
#' 
#' Sets the defauls for the parameters in the given function witin an environment.
#' 
#' @param fun the function whose parameters should be set.
#' @param envir the environment to set those parameters.
#' @param missing.value value to assign to parameters that do not have a defautl value.
#' @param overwrite should parameters already defined be overwritten.
setFunctionParams <- function(fun, 
  						  envir=.GlobalEnv,

jbryer

#' Creates a dialog box using tcl/tk to get input from the user.
#' 
#' This function will create a tcl/tk dialog box to get user input. It has been
#' written to be extensible so the R programmer can easily create a dialog with
#' any number of varaibles with custom labels and data conversion of the user
#' entered data. The function will return a list where the element names are
#' \code{vars} and the value is the user input. By default, all entry will be
#' converted using the \code{as.character} function. However, this can easily be
#' altered using the \code{fun} parameter. For example, if integers are required,
#' use \code{fun=c(as.integer, ...)}. It is also possible to write custom