#delimit;

	/* **************************************************************************** */
	/* File:	nbr-code-dyads.do						*/
	/* Author:	Frederick J. Boehmke						*/
	/* Date:	June 09, 2006							*/
	/* Purpose:	Identify contiguous states in dyadic data set. No sorting	*/
	/*		necessary in dyadic form.					*/
	/*										*/
	/* Coding taking from Berry and Berry's 1990 AJPS article.			*/
	/* **************************************************************************** */

gen nbr = 0;

replace nbr =	1 if (stateno_02 == stateno_01 + 08 | stateno_02 == stateno_01 + 09 | stateno_02 == stateno_01 + 23 | stateno_02 == stateno_01 + 41)	 & stateno_01 == 1;
replace nbr =	0 if  stateno_01 == 2;
replace nbr =	1 if (stateno_02 == stateno_01 + 03 | stateno_02 == stateno_01 + 02 | stateno_02 == stateno_01 + 28 | stateno_02 == stateno_01 + 25 | stateno_02 == stateno_01 + 41)	 & stateno_01 == 3;
replace nbr =	1 if (stateno_02 == stateno_01 + 14 | stateno_02 == stateno_01 + 39 | stateno_02 == stateno_01 + 32 | stateno_02 == stateno_01 + 21 | stateno_02 == stateno_01 + 13 | stateno_02 == stateno_01 + 38 | stateno_02 == stateno_01 + 20)	 & stateno_01 == 4;
replace nbr =	1 if (stateno_02 == stateno_01 - 02 | stateno_02 == stateno_01 + 23 | stateno_02 == stateno_01 + 32)	 & stateno_01 == 5;
replace nbr =	1 if (stateno_02 == stateno_01 - 03 | stateno_02 == stateno_01 + 25 | stateno_02 == stateno_01 + 38 | stateno_02 == stateno_01 + 44 | stateno_02 == stateno_01 + 10 | stateno_02 == stateno_01 + 21 | stateno_02 == stateno_01 + 30)	 & stateno_01 == 6;
replace nbr =	1 if (stateno_02 == stateno_01 + 14 | stateno_02 == stateno_01 + 25 | stateno_02 == stateno_01 + 32)	 & stateno_01 == 7;
replace nbr =	1 if (stateno_02 == stateno_01 + 12 | stateno_02 == stateno_01 + 30 | stateno_02 == stateno_01 + 22)	 & stateno_01 == 8;
replace nbr =	1 if (stateno_02 == stateno_01 - 08 | stateno_02 == stateno_01 + 01)	 & stateno_01 == 9;
replace nbr =	1 if (stateno_02 == stateno_01 - 01 | stateno_02 == stateno_01 - 09 | stateno_02 == stateno_01 + 32 | stateno_02 == stateno_01 + 30 | stateno_02 == stateno_01 + 23)	 & stateno_01 == 10;
replace nbr =	0 if  stateno_01 == 11;
replace nbr =	1 if (stateno_02 == stateno_01 + 35 | stateno_02 == stateno_01 + 25 | stateno_02 == stateno_01 + 16 | stateno_02 == stateno_01 + 32 | stateno_02 == stateno_01 + 38 | stateno_02 == stateno_01 + 14)	 & stateno_01 == 12;
replace nbr =	1 if (stateno_02 == stateno_01 + 36 | stateno_02 == stateno_01 + 02 | stateno_02 == stateno_01 + 12 | stateno_02 == stateno_01 + 04 | stateno_02 == stateno_01 + 01 | stateno_02 == stateno_01 + 09)	 & stateno_01 == 13;
replace nbr =	1 if (stateno_02 == stateno_01 + 03 | stateno_02 == stateno_01 - 01 | stateno_02 == stateno_01 + 08 | stateno_02 == stateno_01 + 21)	 & stateno_01 == 14;
replace nbr =	1 if (stateno_02 == stateno_01 + 10 | stateno_02 == stateno_01 + 12 | stateno_02 == stateno_01 + 26 | stateno_02 == stateno_01 + 08 | stateno_02 == stateno_01 + 34 | stateno_02 == stateno_01 - 02)	 & stateno_01 == 15;
replace nbr =	1 if (stateno_02 == stateno_01 + 20 | stateno_02 == stateno_01 - 10 | stateno_02 == stateno_01 + 11 | stateno_02 == stateno_01 + 09)	 & stateno_01 == 16;
replace nbr =	1 if (stateno_02 == stateno_01 - 13 | stateno_02 == stateno_01 + 25 | stateno_02 == stateno_01 - 04 | stateno_02 == stateno_01 - 03 | stateno_02 == stateno_01 + 08 | stateno_02 == stateno_01 + 18 | stateno_02 == stateno_01 + 29 | stateno_02 == stateno_01 + 31)	 & stateno_01 == 17;
replace nbr =	1 if (stateno_02 == stateno_01 + 25 | stateno_02 == stateno_01 - 14 | stateno_02 == stateno_01 + 06)	 & stateno_01 == 18;
replace nbr =	1 if (stateno_02 == stateno_01 + 10 | stateno_02 == stateno_01 + 02)	 & stateno_01 == 19;
replace nbr =	1 if (stateno_02 == stateno_01 + 26 | stateno_02 == stateno_01 + 28 | stateno_02 == stateno_01 + 18 | stateno_02 == stateno_01 - 12 | stateno_02 == stateno_01 + 10)	 & stateno_01 == 20;
replace nbr =	1 if (stateno_02 == stateno_01 + 18 | stateno_02 == stateno_01 - 14 | stateno_02 == stateno_01 + 11 | stateno_02 == stateno_01 + 08 | stateno_02 == stateno_01 - 02 | stateno_02 == stateno_01 + 24)	 & stateno_01 == 21;
replace nbr =	1 if (stateno_02 == stateno_01 + 27 | stateno_02 == stateno_01 + 01 | stateno_02 == stateno_01 - 08 | stateno_02 == stateno_01 - 13)	 & stateno_01 == 22;
replace nbr =	1 if (stateno_02 == stateno_01 + 11 | stateno_02 == stateno_01 + 18 | stateno_02 == stateno_01 - 08 | stateno_02 == stateno_01 + 26 | stateno_02 == stateno_01 - 01)	 & stateno_01 == 23;
replace nbr =	1 if (stateno_02 == stateno_01 - 06 | stateno_02 == stateno_01 - 23 | stateno_02 == stateno_01 + 18 | stateno_02 == stateno_01 - 20)	 & stateno_01 == 24;
replace nbr =	1 if (stateno_02 == stateno_01 - 21 | stateno_02 == stateno_01 + 11 | stateno_02 == stateno_01 - 09 | stateno_02 == stateno_01 + 02 | stateno_02 == stateno_01 - 10 | stateno_02 == stateno_01 - 12 | stateno_02 == stateno_01 - 08 | stateno_02 == stateno_01 + 17)	 & stateno_01 == 25;
replace nbr =	1 if (stateno_02 == stateno_01 - 14 | stateno_02 == stateno_01 + 24 | stateno_02 == stateno_01 + 15 | stateno_02 == stateno_01 + 08)	 & stateno_01 == 26;
replace nbr =	1 if (stateno_02 == stateno_01 - 11 | stateno_02 == stateno_01 - 21 | stateno_02 == stateno_01 + 23 | stateno_02 == stateno_01 + 14 | stateno_02 == stateno_01 - 12 | stateno_02 == stateno_01 - 02)	 & stateno_01 == 27;
replace nbr =	1 if (stateno_02 == stateno_01 - 23 | stateno_02 == stateno_01 + 09 | stateno_02 == stateno_01 - 16 | stateno_02 == stateno_01 + 16 | stateno_02 == stateno_01 - 25)	 & stateno_01 == 28;
replace nbr =	1 if (stateno_02 == stateno_01 - 08 | stateno_02 == stateno_01 + 16 | stateno_02 == stateno_01 - 10)	 & stateno_01 == 29;
replace nbr =	1 if (stateno_02 == stateno_01 - 22 | stateno_02 == stateno_01 + 08 | stateno_02 == stateno_01 + 02 | stateno_02 == stateno_01 - 10)	 & stateno_01 == 30;
replace nbr =	1 if (stateno_02 == stateno_01 - 28 | stateno_02 == stateno_01 + 13 | stateno_02 == stateno_01 - 25 | stateno_02 == stateno_01 + 05 | stateno_02 == stateno_01 + 12)	 & stateno_01 == 31;
replace nbr =	1 if (stateno_02 == stateno_01 + 06 | stateno_02 == stateno_01 - 02 | stateno_02 == stateno_01 - 25 | stateno_02 == stateno_01 - 11 | stateno_02 == stateno_01 + 13)	 & stateno_01 == 32;
replace nbr =	1 if (stateno_02 == stateno_01 + 07 | stateno_02 == stateno_01 - 23 | stateno_02 == stateno_01 + 09 | stateno_02 == stateno_01 + 13)	 & stateno_01 == 33;
replace nbr =	1 if (stateno_02 == stateno_01 + 07 | stateno_02 == stateno_01 - 08 | stateno_02 == stateno_01 - 11)	 & stateno_01 == 34;
replace nbr =	1 if (stateno_02 == stateno_01 - 18 | stateno_02 == stateno_01 - 21 | stateno_02 == stateno_01 - 13 | stateno_02 == stateno_01 + 03 | stateno_02 == stateno_01 + 13)	 & stateno_01 == 35;
replace nbr =	1 if (stateno_02 == stateno_01 + 07 | stateno_02 == stateno_01 - 05 | stateno_02 == stateno_01 - 30 | stateno_02 == stateno_01 - 20 | stateno_02 == stateno_01 - 11 | stateno_02 == stateno_01 - 32)	 & stateno_01 == 36;
replace nbr =	1 if (stateno_02 == stateno_01 - 32 | stateno_02 == stateno_01 - 09 | stateno_02 == stateno_01 - 25 | stateno_02 == stateno_01 + 10)	 & stateno_01 == 37;
replace nbr =	1 if (stateno_02 == stateno_01 - 30 | stateno_02 == stateno_01 - 18 | stateno_02 == stateno_01 + 10 | stateno_02 == stateno_01 - 03 | stateno_02 == stateno_01 - 06 | stateno_02 == stateno_01 - 08)	 & stateno_01 == 38;
replace nbr =	1 if (stateno_02 == stateno_01 - 32 | stateno_02 == stateno_01 - 18)	 & stateno_01 == 39;
replace nbr =	1 if (stateno_02 == stateno_01 - 30 | stateno_02 == stateno_01 - 07)	 & stateno_01 == 40;
replace nbr =	1 if (stateno_02 == stateno_01 - 07 | stateno_02 == stateno_01 - 14 | stateno_02 == stateno_01 + 09 | stateno_02 == stateno_01 - 15 | stateno_02 == stateno_01 - 18 | stateno_02 == stateno_01 - 26)	 & stateno_01 == 41;
replace nbr =	1 if (stateno_02 == stateno_01 - 09 | stateno_02 == stateno_01 - 32 | stateno_02 == stateno_01 - 41 | stateno_02 == stateno_01 - 18 | stateno_02 == stateno_01 - 38 | stateno_02 == stateno_01 - 17 | stateno_02 == stateno_01 - 25 | stateno_02 == stateno_01 + 04)	 & stateno_01 == 42;
replace nbr =	1 if (stateno_02 == stateno_01 - 12 | stateno_02 == stateno_01 - 07 | stateno_02 == stateno_01 - 39 | stateno_02 == stateno_01 - 25)	 & stateno_01 == 43;
replace nbr =	1 if (stateno_02 == stateno_01 - 41 | stateno_02 == stateno_01 - 16 | stateno_02 == stateno_01 - 32 | stateno_02 == stateno_01 + 06 | stateno_02 == stateno_01 - 38 | stateno_02 == stateno_01 - 13)	 & stateno_01 == 44;
replace nbr =	1 if (stateno_02 == stateno_01 - 16 | stateno_02 == stateno_01 - 24 | stateno_02 == stateno_01 - 13)	 & stateno_01 == 45;
replace nbr =	1 if (stateno_02 == stateno_01 - 13 | stateno_02 == stateno_01 - 04 | stateno_02 == stateno_01 - 29 | stateno_02 == stateno_01 + 02 | stateno_02 == stateno_01 - 26)	 & stateno_01 == 46;
replace nbr =	1 if (stateno_02 == stateno_01 - 10 | stateno_02 == stateno_01 - 35)	 & stateno_01 == 47;
replace nbr =	1 if (stateno_02 == stateno_01 - 02 | stateno_02 == stateno_01 - 31 | stateno_02 == stateno_01 - 13 | stateno_02 == stateno_01 - 10 | stateno_02 == stateno_01 - 28)	 & stateno_01 == 48;
replace nbr =	1 if (stateno_02 == stateno_01 - 26 | stateno_02 == stateno_01 - 34 | stateno_02 == stateno_01 - 36 | stateno_02 == stateno_01 - 27)	 & stateno_01 == 49;
replace nbr =	1 if (stateno_02 == stateno_01 - 44 | stateno_02 == stateno_01 - 06 | stateno_02 == stateno_01 - 38 | stateno_02 == stateno_01 - 24 | stateno_02 == stateno_01 - 09 | stateno_02 == stateno_01 - 23)	 & stateno_01 == 50;
