Irina Max IrinaMax

## Amelia_example.R
doInstall <- TRUE
toInstall <- c("Amelia", "ggplot2")
if(doInstall){install.packages(toInstall, repos = "http://cran.us.r-project.org")}
lapply(toInstall, library, character.only = TRUE)

ANES <- read.csv("http://www.oberlin.edu/faculty/cdesante/assets/downloads/ANES.csv")
ANES <- ANES[ANES$year == 2008, -c(1, 11, 17)]  # Limit to just 2008 respondents,
head(ANES)  # remove some non-helpful variables

with(ANES, plot(jitter(pid7), jitter(ideo7)))

## fizzbuzz.md

      
        
          
            
              
              1 file
            
          
          
            
              
              0 forks
            
          
            
              
                
                0 comments
              
            
          
            
              
              0 stars
            
          
        
        
          
              
          
          
            
                IrinaMax
                / fizzbuzz.md
            
            
              Created
              January 25, 2017 08:25
                — forked from aammd/fizzbuzz.md
            
              
                An example of calculating "FizzBuzz" in R using dplyr and magrittr
              
          
        
      
        
  
      
    Apparently, there is a simple problem called Fizz buzz which is sometimes used to identify competent programmers.  A good opportunity to practice some dplyr and magrittr tricks.
library(dplyr)
library(magrittr)
library(knitr)

1:100 %>%
 data.frame %&gt;%
	doInstall <- TRUE
	toInstall <- c("Amelia", "ggplot2")
	if(doInstall){install.packages(toInstall, repos = "http://cran.us.r-project.org")}
	lapply(toInstall, library, character.only = TRUE)

	ANES <- read.csv("http://www.oberlin.edu/faculty/cdesante/assets/downloads/ANES.csv")
	ANES <- ANES[ANES$year == 2008, -c(1, 11, 17)] # Limit to just 2008 respondents,
	head(ANES) # remove some non-helpful variables

	with(ANES, plot(jitter(pid7), jitter(ideo7)))