【R言語】統計解析フリーソフトＲ第４章【GNU R】

【R言語】統計解析フリーソフトＲ第４章【GNU R】at MATH

【R言語】統計解析フリーソフトＲ第４章【GNU R】 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

150:１３２人目の素数さん
 11/08/08 14:38:15.29 
[A] 
TS10,SBR,VFK10,TKK,VF1,LCCR,SINX, 
VF1M4,VF1L2,VF1H2,EMPC,MPE, 
4231,4213,3331,3313,145,53A3,6236, 
EMPCB,EMJ,LP,CJ,F4,LC,DNA,RNA, 
SINT,JEL,23458,2348,DBT,GMO, 
AB,APLWJKSJ,PES,WE,CA,RR,ASL, 
EPH,ITU,261036,CBS6,1358,G1,AS3,M5,

151:１３２人目の素数さん
 11/08/11 22:25:16.52 
質問です。 
 
20個の変数があり、各変数は0 から 0.2 まで 0.05 ずつの値をとることが可能 
また、この変数の総和は 1 となる。 
この時の組み合わせをすべて求めたいのですが、 
どうすれば良いでしょうか? 
 
よろしくお願いいたします

152:１３２人目の素数さん
 11/08/12 01:53:48.61 
>>151 
> seq(from=0,to=0.2,by=0.05) 
[1] 0.00 0.05 0.10 0.15 0.20 
> factorial(5+20-1)/factorial(20)/factorial(5-1) 
[1] 10626 
この程度の組み合わせなら全て計算して合計が1のものを選んだ方が早いかも。

153:152
 11/08/12 02:20:56.85 
とりあえず、20変数じゃなくて6変数の場合を提示するのであとは自分で考えて 
> n <- seq(from=0,to=0.2,by=0.05) 
> m <- expand.grid(n,n,n,n,n,n) 
> m.s <- apply(m,1,sum) 
> a <- m[m.s==1,] 
> head(a) 
     Var1 Var2 Var3 Var4 Var5 Var6 
3125 0.20 0.20 0.20 0.20 0.20 0.00 
5625 0.20 0.20 0.20 0.20 0.15 0.05 
6125 0.20 0.20 0.20 0.15 0.20 0.05 
6225 0.20 0.20 0.15 0.20 0.20 0.05 
6245 0.20 0.15 0.20 0.20 0.20 0.05 
6249 0.15 0.20 0.20 0.20 0.20 0.05

次ページ