数学 - R言語 - 統計学 - データ解析 - 回帰 - 予測(線形回帰、回帰オブジェクトの作成、線形モデル、回帰直線の係数、データの回帰式)

Head Firstデータ解析
原著

学習環境

• Surface 3 (4G LTE)、Surface 3 タイプ カバー、Surface ペン(端末)
• Windows 10 Pro (OS)
• Nebo(Windows アプリ)
• iPad Pro + Apple Pencil
• MyScript Nebo(iPad アプリ)
• Numbers - Apple(表計算ソフト)
• Excel(Office 365 Solo)
• R言語(プログラミング言語)
• 参考書籍
  • Pythonからはじめる数学入門
  • JavaScriptリファレンス 第6版
  • インタラクティブ・データビジュアライゼーション

Head Firstデータ解析 (Michael Milton (著)、大橋 真也 (監訳)、木下 哲也 (翻訳)、オライリージャパン)の10章(回帰 - 予測)、エクササイズ(p. 307)を取り組んでみる。

エクササイズ(p. 307)

1. コード(Emacs)

   R言語

   #!/usr/bin/env Rscript
   
   url <- "http://www.oreilly.co.jp/pub/9784873114644/hfda_ch10_employees.csv"
   employees <- read.csv(url, header=TRUE)
   
   myLm <- lm(received[negotiated==TRUE]~requested[negotiated==TRUE],
              data=employees)
   myLm$coefficients
   svg('sample4.svg')
   plot(employees$requested[employees$negotiated==TRUE],
        employees$received[employees$negotiated==TRUE])
   

   入出力結果(Terminal)

   $ ./sample4.r
                     (Intercept) requested[negotiated == TRUE] 
                       2.3121277                     0.7250664
   $                    
   

2. $y=2.3121277+0.7250664x$