「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を使った統計処理で参考になるサイト

ソース

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")