Homework #5 Random Variables & Probability distributions

x <- c(0.5, 0.2, 0.15, 010)
> y <- c(0.10, 0.2, 0.6, 0.2)
> x<- c(0,1,2,3)
> x <- c(0.5, 0.2, 0.15, 010)
> x
[1] 0.50 0.20 0.15 10.00
> mean(x)
[1] 2.7125
> mean(y)
[1] 0.275
> var(x)
[1] 23.62729
> var(y)
[1] 0.04916667
> x<-c(7,9)
> sd(x)
[1] 1.414214
> 7-8/1.414214
[1] 1.343148
> -1/1.414214
[1] -0.7071066

pnorm(-0.707)
[1] 0.2397832
> pnorm(0.707)[1]
[1] 0.7602168