Data 605 Homework Week-9

—————————————————————————

Student Name : Sachid Deshmukh

Date : 03/27/2019

• GitHub Location for rmd file

• RPubs location of published file

—————————————————————————

11 page 363

sim.time.series = function(start = 100, n = 10000)
{
  time.series = c()
  for (i in 1:n)
  {
    time.series[i] = start + sum(rnorm(364, 0, 0.25))
     
  }
  return(time.series)
}

sim.series = sim.time.series()

p.gt.100 = length(sim.series[sim.series >=100])/ length(sim.series)
p.gt.110 = length(sim.series[sim.series >=110])/ length(sim.series)
p.gt.120 = length(sim.series[sim.series >=120])/ length(sim.series)
print(p.gt.100)

## [1] 0.4918

print(p.gt.110)

## [1] 0.0165

print(p.gt.120)

## [1] 0

knitr::include_graphics("https://github.com/mlforsachid/MSDSQ2Data605/blob/master/Week9/HW-9/HW-9.png?raw=true")