MACRO
datareg y x slopes ints
# y is dependent x single predictor
#
# this macro resamples cases ( Mooney & Duval p17 )
# copyright 2005 Robert L. Raymond University of St Thomas. Free use for
# teaching and noncommercial research-retain this notice in this and derivative works
#
MCONSTANT num j rep I 
MCOLUMN y x slopes ints nx ny coefs
NOECHO
LET num = COUNT(x)
LET rep = 100
BRIEF 0
DO j =1:rep
   SAMPLE num y x ny nx;
       REPLACE.
   REGRESS ny 1 nx;
      COEFFICIENTS coefs.
   LET ints( j ) = coefs( 1 )
   LET slopes( j ) = coefs( 2 )
ENDDO
BRIEF 2
ECHO
ENDMACRO