MATH477_LAB1

    x<-c(1:100)

    x<-x/100##adjust the step size of my 100 observations to be 0.01

    y<-rnorm(100, 0, 0.01)##100 observations here with variance 0.01

    y<-cumsum(y)

    plot(x, y, type='l', ylim= c(-0.1,0.1) ,xlab='Time', ylab='Value')

    x<-c(1:100)

    x<-x/1000##adjust the step size of my 100 observations to be 0.001

    y<-rnorm(100, 0, 0.001)##100 observations here with variance 0.001

    y<-cumsum(y)

    plot(x, y, type='l', ylim= c(-0.01,0.01) ,xlab='Time', ylab='Value')

    x<-c(1:100)

    x<-x/10000##adjust the step size of my 100 observations to be 0.0001

    y<-rnorm(100, 0, 0.0001)##100 observations here with variance 0.0001

    y<-cumsum(y)

    plot(x, y, type='l', xlab='Time', ylab='Value')