function meanvec=bootstrapmean(data,nboot)

data=data(:);
dim=length(data);
rind=floor(rand(dim,nboot)*dim)+1;
for n=1:nboot
  meanvec(n)=mean(data(rind(:,n)));
end 


