{
    "contents" : "require(plyr)\nrequire(ggplot2)\nspcCode<-read.csv(\"speciesCode.csv\")\nspcData<-read.csv(\"speciesData.csv\")\ntrData<-read.csv(\"tripData.csv\")\nView(spcCode)\nView(spcData)\nView(trData)\ntrData$Date<-as.Date(trData$Date)\ncatchcount<-as.data.frame(rev(sort(table(spcData$SpeciesCode))))\nspcCode$Freq<-match(spcCode$SpeciesCode,catchcount$row.names,nomatch=0)\nspcData2<-count(spcData, c(\"TripNum\",\"SpeciesCode\"))\nMaxDaySpc<-ddply(spcData2,.(TripNum),summarise,max_spc=max(freq,na.rm=T))\nmeanspc<-ddply(spcData2,.(SpeciesCode),summarise,mean_spc=max(freq,na.rm=T))\nmeancatch<-merge(meanspc,spcCode,by=\"SpeciesCode\", all=T,sort=T,incomparables=NA)\nmeancatch2<-na.omit(meancatch)\ndailycatch<-spcData2[spcData2$SpeciesCode==2330,c(1:3)]\ntrData2<-merge(trData,dailycatch, by.x=\"SimplifiedTripNum\", by.y=\"TripNum\", all.y=T)\n\ntrData3<-trData2[,c(\"SimplifiedTripNum\",\"Date\",\"Year\",\"Port\",\"ObsAnglers\",\"TotalMinutes\",\"freq\")]\ntrData3$hrs<-trData3$TotalMinutes/60\ntrData3$CPUE<-(trData3$freq/trData3$ObsAnglers/trData3$hrs)\nggplot()+geom_point(data=trData3, aes(x=Date,y=CPUE))\nggplot()+geom_histogram(data=trData3, aes(x=Date, y=CPUE), stat=\"identity\")\n",
    "created" : 1413484439485.000,
    "dirty" : false,
    "encoding" : "UTF-8",
    "folds" : "",
    "hash" : "1537285933",
    "id" : "B2EF2A6",
    "lastKnownWriteTime" : 1413490809,
    "path" : "~/R/IntroR/Lect7project.R",
    "project_path" : "Lect7project.R",
    "properties" : {
        "tempName" : "Untitled1"
    },
    "source_on_save" : false,
    "type" : "r_source"
}