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

You can use the symnum function to create labels according to statistical significance. For example, if pvals is a vector of p-values:

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