#os dados ElNinosmooth vem incluidos no pacote rainbow

plot(ElNinosmooth, plot.type = 'functions', plotlegend = TRUE)

Então eu quero fazer um grafico similar, onde as diferentes series sejam os anos da serie ( de cores diferentes),

o eixo x = meses do ano; e o eixo y=QVENDA.

#eu tentei transformar meus dados numa fts assim:

OCTOPUS.fts <- fts(OCTOPUS$MONTH, OCTOPUS$QVENDA, frequency = 12, start = 2003, xname= 'Month', yname = 'Tonnes')

# e logo tentei fazer o grafico como o do exemplo assim:

plot(OCTOPUS.fts, plot.type = 'functions', plotlegend = TRUE)

# mas deu-me um error

Error in is.language(x) : 'x' is missing

mesmo assim saiu um grafico, nem com cores nem nada de jeito!

Alguma dica, ajuda?

obrigado

Carlos

El 4 de abril de 2012 17:37, Benilton Carvalho <beniltoncarvalho@gmail.com> escribió:

Carlos,

Eu nao verifiquei detalhes do teu conjunto de dados, entretanto,
imagino que necessites formata-lo apropriadamente (uma formatacao
distinta para cada questao).

Para a primeira, assumindo que teu interesse seja 'QVENDA', eu
comecaria com algo como:

dadosOriginais = read.csv('OCTOPUS.csv')
library(reshape2)
porBarco = dcast(dadosOriginais, DAY + MONTH + YEAR ~ CodEmbarc,
value.var='QVENDA', fun.aggregate=mean)
x0 = 1:nrow(porBarco)
y0 = as.matrix(porBarco[, -(1:3)])
library(rainbow)
obj0 = fts(x0, y0)
plot(obj0)

E usaria a mesma estrategia para os demais.

benilton
_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.

--
Carlos A. Pombo Sonderblohm
PhD Student on Marine Science (Fisheries)
Faculdade de Ciências e Tecnología
Universidade do Algarve,
Campus de Gambelas
8005-139 Faro
Portugal
Tef. 289 800 905 ext. 7605