Assignment #3

First Define X

x <- rnorm(10000, mean=1, sd=1)

Second Define Y

y <- rnorm(10000, mean=0, sd=1)

Third Define Z

z <- rnorm(10000, mean=(mean(x)+mean(y)), sd=sqrt(sd(x)+sd(y)))

Mean & SD of Z

mean(z) sd(z)

QQNorm Plot

qqnorm(z) qqline (z, lwd=3, col=“magenta”)

Its so cool that you can add colors. I think I tried 10 before settling on magenta

# First Define X #
x <- rnorm(10000, mean=1, sd=1)

# Second Define Y #
y <- rnorm(10000, mean=0, sd=1)

# Third Define Z #
z <- rnorm(10000, mean=(mean(x)+mean(y)), sd=sqrt(sd(x)+sd(y)))

# Mean & SD of Z #
mean(z)

## [1] 0.9967819

sd(z)

## [1] 1.396251

# QQNorm Plot #
qqnorm(z)
qqline (z, lwd=3, col="magenta")

# Its so cool that you can add colors. I think I tried 10 before settling on magenta #