差分
このページの2つのバージョン間の差分を表示します。
| 両方とも前のリビジョン前のリビジョン次のリビジョン | 前のリビジョン | ||
| mva:correlation [2022/05/21 08:34] – watalu | mva:correlation [2022/05/21 09:38] (現在) – watalu | ||
|---|---|---|---|
| 行 1: | 行 1: | ||
| - | [[https://statistics.co.jp/ | + | [[https://www.math.chuo-u.ac.jp/~sugiyama/ |
| < | < | ||
| 行 5: | 行 5: | ||
| # このデータには９科目の点数が収められている。 | # このデータには９科目の点数が収められている。 | ||
| # 科目名は次の通りで、この順 | # 科目名は次の通りで、この順 | ||
| - | # " | + | # " |
| # データの読み込み | # データの読み込み | ||
| 行 13: | 行 13: | ||
| - | # require.with.install.packages: | + | # require.with.install.packages.if.needed: |
| # リストで与えられたライブラリがインストール済みかどうかをチェックし、 | # リストで与えられたライブラリがインストール済みかどうかをチェックし、 | ||
| # 必要ならインストールした上で、利用可能にする関数。 | # 必要ならインストールした上で、利用可能にする関数。 | ||
| # この関数は理解しなくても大丈夫。 | # この関数は理解しなくても大丈夫。 | ||
| - | require.with.install.packages = function(packages) { | + | require.with.install.packages.if.needed |
| require.2 = function(p) { | require.2 = function(p) { | ||
| if( eval(parse(text = paste0(" | if( eval(parse(text = paste0(" | ||
| 行 31: | 行 31: | ||
| } | } | ||
| } | } | ||
| - | if(is.list(packages)) { | + | if(is.vector(packages)) { |
| for( k in packages) { | for( k in packages) { | ||
| require.2(k) | require.2(k) | ||
| 行 40: | 行 40: | ||
| } | } | ||
| - | # この演習で用いるライブラリをインストールする | + | # この演習で用いるライブラリを読み込むかインストールする |
| - | require.with.install.packages(c(" | + | require.with.install.packages.if.neededs(c(" |
| # 科目ごとに点数のヒストグラムを描く | # 科目ごとに点数のヒストグラムを描く | ||
| 行 111: | 行 111: | ||
| # 行列 seiseki.cor.test を、関数 cor.plot を用いて図示する | # 行列 seiseki.cor.test を、関数 cor.plot を用いて図示する | ||
| cor.plot(seiseki.cor.test, | cor.plot(seiseki.cor.test, | ||
| - | # コードここまで | ||
| </ | </ | ||