ocean 90 assignment 2

# # Enter name here. # #name<-"John Doe" # # Load winter only data. # dT<-0.2 pna_wtr<-read.table("pna_all_DJF_1950-2013.dat") attach(pna_wtr) pna_all_wtr<-V1 jpeg("exercise2_plot1.jpg") hist(pna_all_wtr,seq(-3,3,dT),freq=FALSE,main="Probability density of daily DJF PNA Index, All Years",xlab="PNA Index",density=20,ylim=c(0,0.8),sub=name) dev.off() # # Load warm winter data. # pna_warm_wtr<-read.table("pna_warm_DJF_1950-2013.dat") attach(pna_warm_wtr) pna_el_wtr<-V1 jpeg("exercise2_plot2.jpg") hist(pna_el_wtr,seq(-3,3,dT),freq=FALSE,main="Probability density of daily DJF PNA Index, El Nino Years",xlab="PNA Index",density=20,ylim=c(0,0.8),sub=name) dev.off() # # Load cold winter data. # pna_cold_wtr<-read.table("pna_cold_DJF_1950-2013.dat") attach(pna_cold_wtr) pna_la_wtr<-V1 jpeg("exercise2_plot3.jpg") hist(pna_la_wtr,seq(-3,3,dT),freq=FALSE,main="Probability density of daily DJF PNA Index, La Nina Years",xlab="PNA Index",density=20,ylim=c(0,0.8),sub=name) dev.off()