EM アルゴリズム実装(勉強用) - 木曜ä¸è¶³æœ€è¿‘å¿™ã—ãã¦*1ã€PRML ã®äºˆç¿’ãŒæ»žã‚Šä¸ã€‚ ã—ã‹ã—ã€æ¬¡ã® PRML èªæ›¸ä¼šã«å¾’手空拳ã§è¡Œã£ãŸã‚‰ã€æ°—æŒã¡ã‚ˆã昇天ã—ã¦ã—ã¾ã„ãã†ãªã®ã§ã€ãªã‚“ã¨ã‹é ‘å¼µã£ã¦èªã‚“ã§ã¿ã‚‹ã€‚ EM アルゴリズムã¯ä½•ã¨ãªãã‚ã‹ã‚‹ãŒã€å¤‰åˆ†ãƒ™ã‚¤ã‚ºãŒã‚ã‹ã‚‰ã‚“…… ã¨ã„ã†ã‚ã‘ã§ã€Old Faithful ã®æ··åˆæ£è¦åˆ†å¸ƒã§ã®æŽ¨è«–ã‚’ K-means 㨠EM ã¨å¤‰åˆ†ãƒ™ã‚¤ã‚ºã«ã¤ã„ã¦ã€ï¼²ã§å®Ÿè£…ã—ã¦ã¿ã‚‹ã€‚ K-means Old Faithful + K-means ã«ã¤ã„ã¦ã¯ã€ã™ã§ã« å‰å›žã®è¨˜äº‹ã§ãŠè©¦ã—済ã¿ã€‚ ãã®è¨˜äº‹ã§ã¯ã€ã‚¤ãƒ†ãƒ¬ãƒ¼ã‚·ãƒ§ãƒ³ã‚’１行ã§æ›¸ã„ã¦ãƒã‚¿ã£ã½ãã—ã¦ã—ã¾ã£ã¦ãŸã®ã§ã€ã‚ã‹ã‚Šã‚„ã™ãæ•´ç†ã—ãŸã®ãŒä»¥ä¸‹ã®ã‚³ãƒ¼ãƒ‰ã€‚ è·é›¢ã‚’å–ã‚‹ã¨ã“ã‚ã¯å°‘ã—変ãˆã¦çŸãã—ã¦ã‚る。 # Old Faithful dataset ã‚’å–å¾—ã—ã¦æ£è¦åŒ– data("faithful"); xx <- scale(faithful, apply(faithful,
{{#tags}}- {{label}}
{{/tags}}