1

我有一个 for 循环,当我添加额外的代码行时,由于某种原因被忽略了。我已经独立地测试了代码行和 for 循环,并且都按预期工作。

这是代码:

onestar <- 0
twostar <- 0
threestar <- 0
fourstar <- 0
paste(ccdata[1,3],"*")
for (i in 1:ncol(ccdata))
{
    for (j in 1:nrow(ccdata)){#iterate down the list
        cat(ccdata[j,i])
        if (ccdata[j,i]<=0.05){
            onestar <- onestar+1
            x <- paste(ccdata[j,i],"*")
            ccdata[j,i]<-x
            cat(ccdata[j,i])
            ccdata[j,i]<-paste(ccdata[j,i],"*")
        }
    }
    cat("loopsruns")
}
onestar

我的ccdata[j,i]<-paste(ccdata[j,i],"*")线路有问题——当我删除它时,循环工作正常。当它被包含时,程序只是忽略循环。

或者,如果有一个根据统计显着性标记事物的包,那将非常有帮助——我用谷歌搜索了它,但找不到任何东西。

4

1 回答 1

1

您可以使用该symnum功能根据统计显着性创建标签。例如,如果pvals是一个 p 值向量:

symnum(pvals, cutpoints = c(0, 0.001, 0.01, 0.05, 0.1, 1), 
       symbols = c("***", "**", "*", ".", " "))
于 2013-07-22T19:04:32.167 回答