2010-12-11から1日間の記事一覧
hoshi(x) hoshi <- function(x,ns){ X <- NULL for(i in 1:length(x)){ if(x[i] < .001){X[i] <- c("***") }else{ if(x[i] >= .001 & x[i] < .01){X[i] <- c("**") }else{ if(x[i] >= .01 & x[i] < .05){X[i] <- c("*") }else{ if(x[i] >= .05 & x[i] < .1 )…