#118 女性アスリートは体重を減らすと競技パフォーマンスが落ちるかも

Scienceに掲載されていた記事です。 女性アスリートは（特に持久系種目）は体重を減らすことで、パフォーマンスアップできると考えている人も多いかもしれません。 今回、そのことについて言及した記事を見つけたのでリンクとしてここに貼っておきます。 www.sciencemag.org どうやら女性においてはBMIが高すぎても低すぎてもVO2maxが低いようですね。 上記の記事で紹介している論文を今後読もうと思います。

#117 Rを使ってスピアマンの順位相関係数をforループでキメる

昨日は Rを使ってシャピロウィルク検定をforループでキメました www.sportscienceresearchjpn.com今回はスピアマンでキメてみました。前回、検定結果が1個ずつ出力されてしまっていたので、今回はまとめて出力できるようにしました。データは前回と同じ形で読み込み、1列目を固定で、2列目以降と順を追ってスピアマンをやってくれるように書けたと思います。 Dataset <- read.table("clipboard", header=TRUE, sep="\t", na.strings="NA", dec=".", strip.white=TRUE) a<- c() # d…

#116 Rを使ってシャピロウィルク検定をforループでキメる

これまではPythonを使ってシャピロウィルク検定などを行っていましたが、今回はRを使用してやってみました。Rstudio上で実施。forループで複数のデータを一気に検定しました。 今回はこのようなデータを扱います。このデータをコピーして下記のコードを発動すれば簡単に上手くいくはず...!（たぶん何行でもOK） Dataset <- read.table("clipboard", header=TRUE, sep="\t", na.strings="NA", dec=".", strip.white=TRUE) #クリップボードからデータ読み込み N <- ncol(Dataset) #行数を…