4

アンケートを作成しています。31 の質問が考えられます。各回答者に 3 つのサブセットに回答してもらいます。ランダムな順序で回答してもらいたいと思います。参加者は同じ質問に 2 回回答してはいけません

参加者のインデックスと、1 番目、2 番目、3 番目の質問の質問インデックスの列を含むテーブル マトリックスを作成しました。

以下のコードを使用すると、私のサンプルではインデックス 31 が過小評価されています。

サンプル関数の使い方が間違っていると思います。誰かが私を助けてくれることを望んでいましたか？

SgPassCode <- data.frame(PassCode=rep(0,10000), QIndex1=rep(0,10000),
  QIndex2=rep(0,10000), QIndex3=rep(0,10000))

set.seed(123)
for (n in 1:10000){
  temp <- sample(31,3,FALSE)
  SgPassCode[n,1] <- n 
  SgPassCode[n,-1] <- temp
}

d <- c(SgPassCode[,2],SgPassCode[,3],SgPassCode[,4])
hist(d)
4

1 に答える 1

7

問題はhist、ビンではなく、ビンの選択方法にありsampleます。証明は次の出力ですtable：

table(d)
#    1    2    3    4    5    6    7    8    9   10   11   12   13   14   15   16 
# 1003  967  938  958  989  969  988  956  983  990  921 1001  982 1016 1013  959 
#   17   18   19   20   21   22   23   24   25   26   27   28   29   30   31 
#  907  918  918  991  931  945  998 1017 1029  980  959  886  947  987  954

あなたhistが「働きたい」ならhist(d, breaks = 0:31)（そして確かに他の多くのものも）うまくいくでしょう。

于 2012-11-04T14:55:33.533 に答える