3582517636

File Edit Codę View Plots Session Build Debug Profile Tools Help

O • Ot H lii _ Ą OotC*:«-*.f>CtO' - AOCrj •

MlMpriM ° SatyDK* TOR* —• Hurt ** **^Jojrc*

iH Sc^<« or Sr.* / .

14 •• 4.Średni 4 z próby

15 r«in;x.ł*rp:

17 •• 5.średni na ceru konia 1« nean(horseprlceSPrlce)

20 M6.

22 x.bar <- nean(horsepr1ceSPr1ce, na.rm - troć)

23 x.bar <- sull

24 for(1 1n 1:50)

25- (

26 X.sanp <- sairpłeChorseprIceSPr 1ce,2S)

27 X.bar(1] <- »ean(x. sanp.i

29 )

30 * Porównajmy rozkład wzrostu cen ze średnia z prób

31 par(«frow-c(1.2))

32 h1st(x.bar, ma1rv."sredn1a z próby")

33 h1st(horseprlceSPHce, nain-"wzrost cen”)

35 •• 7.odejmu1emy średnią w cenach koni od każde) średniej z wylosowanych' P^{r0b 1} SP^rłw<J**^n,>' ^ci> ^P

36 nean(abs(x. bar mean(horseprlceJPrlce)) <- 1)

38 •» 8.wartości graniczne w próbie : 10* 1 90*

39 quant11e(x.bar, c(0.1, 0.9))

41 | 9. przybliżenie rozkładen r:riralnyr

42 qnor*(«0.1, 0.9), mean x.bar , sd(X.bar»

44 •• 10.odchylenie standardowe

45 s - sd(horseor1ce$Pr1ce. na.rm - truć)

41:1 (%OUve6: L.j-.v-

□

Contoto IttmtnM

W^WD^Io*./

> x.bar <- sull

> for(1 1n 1:50)

♦ {

♦ x.samp <- saap1e(horsepr1ceSPr1ce,25)

♦ x.bar[1] <- mean(x.sanp)

♦

♦ )

> • Porównajmy rozkład wzrostu cen ze średnia z prób

> par(«fro«-c(1.2))

> h1st(x.bar, ma1n-~sredn1a z próby")

> h1st(horsepr1ceSPr1ce. na1n-"wzrost cen")

> •• 7.odejmujemy średnią w cenach kom od ka2dej średniej z wylosowanych prób 1 sprawdzany czy me przekracza 1

> nean(abs(x.bar - mean(horseprlceSPrlce)) <• 1)

[1] 0

> •• 8.wartości graniczne w próbie : 10* 1 90*

> quant11e(x.bar. c(0.1, 0.9))

10* 90* T

24908.0 29277.6 ¹

> •• 9.przybił Zenie rozkładem normalnym

> qnorm(c(0.1. 0.9), «ean(x.bar). sd(X.bar))

(1) 24766.44 29556.92

l5«M &vr»fr>r*t ■
Data
O horseprice	50 obs. of 6 variables
values
1	50L
x.bar	26840
X. bar	nua [1:50] 25544 25656 26444 24836 28104 ...
x.samp	int [1:25] 4500 1100 30000 45000 15000 2SOOO 2000 12000 20000 38000

frtei Plótł PackłflOł help Vie««

i* Zoorr ? l«0<t • O /

■5r •

średnia z próby

wzrost cen

24000 28000 32000

0 10000 30000 50000

Xbar

horsepnceSPnce