Befriending Kurtosis with R

Transcript

1. ʙ ՄࢹԽύοέʔδͰઑ౓ͱٔΕΔʙ
   ઑ౓ͱ஥ྑ͘ͳΓ͍ͨ
   

   View Slide

2. ໨࣍
   2
   ઑ౓ͱ͸
   
   
   ϕʔλ෼෍ͱ͸
   
   
   ઑ౓ΛՄࢹԽͯ͠ΈΔ
   
   
   ·ͱΊ
   
   
   ࢀߟจݙ ɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾ
   p.3,4
   p.5-7
   p.8-16
   p.17,18
   ɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾ
   ɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾ
   ɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾ
   ɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾɾ
   p.19
   B
   

   View Slide

3. ઑ౓ͱ͸
   

   View Slide

4. ઑ౓ͱ͸
   4
   ֬཰෼෍ͷ, ઑΓͷఔ౓Λද͢ࢦඪ΋ఆٛͰ͖Δ. ͢ͳΘͪ, ࢛৐ͷظ଴஋
   
   
   ͸, த৺ͷपғͷ෦෼ͷઑΓ۩߹Λද͢.
   α4 =
   E(x − μ)4
   σ4
   ౦ژେֶڭཆֶ෦౷ܭֶڭࣨ. ʰ౷ܭֶೖ໳ʱ. ౦ژେֶग़൛ձ, 1991-07-10
   *ਖ਼ن෼෍ͷઑ౓Ͱ͋Δ3ΛҾ͍ͯɺ0Λج४ʹ͢Δ৔߹΋͋Δɻ
   
   
   ࠓճ͸3ΛҾ͔ͣɺ্هͷࢦඪΛͦͷ··࢖༻͢Δɻ
   

   View Slide

5. B
   ϕʔλ෼෍ͱ͸
   

   View Slide

6. ϕʔλ෼෍ͱ͸
   6
   ۩ମతͳઑ౓Λࢉग़͢ΔͨΊʹɺઑ౓ΛٻΊΔ෼෍Λஔ͘ɻ
   
   
   ࠓճ͸2ͭͷ฼਺Λ࣋ͪɺܗঢ়͕ॊೈͳϕʔλ෼෍Λѻ͏ɻ
   ͔ΒͬΆͷ͠ΐ͜. ʮʲRʳϕʔλ෼෍ͷ࡞ਤʯ. https://www.anarchive-beta.com/entry/2022/07/02/210203
   

   View Slide

7. ϕʔλ෼෍ͷύϥϝʔλมԽͱઑ౓
   7
   ฼਺alphaͱઑ౓ʢkurtosisʣͷؔ܎Λਤࣔɻ
   
   
   y࣠ʹுΓ෇͍ͨܗͷઑ౓͸େ͖͍͕ɺҰ౓Ұ༷෼෍ʹ͍ۙͮͯখ͘͞ͳΓɺ
   
   
   ͦͷޙਖ਼ن෼෍ʹ͖ۙͮͳ͕Β؇΍͔ʹେ͖͘ͳΔɻ
   

   View Slide

8. ઑ౓ΛՄࢹԽͯ͠ΈΔ
   

   View Slide

9. ઑ౓ͷࣜΛ෼ղ
   9
   ϕʔλ෼෍ͷઑ౓ΛՄࢹԽͰ͖ΔΑ͏ʹ෼ղ͢Δɻ
   
   
   ෼ࢠ͸ฏۉपΓͷ4࣍Ϟʔϝϯτɻੵ෼ͷܗʹ͢Δͱภࠩͷ4৐ͱ֬཰ີ౓ؔ਺ɻ
   
   
   ෼฼͸෼ࢄͷ2৐ɻࠓճ͸͋·Γ৮Εͳ͍ɻ
   E[(x − μ)4]
   σ4
   =
   ∫ (x − μ)4 f(x) dx
   σ4
   

   View Slide

10. alpha=6.1ͷ෼෍
    10
    alpha=6.1ɺbeta=2ͷϕʔλ෼෍Ͱઑ౓ΛՄࢹԽ͍ͯ͘͠ɻ
    

    View Slide

11. alpha=6.1ͷภࠩͷ4৐ͱ֬཰ີ౓ؔ਺
    11
    ઑ౓ͷ෼ࢠʹ͋Δภࠩͷ4৐ͱ֬཰ີ౓ؔ਺Λਤࣔɻ
    
    
    ෼ࢠ͸͜ΕΒͷֻ͚߹ΘͤʹͳΔɻ
    (x − μ)4
    f(x)
    ∫ (x − μ)4 f(x) dx
    σ4
    f(x)
    (x − μ)4
    

    View Slide

12. alpha=6.1ͷภࠩͷ4৐ͱ֬཰ີ౓ؔ਺
    12
    ෼ࢠͷܭࢉΛਐΊͯɺภࠩͷ4৐ͱ֬཰ີ౓ؔ਺Λֻ͚ͨؔ਺Λϓϩοτɻ
    
    
    ฏۉपΓ͸ภࠩͷ4৐͕0ʹۙͮͨ͘Ίɺ஋͕খ͘͞ͳΔɻ
    
    
    ฏۉ͔Β཭Εɺ֬཰ີ౓ؔ਺΋ߴΊͳ0.25ʙ0.5͋ͨΓͷ஋͕େ͖͘ͳΔɻ
    mean
    ∫ (x − μ)4 f(x) dx
    σ4
    (x − μ)4 f(x)
    (x − μ)4 f(x)
    

    View Slide

13. alpha=0.14ͷ෼෍
    13
    ࣍ʹalpha=0.14ɺbeta=2ͷϕʔλ෼෍Ͱઑ౓ΛՄࢹԽ͢Δɻ
    
    
    ෼ࢄ͸ઌ΄Ͳͷalpha=6.1ͷ෼෍ͱɺ0.02લޙͰ΄΅มΘΒͳ͍ɻ
    

    View Slide

14. alpha=0.14ͷภࠩͷ4৐ͱ֬཰ີ౓ؔ਺
    14
    alpha=6.1Ͱݟ͖ͯͨͷͱಉ༷ʹɺ֬཰ີ౓ؔ਺ͱภࠩͷ4৐ΛՄࢹԽɻ
    
    
    ภࠩͷ4৐ͷมԽ͕ݟ΍͍͢Α͏ʹɺॎ࣠ͷεέʔϧΛ0ʙ3ʹௐ੔͍ͯ͠Δɻ
    (x − μ)4
    f(x)
    ∫ (x − μ)4 f(x) dx
    σ4
    f(x)
    (x − μ)4
    

    View Slide

15. alpha=0.14ͷภࠩͷ4৐ͱ֬཰ີ౓ؔ਺
    15
    ภࠩͷ4৐ͱ֬཰ີ౓ؔ਺Λֻ͚ͨ΋ͷΛਤࣔɻ
    
    
    ฏۉ͸0͔Βগ͠཭ΕΔͨΊɺy࣠෇ۙͰ஋͕ٸʹ্͕Δɻ
    
    
    ·ͨɺฏۉ͔Β཭ΕͨП0.5ʙ1.0ͷؒͷ஋͕େ͖͍ɻ
    (x − μ)4 f(x)
    mean
    ∫ (x − μ)4 f(x) dx
    σ4
    (x − μ)4 f(x)
    

    View Slide

16. alpha=6.1ͱalpha=0.14ͷൺֱ
    16
    alpha=6.1ͱ0.14ͷภࠩͷ4৐ͱ֬཰ີ౓ؔ਺Λֻ͚ͨ΋ͷΛಉ࣌ʹՄࢹԽɻ
    
    
    alpha=0.14ͷ෼෍͸ฏۉ͔Β཭Εͨ0.75෇ۙͰ஋͕େ͖͍ɻ
    
    
    શମͰɺalpha=6.1ΑΓ΋alpha=0.14ͷํ͕ઑ౓͕େ͖͍ͱ͍͏݁Ռʹɻ
    ∫ (x − μ)4 f(x) dx
    σ4
    (x − μ)4 f(x)
    

    View Slide

17. ·ͱΊ
    

    View Slide

18. ·ͱΊ
    18
    ɾઑ౓͕େ͖͍ɺͱ͸ʁ
    
    
    ෼෍ͷฏۉपΓͷີ౓͕ബ͘ɺ
    
    
    ฏۉ͔Β཭Εͨ෦෼ͷີ౓͕ް͍͜ͱ
    
    
    ɾRݴޠͷՄࢹԽύοέʔδͰཧղΛਂΊΔ
    
    
    ɾggplot2
    
    
    ɾgganimate
    
    
    ɾgghighlight
    

    View Slide

19. ࢀߟจݙ
    19
    •౦ژେֶڭཆֶ෦౷ܭֶڭࣨ. ʰ౷ܭֶೖ໳ʱ. ౦ژେֶग़൛ձ, 1991-07-10
    
    
    • ͔ΒͬΆͷ͠ΐ͜, ʮʲRʳϕʔλ෼෍ͷ࡞ਤʯ, https://www.anarchive-beta.com/entry/2022/07/02/210203
    
    
    • ౷ܭֶʮઑ౓ʯ Kurtosis, https://www.youtube.com/watch?v=iEOE3OCuB8U
    
    
    • ֬཰࿦ ߨٛ #003 Ϟʔϝϯτ฼ؔ਺, https://www.youtube.com/watch?v=tZl8M96m46Y
    
    
    • ΞΠίϯૉࡐμ΢ϯϩʔυαΠτʮicooon-monoʯ, https://icooon-mono.com/
    

    View Slide

20. Eɹnɹjɹoɹyɹ
    

    View Slide