MACRO
regperm y x slopes ints
MCONSTANT index rep size
MCOLUMN x y slopes ints yp coe io
#
# simple regression in which the ys are randomly associated with the xs
# slopesand ints are stored for later analysis
# copyright 2005 Robert L. Raymond University of St Thomas. Free use for
# teaching and noncommercial research-retain this notice in this and derivative works
NOECHO
#
NOTE  How many regressions do you want ?
SET io;
   FILE 'TERMINAL';
   NOBS  1.
#
BRIEF 0
LET rep = io(1)
LET size = COUNT(y)
DO index = 1:rep
   SAMPLE size y yp
   REGRESS yp 1 x;
      COEFFICIENTS coe.
   LET ints(index) = coe(1)
   LET slopes(index) = coe(2)
ENDDO
BRIEF 2
ECHO
ENDMACRO