Generating this code:
inflacao <- ts(read.csv2('inflacao.csv',header = T,sep = ';',dec = ','),
start = c(1980,01),freq=12)[,-1]
After Seasplot:
seasplot(inflacao, outplot = 4)
Give this error:
Relate the item Error in if (diff (range (colSums (ynt)))