A <- matrix(scan("nao.dat",comment.char="#"),ncol=2,byrow=TRUE)
Adum <- A
Adum[is.na(Adum)] <- 0
t <- Adum %*% c(1,0)
x <- A %*% c(0,1)
N=length(t)
nao<-ts(data=x,start=t[1],frequency=12)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.