既知のデータセットから復元抽出（または非復元抽出）を行い、各サンプルの平均と分布を計算するスクリプトを編集するにはどうすればよいですか？例えば、2000個のデータポイントがあり、毎回ランダムに20個のデータポイントを選択して平均を計算し、このプロセスを100回繰り返すとします。これらの100個のサンプルの平均と分布はどのように計算すればよいですか？
以下は 100 個のサブセットを取得して平均を計算するスクリプトです。
dt = Open( "$SAMPLE_DATA/Aircraft Incidents.jmp" );
:Latitude << Format("Best");
dt << Select Where( Is Missing( :Latitude ) ) << Delete Rows;<BR /><BR />runs = 100;<BR />//runs= 100000;
results = new table("results", add rows (runs), new column ("mean"));
rows = index (1, nrows(dt));
for each({i},index(1,runs),
myRows = Random Shuffle( rows)[1::20];
data = dt[myRows, "Latitude"];
results[i,"mean"]=Mean(data);
);
my Mean = Col Mean(:mean);
Show(myMean);
...そして手段の平均。
このスクリプトを使用すると、分布プラットフォームを使用して、100 個の平均値を「すべての」利用可能な分布に適合させることができます。
dist = results << Distribution(Continuous Distribution(Column( :mean )); );
dist << Fit All
