Below is a script that adds the error bars as you request;
Names Default To Here( 1 );
dt = Current Data Table();
gb = dt << Graph Builder(
Size( 922, 752 ),
Variables( X( :DAP ), Y( :Estimate ), Overlay( :Join ) ),
Elements( Line( X, Y, Legend( 15 ), Error Bars( "Confidence Interval" ) ) )
);
Report( gb )[Frame box( 1 )] << Add Graphics Script(
Transparency( 1 );
For( i = 1, i <= N Rows( dt ), i++,
from = {};
to = {};
topfrom = {};
topto = {};
bottomfrom = {};
bottomto = {};
Insert Into( to, dt:dap[i] );
Insert Into( to, dt:upper[i] );
Insert Into( from, dt:dap[i] );
Insert Into( from, dt:lower[i] );
Insert Into( topfrom, dt:dap[i] - 1 );
Insert Into( topfrom, dt:upper[i] );
Insert Into( topto, dt:dap[i] + 1 );
Insert Into( topto, dt:upper[i] );
Insert Into( bottomfrom, dt:dap[i] - 1 );
Insert Into( bottomfrom, dt:lower[i] );
Insert Into( bottomto, dt:dap[i] + 1 );
Insert Into( bottomto, dt:lower[i] );
Line( from, to );
Line( topfrom, topto );
Line( bottomfrom, bottomto );
);
);
Jim