Uppgiftsinlämning 4

Ludvig Londos och Kalle Palm (laddy_ludde@msn.com, kalle.palm@gmail.com)

5.01

(a)

qdata(c(0.025, 0.975), g$height)

##       quantile     p
## 2.5%        60 0.025
## 97.5%       73 0.975

trials = do(500) * mean(height, data = resample(g))
qdata(c(0.025, 0.975), trials)

##       quantile     p
## 2.5%     66.54 0.025
## 97.5%    67.00 0.975

Svar: A

(b)

Alla resamplingar gör att “svansarna klipps av”

(c)

trials2 = do(500) * median(height, data = resample(g))
qdata(c(0.025, 0.975), trials2)

##       quantile     p
## 2.5%        66 0.025
## 97.5%       67 0.975

Från 66 till 67.

5.02

(a)

trials3 = do(1000) * mean(height ~ sex, data = resample(g))
qdata(c(0.025, 0.975), M, data = trials3)

##       quantile     p
## 2.5%     68.98 0.025
## 97.5%    69.46 0.975

Svar: C

(b)

trials4 = do(1000) * mean(height ~ sex, data = resample(g))
qdata(c(0.025, 0.975), F, data = trials4)

##       quantile     p
## 2.5%     63.89 0.025
## 97.5%    64.35 0.975

Nej, enligt ovan.

(c)

bwplot(height ~ sex, data = g)

1. Ja

2. C

5.03

(a)

confint(mm(width ~ sex, data = kids))

##   group 2.5 % 97.5 %
## 1     B 8.976  9.404
## 2     G 8.565  9.004

Svar: Stort.

(b)

confint(mm(wage ~ sex, data = w))

##   group 2.5 % 97.5 %
## 1     F 7.247  8.511
## 2     M 9.413 10.577

Svar: Inget.

(c)

confint(mm(wage ~ married, data = w))

##     group 2.5 % 97.5 %
## 1 Married 8.861  9.936
## 2  Single 7.571  9.053

Svar: Stort.

(d)

confint(mm(wage ~ sector, data = w))

##      group  2.5 % 97.5 %
## 1 clerical  6.490  8.355
## 2    const  7.448 11.556
## 3    manag 11.465 13.943
## 4    manuf  6.922  9.150
## 5    other  7.386  9.615
## 6     prof 11.051 12.844
## 7    sales  6.102  9.083
## 8  service  5.529  7.546

Svar: Visst.

5.12

(a)

Svar: C

(b)

Svar: B

(c)

Svar: D

(d)

Svar: A

5.17

(a)

samps = do(500) * median(length, data = resample(KidsFeet))
sd(samps)

## [1] 0.2292

Svar: 0.23

(b)

samps1 = do(500) * sd(length, data = resample(KidsFeet))
sd(samps1)

## [1] 0.1393

Svar: 0.14

(c)

samps2 = do(500) * qdata(0.75, length, data = resample(KidsFeet))
sd(samps2$quantile)

## [1] 0.3371

Svar: 0.34

5.31

Svar: D