差分
このページの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: | ||
# このデータには9科目の点数が収められている。 | # このデータには9科目の点数が収められている。 | ||
# 科目名は次の通りで、この順 | # 科目名は次の通りで、この順 | ||
- | # " | + | # " |
# データの読み込み | # データの読み込み | ||
- | seiseki = read.csv(file(" | + | csv.file = " |
+ | seiseki = read.csv(file(csv.file, | ||
encoding=' | encoding=' | ||
- | # 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(" | ||
行 30: | 行 31: | ||
} | } | ||
} | } | ||
- | if(is.list(packages)) { | + | if(is.vector(packages)) { |
for( k in packages) { | for( k in packages) { | ||
require.2(k) | require.2(k) | ||
行 39: | 行 40: | ||
} | } | ||
- | # この演習で用いるライブラリをインストールする | + | # この演習で用いるライブラリを読み込むかインストールする |
- | require.with.install.packages(c(" | + | require.with.install.packages.if.neededs(c(" |
# 科目ごとに点数のヒストグラムを描く | # 科目ごとに点数のヒストグラムを描く | ||
行 110: | 行 111: | ||
# 行列 seiseki.cor.test を、関数 cor.plot を用いて図示する | # 行列 seiseki.cor.test を、関数 cor.plot を用いて図示する | ||
cor.plot(seiseki.cor.test, | cor.plot(seiseki.cor.test, | ||
- | # コードここまで | ||
</ | </ | ||