ocean 90 assignment 2

# # Enter name here. # #name<-"John Doe" # # Load winter only data. # dT<-0.2 nao_wtr<-read.table("nao_all_DJF_1950-2013.dat") attach(nao_wtr) nao_all_wtr<-V1 jpeg("exercise2_plot6.jpg") hist(nao_all_wtr,seq(-3,3,dT),freq=FALSE,main="Probability density of daily DJF NAO Index, All Years",xlab="NAO Index",density=20,ylim=c(0,0.8),sub=name) dev.off() # # Load warm winter data. # nao_warm_wtr<-read.table("nao_warm_DJF_1950-2013.dat") attach(nao_warm_wtr) nao_el_wtr<-V1 jpeg("exercise2_plot7.jpg") hist(nao_el_wtr,seq(-3,3,dT),freq=FALSE,main="Probability density of daily DJF NAO Index, El Nino Years",xlab="NAO Index",density=20,ylim=c(0,0.8),sub=name) dev.off() # # Load cold winter data. # nao_cold_wtr<-read.table("nao_cold_DJF_1950-2013.dat") attach(nao_cold_wtr) nao_la_wtr<-V1 jpeg("exercise2_plot8.jpg") hist(nao_la_wtr,seq(-3,3,dT),freq=FALSE,main="Probability density of daily DJF NAO Index, La Nina Years",xlab="NAO Index",density=20,ylim=c(0,0.8),sub=name) dev.off()