help on bootstrap sample
- To: mathgroup at smc.vnet.net
- Subject: [mg37350] help on bootstrap sample
- From: Søren Merser <merser at image.dk>
- Date: Fri, 25 Oct 2002 02:46:28 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Hi Mathematica freeks
I've made two small rutines for sampling (bootstrap statistics)
They are working , but at least 'SampleNoReplace' is rather slow
I was wondering if any of you know of a faster way to do this
Regards soren
SampelReplace[data_List:{0, 1}, n_:1] :=
Module[{}, data[[Table[Random[Integer, {1, Length@data} ], {n}]]]]
SampelNoReplace[data_List, n_] := Module[{idx, len, res, d, hi, i},
d = data;
res = {};
len = hi = Length@d;
For[i = 1, i <= n && i <= len, i++,
idx = Random[Integer, {1, hi--} ];
AppendTo[res, d[[idx]]];
d = Drop[d, {idx}];
];
res
]