Data

CreateRandomDataSet[seed_]:=Module[{
	n,
	data,
	mu,
	realMu,
	sigma,
	np,
	nm,
	stat,
	stdd,
	oneSigmaC,
	twoSigmaC,
	fiveSigmaC
},
SeedRandom[seed];
n=RandomInteger[{1000,10000}];
mu=RandomReal[{1,9}]*RandomChoice[{-1,1}]*10^RandomChoice[{-9,-4,-1,0,1,2,6,15}];
sigma=RandomReal[{0,3}]*Abs[mu];
data=RandomVariate[NormalDistribution[mu,sigma],n-1];
realMu=Mean[data];
data=Insert[data,realMu,RandomInteger[{2,Length[data]-1}]];
np=Length@Select[data,#>Mean[data]&];
nm=Length@Select[data,#<Mean[data]&];
stdd=StandardDeviation[data];
stat=stdd/Sqrt[n];
oneSigmaC=Length@Select[data,realMu-stdd≤#≤realMu+stdd&];
twoSigmaC=Length@Select[data,realMu-2stdd≤#≤realMu+2stdd&];
fiveSigmaC=Length@Select[data,realMu-5stdd≤#≤realMu+5stdd&];
{mu,realMu,sigma,stdd,stat,np,nm,oneSigmaC/n*100.0,twoSigmaC/n*100.0,fiveSigmaC/n*100.0,data}
]

Monitor[
resList=Table[
res=CreateRandomDataSet[i];
Export[FileNameJoin[{NotebookDirectory[],ToString[i]<>".wdx"}],res[[-1]]];
StringPadRight[ToString[i],3]<>": "<>StringJoin[Riffle[{"Mu: ","DataMu: ","Sigma: ","DataSigma: ","stat. uncert.: ","n+: ","n-: ","1sigma: ","2sigma: ","5sigma: "},StringPadRight[ToString[#,InputForm],27]&/@res[[1;;-2]]]]<>"\n"
,{i,1,100}]
,i];
Export[FileNameJoin[{NotebookDirectory[],"Results.txt"}],StringJoin[resList]]