PG5a

a)

#a
1400*50+345
## [1] 70345
35+0.0005*10000
## [1] 40

b)

(a <-(35/0.0005+345)/(1/0.0005-1400))
## [1] 117.2417
1400*a+35
## [1] 164173.3

c)

(r2<-1400*0.0005)
## [1] 0.7
1-r2
## [1] 0.3

d)

(sxy <- 0.0005*100)
## [1] 0.05
(sy2 <- sxy/1400)
## [1] 3.571429e-05

PG5b

1a

#1ai
(x<-4.714*7-sum(c(1,2,4,6,8,9)))
## [1] 2.998
h<-c(1,2,x,4,6,8,9)
sum(h)
## [1] 32.998
(hm<-mean(h))
## [1] 4.714
#1aiii
(pm<-3.405+4.126*hm)
## [1] 22.85496

1b

h^2
## [1]  1.000000  4.000000  8.988004 16.000000 36.000000 64.000000 81.000000
sum(h^2)
## [1] 210.988
sum(h^2)/7
## [1] 30.14114
sum(h^2)/7-hm^2
## [1] 7.919347
sqrt(sum(h^2)/7-hm^2)
## [1] 2.814134
12.65*sqrt(6/7)
## [1] 11.71162

2

3.405+4.126*6.931
## [1] 32.00231