24/04/22 07:38:05.38 5qZe7l8z.net
>>385
これもstackoverflowのQ&Aをみつけて自己解決
a=5
ts={9,7,8,8,12,13,10,14,13,15,19,19,16,12,7,2,2,7,3,5,9,5,8,13,15,11,13,12,9,4}
y=Subsets[ts,{a}];
re=Table[Mean[y[[i]]],{i,1,Length@y}];
Mean[re]
Quantile[re,{.025,.5,.975}]
24/04/22 07:38:05.38 5qZe7l8z.net
>>385
これもstackoverflowのQ&Aをみつけて自己解決
a=5
ts={9,7,8,8,12,13,10,14,13,15,19,19,16,12,7,2,2,7,3,5,9,5,8,13,15,11,13,12,9,4}
y=Subsets[ts,{a}];
re=Table[Mean[y[[i]]],{i,1,Length@y}];
Mean[re]
Quantile[re,{.025,.5,.975}]