私の関わりのある法人
ksbutton.png omemebuttan.png sowerbuttan.png
※このブログに書いていることは、私の関わりある法人の意見ではなく、
 あくまでも、私個人の意見です。

2024年03月07日

2023ベネッセ模試都道府県別平均点の表



 2023年のベネッセの模試(?)の結果について、5教科平均のランキングがこちらにありました。


 いろいろと調べるのに、ここからテキストエディターにコピペし、エクセルの北海道から順番に並んだ表に書きこんでみました。

 まあ「各都道府県でベネッセの(駿台模試の?)テストを受けた人だけのデータですが。

 PISA のデータがあればいいのにな・・・

 エクセルの表をダウンロードできるようにしましたが、ダウンロードすると「.crdownload」という拡張子がついてきます。その部分を削除して「.xlsx」に書き換えてやると、エクセルのデータとして使えます。

 なお、ウィルスチェックとかはようしませんので、ダウンロードは自己責任で。


で、2列目に人口、3列目に得点を入れ R で

> (wd <- getwd())
> library(psych)
> x <- read.csv(paste0(wd,"/jinkou&seiseki.csv"))
> names(x)
[1] "todoufuken" "jinkou" "seiseki"

> with(data = x,plot(x[ ,2],x[ ,3]))

とやると

スクリーンショット 2024-03-07 17.54.47.png

となって相関係数は

> corr.test(x$jinkou, x$seiseki)
Call:corr.test(x = x$jinkou, y = x$seiseki)
Correlation matrix
[1] 0.71
Sample Size
[1] 47
These are the unadjusted probability values.
The probability values adjusted for multiple tests are in the p.adj object.
[1] 0


ってことでした。


posted by kingstone at 17:36| Comment(0) | TrackBack(0) | 統計 | このブログの読者になる | 更新情報をチェックする
この記事へのコメント
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

※ブログオーナーが承認したコメントのみ表示されます。

この記事へのトラックバック