ESTIMATING THE ORDER OF THE CHAIN
ozonio_sw=read.table('data.txt', header=T)
attach(ozonio_sw)
anos=NCOL(ozonio_sw)
dias=NROW(ozonio_sw)