### Average Air Temperature Racife Brazil R

library(ts)

# to read racife.dat 

x <- scan("E:\\Stat207\\Midterm\\Racife.dat")

# you can make x a regular time series object

x <- ts(x, start=c(1953,1), freq=12)

# plot the data

ts.plot(x)

# Classical Decomposition Model

win.graph()
plot(stl(x, s.window = "per"))