R中的例子 require(stats)require(graphics)n <- 10nn <- 100g <- factor(round(n * runif(n * nn)))# runif函数生成n*nn