MACRO
residreg y x slopes ints
#
# y is dependent x single predictor
# this resamples raw residuals
# 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 rep j
MCOLUMN y x slopes ints fitz rawr nrawr ny coefs
NOECHO
REGRESS y 1 x;
	FITS fitz;
	RESIDUALS rawr.
LET num = COUNT(x)
LET rep = 100
BRIEF 0
DO j = 1:rep
	SAMPLE num rawr nrawr;
		REPLACE.
	ADD fitz nrawr ny
	REGRESS ny 1 x;
		COEFFICIENTS coefs.
	LET ints(j) = coefs(1)
	LET slopes(j) = coefs(2)
ENDDO
BRIEF 2
ECHO
ENDMACRO