====== Příklad - S6 ======

**Téma** : Teorie pravděpodobnosti -> Rozdělení náhodné veličiny -> Speciální spojitá rozdělení

**Předmět** : 4ST214, 4ST215, 4ST220, 4ST430

**Obtížnost** : Středně těžké příklady
----
===== Zadání =====

Uvažujte rozdělení //LN//(0,5; 1,1²). Generujte 50 náhodných čísel z tohoto rozdělení pomocí postupů:

**a)** V excelu využijte vztah {{:teoriepravdepodobnosti:rozdeleninahodneveliciny:specialnispojitarozdeleni:resenis6:zadanispecialnispojitarozdelenis6_1.png?245|}}  a generujte výběr o rozsahu 50 z rozdělení N(0,5; 1,1²) (v Analýze dat). 

**b)** V excelu použijte funkci NÁHČÍSLO() a použijte vztah
{{:teoriepravdepodobnosti:rozdeleninahodneveliciny:specialnispojitarozdeleni:resenis6:zadanispecialnispojitarozdelenis6_2.png?450|}}  

**c)** Použijte generátor pseudonáhodných čísel v R.


**d)**	Určete teoretické hodnoty {{:teoriepravdepodobnosti:rozdeleninahodneveliciny:specialnispojitarozdeleni:zadanispecialnispojitarozdelenis6_3.png?85|}}   a mediánu a jejich výběrové protějšky (aritmetický průměr, výběrovou směrodatnou odchylku a výběrový medián) ze všech výběrů.
  

  


----
===== Řešení =====
__**Výsledek**__

{{:teoriepravdepodobnosti:rozdeleninahodneveliciny:specialnispojitarozdeleni:resenis6:vysledekspecialnispojitarozdelenis6.png?250|}}

__**Postup**__

**a)** 

Analýza dat → Generátor náhodných čísel

Normální rozdělení 50 hodnot N(0,5; 1,12) {{:teoriepravdepodobnosti:rozdeleninahodneveliciny:specialnispojitarozdeleni:resenis6:vysledekspecialnispojitarozdelenis6vzorec.png?58|}}
  
{{:teoriepravdepodobnosti:rozdeleninahodneveliciny:specialnispojitarozdeleni:resenis6:vysledekspecialnispojitarozdelenis6vzorec1.png?180|}}

PRŮMĚR(), SMODCH.VÝBĚR(), MEDIAN()

**b)** 

Analýza dat → Generátor náhodných čísel

Rovnoměrné rozdělení (0,1)  50 hodnot 
{{:teoriepravdepodobnosti:rozdeleninahodneveliciny:specialnispojitarozdeleni:resenis6:vysledekspecialnispojitarozdelenis6vzorec2.png?58|}}

{{:teoriepravdepodobnosti:rozdeleninahodneveliciny:specialnispojitarozdeleni:resenis6:vysledekspecialnispojitarozdelenis6vzorec3.png?295|}}

PRŮMĚR(), SMODCH.VÝBĚR(), MEDIAN()

**c)** 

pseudodata=rlnorm(50, meanlog = 0.5, sdlog = 1.1)

mean(pseudodata)

sd(pseudodata)

median(pseudodata)