ocean 90 assignment 2

# # Enter name here. # #name<-"John Doe" # # 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_plot9.jpg") plot(ecdf(nao_el_wtr),xlab="NAO Index",ylab="c(T)",main="Cumulative Probability Function, NAO: El Nino Winters",sub=name,do.points=FALSE,verticals=TRUE) abline(h=seq(from=0.1, to=0.9, by=0.1), col="lightgray", lty="dashed") abline(v=seq(from=-3, to=3, by=0.25), col="lightgray", lty="dashed") 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_plot10.jpg") plot(ecdf(nao_la_wtr),xlab="NAO Index",ylab="c(T)",main="Cumulative Probability Function, NAO: La Nina Winters",sub=name,do.points=FALSE,verticals=TRUE) abline(h=seq(from=0.1, to=0.9, by=0.1), col="lightgray", lty="dashed") abline(v=seq(from=-3, to=3, by=0.25), col="lightgray", lty="dashed") dev.off()