andrewnguyen42

library(dplyr)
library(ggplot2)
library(httr)
library(stringr)

my_pi <- GET(url = 'https://www.angio.net/pi/digits/pi1000000.txt') %>% 
  content(as="text") 

n <- 1000000

andrewnguyen42

library(lme4)
library(blme)
library(arm)


cps <- read.csv('cps.csv')
cps <- subset(cps,wageworkerlastyear==1 & !is.na(lhourlywage))
cps$state<-as.integer(cps$statefip)
cps$nchildnum<-as.integer(cps$nchild)-1
cps$statefip<-as.factor(cps$statefip)

andrewnguyen42

dataframe <- read.csv('rushing.csv', header = TRUE,sep = ",")


#filter for 16 game seasons and running backs
sixteenGamesdf <- dataframe %.% filter(Pos == 'TB' | Pos =='rb' | Pos == 'RB' , Year >= 1978)


sixteenGamesdf$Tm[sixteenGamesdf$Tm=="RAM"]<-"STL"
sixteenGamesdf$Tm[sixteenGamesdf$Tm=="PHO"]<-"ARI"
sixteenGamesdf$Tm[sixteenGamesdf$Tm=="RAI"]<-"OAK"

andrewnguyen42

public static int waterFill(int[] arr){
	
	int rainCount=0;
	int max=arr[0];
	
	for(int i=0;i<arr.length;i++){
		max=(arr[i]>max)?arr[i]:max;
	}
	
	//fill it up

andrewnguyen42

  	 /**
	 * Actually takes care of posting data to a service
	 * @param xml The xml data in the form of a Java String
	 * @param url The address to post data to
	 */
	private static boolean postData(String xml, String url){
		
		 //PostMethod post=new PostMethod();
		 HttpPost pst=null;

andrewnguyen42

import java.io.File;

public class FileLister {
   public static void main(String[] args) {
	      list(new File("/"));
	   }
	   
	   /**
	    * Display a list of the specified file and all its descendants.
	    */