2017年12月17日日曜日

学習環境

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.7250664 x

0 コメント:

コメントを投稿

関連コンテンツ