p.values<-runif(10,min=0.00001,max=0.3)
p<-rep("",10)
for(i in 1:length(p.values)){
if(p.values[i] <= 0.001) p[i]<-c("***")
else if(p.values[i] <= 0.01) p[i]<-c("**")
else if(p.values[i] <= 0.05) p[i]<-c("*")
else if(p.values[i]<=0.01) p[i]<-c(".")
else p[i]<-c(" ")
}


雷达卡

京公网安备 11010802022788号







