library(nnet) x1<-plus_minas(USDJPY2011[,2]) x1[x1==-1]<-0 lag<-6 #x0b<-x1[1:(length(x1)-8)] x1b<-x1[1:(length(x1)-lag)] x2b<-x1[2:(length(x1)-lag+1)] x3b<-x1[3:(length(x1)-lag+2)] x4b<-x1[4:(length(x1)-lag+3)] x5b<-x1[5:(length(x1)-lag+4)…