P値について一緒に考える

# 子供の性別
Nc<-1:10
Niter<-1000

MF<-c("男","女")

D<-NULL

for(i in 1:length(Nc)){
	D[[i]]<-matrix(sample(MF,Nc[i]*Niter,replace=TRUE),nrow=Niter)
}
print(D[[3]][1:10,])
> print(D[[3]][1:10,])
      [,1] [,2] [,3]
 [1,] "女" "男" "女"
 [2,] "女" "女" "男"
 [3,] "女" "男" "女"
 [4,] "女" "男" "男"
 [5,] "男" "男" "男"
 [6,] "女" "男" "女"
 [7,] "女" "男" "女"
 [8,] "女" "女" "女"
 [9,] "男" "女" "女"
[10,] "男" "男" "男"

# 1次元データの珍しさ


# 子供の性別
Nc<-1:10
Niter<-1000

MF<-c("男","女")

D<-NULL

for(i in 1:length(Nc)){
Di<-matrix(sample(MF,Nc[i]*Niter,replace=TRUE),nrow=Niter)
}
print(D3[1:10,])


print(D6[1:10,])

# 順列の珍しさと組み合わせの珍しさ
# 重複順列と非重複順列の珍しさとその意味

# 式は出さない。ランダムに作ってそれを数え上げることにする

# 000000000000001の珍しさ
# 010101010101010の珍しさ
# 159263の珍しさと314159263の珍しさ


# ある程度わかったところで、01列を作ってそれがどれくらい珍しいかを見てみる
# 1個つくるのではなく、3個作ってみる

# 連の長さはどのくらい珍しいだろうか?

# 配列の一致
# DNA配列のマッピングのこと
# 短めで完全一致することと、長めで緩く一致することのどちらが珍しいか
# 極値統計

# 2次元データの珍しさ
# 分割表
# コプロット

# 3...k次元データの珍しさ

mRNAの2次構造の珍しさ

# マルチプルテスティングの珍しさ

# FDRの珍しさ