#Setting up the X x <- rnorm(n=10, mean=0, sd=2) names(x) <- x print(x) x

#Setting up the Y y <- (x^2)/5-7 names(y) <- y

#Finding Mean and SD of Y with built in functions mean(y) sd(y)

#Setting up the X
x <- rnorm(n=10, mean=0, sd=2)
names(x) <- x
print(x)
##   2.69217327655958  0.254593497913337 -0.109720882947949  -0.34125975883862 
##          2.6921733          0.2545935         -0.1097209         -0.3412598 
##  -1.45280375048648   4.64332205767774  -2.25214785937559  0.901438690467043 
##         -1.4528038          4.6433221         -2.2521479          0.9014387 
## -0.863028911084565  -1.17020543703466 
##         -0.8630289         -1.1702054
x
##   2.69217327655958  0.254593497913337 -0.109720882947949  -0.34125975883862 
##          2.6921733          0.2545935         -0.1097209         -0.3412598 
##  -1.45280375048648   4.64332205767774  -2.25214785937559  0.901438690467043 
##         -1.4528038          4.6433221         -2.2521479          0.9014387 
## -0.863028911084565  -1.17020543703466 
##         -0.8630289         -1.1702054
#Setting up the Y
y <- (x^2)/5-7
names(y) <- y

#Finding Mean and SD of Y with built in functions
mean(y)
## [1] -6.217777
sd(y)
## [1] 1.329502