「20190123生物科学基礎実験II 生物統計学」の版間の差分
提供: 広島大学デジタル博物館
ナビゲーションに移動検索に移動 (→ソース) |
(→ソース) |
||
45行目: | 45行目: | ||
B 7.7 | B 7.7 | ||
+ | z <- read.delim("clipboard") | ||
+ | z | ||
2019年1月23日 (水) 22:07時点における版
生物科学基礎実験II 生物統計学(2019年1月23日)
Rのダウンロード
Rを使った統計処理で参考になるサイト
- Rによる統計処理(群馬大学青木先生)http://aoki2.si.gunma-u.ac.jp/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)
species length A 3.3 A 6.5 A 2.6 B 9.0 B 8.1 B 7.7
z <- read.delim("clipboard") z
source("http://aoki2.si.gunma-u.ac.jp/R/src/all.R", encoding="euc-jp")