%
% problem 268
% example epage 250 
% 
% Written by:
% -- 
% John L. Weatherwax                2008-02-20
% 
% email: wax@alum.mit.edu
% 
% Please send comments and especially bug reports to the
% above email address.
% 
%-----

clear all; 
close all; 
clc; 

addpath('../../Code/CSTool');
load spatial; 

B = 1000; 
alpha = 0.1; 

[bl1,bh1] = csbootint(spatial(:), 'mom', B, alpha );
fprintf( 'bootstrap-t interval is [%10.5f,%10.5f]\n', bl1, bh1 ); 

[bl2,bh2] = csbooperint(spatial(:), 'mom', B, alpha );
fprintf( 'bootstrap percentile interval is [%10.5f,%10.5f]\n', bl2, bh2 ); 

[bl3,bh3] = csbootbca(spatial(:), 'mom', B, alpha );
fprintf( 'bootstrap BC-a interval is [%10.5f,%10.5f]\n', bl3, bh3 );