密度分布と累積密度分布を結びつける

n <- list()
x <- list()
k <- 3
library(MCMCpack)
for(i in 1:k){
	n[[i]] <- rdirichlet(1,rep(0.1,3))*1000
	x[[i]] <- runif(n[[i]][1])
	x[[i]] <- c(x[[i]],rnorm(n[[i]][2],0.5))
	x[[i]] <- c(x[[i]],rexp(n[[i]][3]))

}

par(mfcol=c(2,k))
s <- sample(1:k)
for(i in 1:k){
	hist(x[[i]],main="?")

	plot(ecdf(x[[s[i]]]),main="?")
}