100% satisfaction guarantee Immediately available after payment Both online and in PDF No strings attached
logo-home
homework 4 with Correct Answers Georgia Institute Of Technology ISYE 6501 $9.49   Add to cart

Exam (elaborations)

homework 4 with Correct Answers Georgia Institute Of Technology ISYE 6501

 7 views  0 purchase
  • Course
  • Institution

ISYE 6501 19SP1 HW 4 solution Question 7.1 Describe a situation or problem from your job, everyday life, current events, etc., for which exponential smoothing would be appropriate. What data would you need? Would you expect the value of  (the first smoothing parameter) to be closer to 0 or 1...

[Show more]

Preview 4 out of 48  pages

  • April 11, 2023
  • 48
  • 2022/2023
  • Exam (elaborations)
  • Questions & answers
avatar-seller
ISYE 6501 19SP1 HW 4 solution


Question 7.1

Describe a situation or problem from your job, everyday life, current events, etc., for which exponential
smoothing would be appropriate. What data would you need? Would you expect the value of  (the
first smoothing parameter) to be closer to 0 or 1, and why?

Solution 7.1

Exponential smoothing would be appropriate to be used in forecasting USA Gross domestic product
(GDP). The Gross domestic Product (GDP) is the market value of all final goods and services produced
within a country in a given period of time. For USA quarterly GDP data, we can download the Federal
Reserve website (​https://fred.stlouisfed.org/series/GDP​).

I expect the smoothing parameter, alpha, is closer 1 in USA GDP forecasting as the economy of USA. It
means that more weight is given to the actual data. As US economy is huge and has many types goods
and service produces, the randomness of overall US economy should be less.


Question 7.2
Using the 20 years of daily high temperature data for Atlanta (July through October) from Question 6.2
(file temps.txt), build and use an exponential smoothing model to help make a judgment of whether the
unofficial end of summer has gotten later over the 20 years. (Part of the point of this assignment is for
you to think about how you might use exponential smoothing to answer this question. Feel free to
combine it with other models if you’d like to. There’s certainly more than one reasonable approach.)
Note: in R, you can use either HoltWinters (simpler to use) or the smooth package’s es function (harder
to use, but more general). If you use es, the Holt-Winters model uses model=”AAM” in the function call
(the first and second constants are used “A”dditively, and the third (seasonality) is used
“M”ultiplicatively; the documentation doesn’t make that clear).

,Solution 7.2

HoltWinters function is used to generate 4 exponential smoothing models: single, double, triple with
additive seasonality and triple with multiplicative seasonality. The results from exponential
smoothing models do not support the unofficial end of summer has gotten later over the 20 years.

Sample result & chart from Triple exponential smoothing model with multiplicative seasonality. It is
observed that there is not trend variation in the temperature data set.
​## HoltWinters(x = temp_ts, seasonal = "multiplicative")

## Smoothing parameters:

## alpha: 0.615003

## beta : 0

## gamma: 0.5495256

##

## Coefficients:

## [,1]

## a 73.679517064

## b -0.004362918

## s1 1.239022317

..

..

,Result from Triple exponential smoothing model with multiplicative seasonality is used to generated
season data set for later cucum calculation for verify if there is any significant change in temperate
over the years (1996 to 2005)

Please note that the generated season date set is from 1997 to 2005 only as the very first predicted
value (year 1996) is empty.

Code of cucum calculation is from previous homework. In the Code, qcc.cucum function is used.
Various decision.interval and se.shift parameter values have been used to generate the cusum
models to figure out the unofficial summer end-day data set of each year from 1997 to 2005. The
cusum models of all these date set do not show significant increases or decreases of summer end day
change from 1997 to 2005.
Sample year over year summer end day cusum chart

, Code for homework 7
clear the environment & load data
rm(list = ls())
set.seed(123)

# ---------------------------- Data manipulation
-------------------------------------

data <- read.table("temps.txt", header = TRUE, stringsAsFactors = FALSE)

head(data)
#convert data into vector
temp_vec <- as.vector(unlist(data[,2:21]))
plot (temp_vec)




cat('temp_vec class is', class(temp_vec), '\n')

The benefits of buying summaries with Stuvia:

Guaranteed quality through customer reviews

Guaranteed quality through customer reviews

Stuvia customers have reviewed more than 700,000 summaries. This how you know that you are buying the best documents.

Quick and easy check-out

Quick and easy check-out

You can quickly pay through credit card or Stuvia-credit for the summaries. There is no membership needed.

Focus on what matters

Focus on what matters

Your fellow students write the study notes themselves, which is why the documents are always reliable and up-to-date. This ensures you quickly get to the core!

Frequently asked questions

What do I get when I buy this document?

You get a PDF, available immediately after your purchase. The purchased document is accessible anytime, anywhere and indefinitely through your profile.

Satisfaction guarantee: how does it work?

Our satisfaction guarantee ensures that you always find a study document that suits you well. You fill out a form, and our customer service team takes care of the rest.

Who am I buying these notes from?

Stuvia is a marketplace, so you are not buying this document from us, but from seller ExamsConnoisseur. Stuvia facilitates payment to the seller.

Will I be stuck with a subscription?

No, you only buy these notes for $9.49. You're not tied to anything after your purchase.

Can Stuvia be trusted?

4.6 stars on Google & Trustpilot (+1000 reviews)

80189 documents were sold in the last 30 days

Founded in 2010, the go-to place to buy study notes for 14 years now

Start selling
$9.49
  • (0)
  Add to cart