## Not run: #not run to save time!
# #Tobacco Production
# plot(USTobacco)
# USTobacco.arima<-arima(USTobacco,order=c(0,1,1))
# BoxCox(USTobacco.arima)
# #
# air.arima<-arima(AirPassengers, c(0,1,1), seasonal=list(order=c(0,1,1), period=12))
# BoxCox(air.arima)
# #
# #In this example, we fit a model to the square-root of the sunspots and
# #back transform in BoxCox.
# sqrtsun.arima<-arima(sqrt(sunspot.year),c(2,0,0))
# BoxCox(sqrtsun.arima, InitLambda=0.5, type="power")
# #
# #Back transform with AirPassengers
# Garima<-arima(log(AirPassengers), c(0,1,1), seasonal=list(order=c(0,1,1),period=12))
# BoxCox(Garima, InitLambda=0)
# ## End(Not run)
Run the code above in your browser using DataLab