密度分布と累積密度分布を結びつける
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="?") }