libname in1 ".";
options linesize=78;
options pagesize=78;
title "reading in pstar vars for helping outcome";

data id;
infile "schelp.place";
input link id group;
proc sort;
by link;

data one;
infile "SCHELP.PDA";
input hpnum hi hj phelp hdense hmutual hex01-hex14 hat01-hat14 hostar 
hinstar hmstar htrans hcyc hdcent hdpres;

*input problem#  i  j  Y(i,j)  density, mutuality, 14 expansiveness parameters,
                        14 attractiveness parameters, out-stars, in-stars,
                        mixed-stars, transitive triads, cyclic triads,
                        degree centralization, degree group prestige,;


link=hi;
proc sort;

by link;

data two;
merge id one;
by link;
hi=id;
higroup=group;
drop id group;
link=hj;
proc sort;
by link;

data schelpp;
merge two id;
by link;
hjgroup=group;
hj=id;
if hi ne . and hj ne .;
school=1;
hsameg=0;
if higroup=hjgroup then hsameg=1;

proc print;
var hpnum hi hj phelp hdense hmutual hostar 
hinstar hmstar htrans hcyc hdcent hdpres;

proc corr;
var hpnum hi hj phelp hdense hmutual hostar 
hinstar hmstar htrans hcyc hdcent hdpres;

data id;
infile "bwhelp.place";
input link id group;
proc sort;
by link;

data one;
infile "BWHELP.PDA";
input hpnum hi hj phelp hdense hmutual hex01-hex18 hat01-hat18 hostar 
hinstar hmstar htrans hcyc hdcent hdpres;


link=hi;
proc sort;

by link;

data two;
merge id one;
by link;
hi=id;
higroup=group;
drop id group;
link=hj;
proc sort;
by link;

data bwhelpp;
merge two id;
by link;
hjgroup=group;
hj=id;
if hi ne . and hj ne .;
school=2;
hsameg=0;
if higroup=hjgroup then hsameg=1;

data id;
infile "rihelp.place";
input link id group;
proc sort;
by link;

data one;
infile "RIHELP.PDA";
input hpnum hi hj phelp hdense hmutual hex01-hex09 hat01-hat09 hostar 
hinstar hmstar htrans hcyc hdcent hdpres;

*input problem#  i  j  Y(i,j)  density, mutuality, 14 expansiveness parameters,
                        14 attractiveness parameters, out-stars, in-stars,
                        mixed-stars, transitive triads, cyclic triads,
                        degree centralization, degree group prestige,;


link=hi;
proc sort;

by link;

data two;
merge id one;
by link;
hi=id;
higroup=group;
drop id group;
link=hj;
proc sort;
by link;

data rihelpp;
merge two id;
by link;
hjgroup=group;
hj=id;
if hi ne . and hj ne .;
school=3;
hsameg=0;
if higroup=hjgroup then hsameg=1;

data id;
infile "thhelp.place";
input link id group;
proc sort;
by link;

data one;
infile "THHELP.PDA";
input hpnum hi hj phelp hdense hmutual hex01-hex24 hat01-hat24 hostar 
hinstar hmstar htrans hcyc hdcent hdpres;

*input problem#  i  j  Y(i,j)  density, mutuality, 14 expansiveness parameters,
                        14 attractiveness parameters, out-stars, in-stars,
                        mixed-stars, transitive triads, cyclic triads,
                        degree centralization, degree group prestige,;


link=hi;
proc sort;

by link;

data two;
merge id one;
by link;
hi=id;
higroup=group;
drop id group;
link=hj;
proc sort;
by link;

data thhelpp;
merge two id;
by link;
hjgroup=group;
hj=id;
if hi ne . and hj ne .;
school=4;
hsameg=0;
if higroup=hjgroup then hsameg=1;

data id;
infile "huhelp.place";
input link id group;
proc sort;
by link;

data one;
infile "HUHELP.PDA";
input hpnum hi hj phelp hdense hmutual hex01-hex16 hat01-hat16 hostar 
hinstar hmstar htrans hcyc hdcent hdpres;

*input problem#  i  j  Y(i,j)  density, mutuality, 14 expansiveness parameters,
                        14 attractiveness parameters, out-stars, in-stars,
                        mixed-stars, transitive triads, cyclic triads,
                        degree centralization, degree group prestige,;


link=hi;
proc sort;

by link;

data two;
merge id one;
by link;
hi=id;
higroup=group;
drop id group;
link=hj;
proc sort;
by link;

data huhelpp;
merge two id;
by link;
hjgroup=group;
hj=id;
if hi ne . and hj ne .;
school=5;
hsameg=0;
if higroup=hjgroup then hsameg=1;

data id;
infile "phhelp.place";
input link id group;
proc sort;
by link;

data one;
infile "PHHELP.PDA";
input hpnum hi hj phelp hdense hmutual hex01-hex18 hat01-hat18 hostar 
hinstar hmstar htrans hcyc hdcent hdpres;

*input problem#  i  j  Y(i,j)  density, mutuality, 14 expansiveness parameters,
                        14 attractiveness parameters, out-stars, in-stars,
                        mixed-stars, transitive triads, cyclic triads,
                        degree centralization, degree group prestige,;


link=hi;
proc sort;

by link;

data two;
merge id one;
by link;
hi=id;
higroup=group;
drop id group;
link=hj;
proc sort;
by link;

data phhelpp;
merge two id;
by link;
hjgroup=group;
hj=id;
if hi ne . and hj ne .;
school=8;
hsameg=0;
if higroup=hjgroup then hsameg=1;

data id;
infile "cwhelp.place";
input link id group;
proc sort;
by link;

data one;
infile "CWHELP.PDA";
input hpnum hi hj phelp hdense hmutual hex01-hex10 hat01-hat10 hostar 
hinstar hmstar htrans hcyc hdcent hdpres;

*input problem#  i  j  Y(i,j)  density, mutuality, 14 expansiveness parameters,
                        14 attractiveness parameters, out-stars, in-stars,
                        mixed-stars, transitive triads, cyclic triads,
                        degree centralization, degree group prestige,;


link=hi;
proc sort;

by link;

data two;
merge id one;
by link;
hi=id;
higroup=group;
drop id group;
link=hj;
proc sort;
by link;

data cwhelpp;
merge two id;
by link;
hjgroup=group;
hj=id;
if hi ne . and hj ne .;
school=9;
hsameg=0;
if higroup=hjgroup then hsameg=1;

data id;
infile "behelp.place";
input link id group;
proc sort;
by link;

data one;
infile "BEHELP.PDA";
input hpnum hi hj phelp hdense hmutual hex01-hex11 hat01-hat11 hostar 
hinstar hmstar htrans hcyc hdcent hdpres;

*input problem#  i  j  Y(i,j)  density, mutuality, 14 expansiveness parameters,
                        14 attractiveness parameters, out-stars, in-stars,
                        mixed-stars, transitive triads, cyclic triads,
                        degree centralization, degree group prestige,;


link=hi;
proc sort;

by link;

data two;
merge id one;
by link;
hi=id;
higroup=group;
drop id group;
link=hj;
proc sort;
by link;

data behelpp;
merge two id;
by link;
hjgroup=group;
hj=id;
if hi ne . and hj ne .;
school=10;
hsameg=0;
if higroup=hjgroup then hsameg=1;


data in1.allhps; 
set schelpp bwhelpp rihelpp thhelpp huhelpp phhelpp cwhelpp behelpp;
id=hi;
alter=hj;
proc sort;
by school id alter;

proc means;
by school;


endsas;