SL <-c(-0.289220360456518, -0.412287982738895, -0.30186163626253,
-0.325463729174269, -0.950943918812091, -0.621873409193565, -0.454370839103369,
-0.201717177298859, -0.0125484487133019, 0.37501627306213, 0.860628415115297,
0.573001978891618, 0.949171439258297, 0.884107931496505, 0.321528581746018,
0.197039928762375, -0.0511602427005644, -0.14797533453817, 0.0997648324025207,
-0.356603216398346, -0.486741440877119, -0.796433339558246, -0.797717898751611,
-1.03991357760201, -0.272391281348932, -0.280840105493716, -0.220566038983021,
-0.092982026032348, -0.737941509253829, -0.25720443208744, 0.281594104947966,
0.295827677265899, 0.381173023222877, 0.410685495501984, 0.0935538548738117,
0.320870181634448, -0.176916211372866, -0.434468255568435, -0.177142353391016,
-0.479723718529784, -1.18506069524595, -0.845078218877219, -0.466484365108015,
-0.378310531861291, -0.568334035779147, -0.756612458676533, -0.612289956791277,
-0.595067441206468, 0.227790700535617, -0.328474103547927, 0.0382893789935963,
-0.107472883393398, 0.104836312989005, 0.206908642082212, 0.566811114425553,
0.226484501566576, 0.268795384938629, 0.247658319827575, 0.728293948754543,
0.704287103883026, 0.665057803685019, 1.01752383083208, 1.34104381438303,
1.10724539596799, 0.850746327229352, 0.746239914170796, 0.665531282137068,
0.469573210434806, -0.0626525410819481, -0.294702780105021, -0.160850370184094,
0.511318161080905)
SL <- ts(SL, start = c (1995, 1), freq = 12) #transformação numa ts
ar1 <-sarima(SL, 1,0,0,0,0,0,12) #o modelo seleccionado
plot(SL, type ='o')) # o plot da serie original
lines(fitted(ar1),col=2) # estou a tentar adicionar o modelo fitted a meus dados
Mas não consigo fazer o grafico pretendido, quero fazer que o grafico tenha os pontos o linhas da serie original e no mesmo grafico, o modelo ajustado para ver como bate com os dados originais,
alguma dica?
Meu R es:
R version 2.13.1 (2011-07-08)
Copyright (C) 2011 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
Platform: x86_64-pc-mingw32/x64 (64-bit)
SO, windows 7
Obrigado
Carlos
--
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