20190123生物科学基礎実験II 生物統計学

提供: 広島大学デジタル博物館
2019年1月23日 (水) 22:06時点におけるChubo (トーク | 投稿記録)による版
ナビゲーションに移動検索に移動

生物科学基礎実験II 生物統計学(2019年1月23日)

Rのダウンロード

Rを使った統計処理で参考になるサイト

ソース

x <- c(7.4,7.2,6.5,7.0,7.6,6.8,7.8,7.3,7.7,7.5,7.1,7.7,7.1,6.8,7.3,6.9,6.7,7.1,7.2,7.6,7.6,7.5,7.8,7.5,7.2,7.4,7.0,7.1,7.3,7.6)
x
sum(x)
y <- c(0.056,0.059,0.046,0.052,0.059,0.056,0.063,0.058,0.063,0.047,0.044,0.048,0.050,0.045,0.061,0.053,0.046,0.050,0.055,0.055,0.058,0.052,0.059,0.056,0.043,0.047,0.046,0.057,0.054,0.063)
y
var(y)
sum(y)
sum(x)
mean(x)
median(x)
which.max(table(x))
var(x)
sd(x)
max(x)
min(x)
range(x)
var(x)
var(y)
var(x,y)
cor(x,y)
waido <- function(x) mean((x-mean(x))^3)/(sd(x)^3)
waido(x)
waido(y)
sendo <- function(x) mean((x-mean(x))^4)/(sd(x)^4)
sendo(x)
sendo(y)
hist(x)
boxplot(x,names=c("x"))
boxplot(x,y)


source("http://aoki2.si.gunma-u.ac.jp/R/src/all.R", encoding="euc-jp")