/*DESCRIPTIVE STAT AND RESULT OF HLM LOGISTIC ARE NOT MERGING WELL BECAUSE OF THE NAMES OF THE VARIBALES CONTAIN IRREGULAR USE OF CPAITAL LETTERS. MUST FIX THEM*/ /*FROM VERSION3 MIXED MODEL*/ /*TEACHER EVALUATIN STUDENT*/ /*UNIT IS DYAD, A BIT TRICKY*/ %LET DIREC=C:\AAA PROJECTS\ECBW\N2P; %INCLUDE "&DIREC.ECB1.SAS"; LIBNAME HERE "&DIREC" ; DATA X2;SET X1; STDID=_N_; RUN; DATA HERE.ST; SET X2; /*GETTING TEACHER A INFORMATION*/ PROC SORT DATA=HERE.ST OUT=TEACHERA; BY TCH_IDA; RUN; PROC SORT DATA=HERE.ST OUT=TEACHERB; BY TCH_IDB; RUN; proc means data =teacherB; var F1T2_3 ;run; DATA TEACHERA;SET TEACHERA; KEEP F1SCH_ID TCH_ID STDID CLASSDIF HWHOWOFN ABSENTHOWOFN ATTENTHOWOFN DISRUPTHOWOFN TARDYHOWOFN PARENTINVOLV BEHAVECOUNSEL HWCOUNSEL ABSENTCOUNSEL PERFORMCOUNSEL BEHAVEPARENT HWPARENT ABSENTPARENT PERFORMPARENT HEALTH LD HANDICAP RISKDROPOUT PASSIVE BILINGUAL POORENGLISH HONOR RELATESWELL TALK WORKHARD COLLEGEGOER COLLEGIAL COLLEGIALTIME ; COLLEGIAL=.; IF F1T4_7A=2 OR F1T4_7A=4 OR F1T4_7A=1 OR F1T4_7A=5 THEN COLLEGIAL=1; IF F1T4_7A=0 OR F1T4_7A=3 THEN COLLEGIAL1=0; IF F1T4_7A > 5 THEN F1COLLEGIAL1=.; COLLEGIALTIME=F1T4_7B; IF COLLEGIAL=0 THEN COLLEGIALTIME=0; TCH_ID=TCH_IDA; CLASSDIF = F1T1_13 ; HWHOWOFN = F1T1_15 ; ABSENTHOWOFN = F1T1_16 ; ATTENTHOWOFN = F1T1_18 ; DISRUPTHOWOFN = F1T1_20 ; TARDYHOWOFN = F1T1_17 ; PARENTINVOLV = F1T1_7 ; BEHAVECOUNSEL = F1T1_21B ; HWCOUNSEL = F1T1_21C ; ABSENTCOUNSEL = F1T1_21D ; PERFORMCOUNSEL = F1T1_21A ; BEHAVEPARENT = F1T1_6B ; HWPARENT = F1T1_6C ; ABSENTPARENT = F1T1_6D ; PERFORMPARENT = F1T1_6A ; HEALTH = F1T1_8 ; LD = F1T1_9 ; HANDICAP = F1T1_10 ; RISKDROPOUT = F1T1_22 ; PASSIVE = F1T1_19 ; BILINGUAL = F1T1_11 ; POORENGLISH = F1T1_12 ; HONOR = F1T1_14 ; RELATESWELL = F1T1_3 ; TALK = F1T1_5 ; WORKHARD = F1T1_2 ; COLLEGEGOER = F1T1_4 ; RUN; DATA TEACHERB;SET TEACHERB; KEEP F1SCH_ID TCH_ID STDID CLASSDIF HWHOWOFN ABSENTHOWOFN ATTENTHOWOFN DISRUPTHOWOFN TARDYHOWOFN PARENTINVOLV BEHAVECOUNSEL HWCOUNSEL ABSENTCOUNSEL PERFORMCOUNSEL BEHAVEPARENT HWPARENT ABSENTPARENT PERFORMPARENT HEALTH LD HANDICAP RISKDROPOUT PASSIVE BILINGUAL POORENGLISH HONOR RELATESWELL TALK WORKHARD COLLEGEGOER COLLEGIAL COLLEGIALTIME ; COLLEGIAL=.; IF F1T8_7A=2 OR F1T8_7A=4 OR F1T8_7A=1 OR F1T8_7A=5 THEN COLLEGIAL=1; IF F1T8_7A=0 OR F1T8_7A=3 THEN COLLEGIAL=0; IF F1T8_7A > 5 THEN COLLEGIAL=.; COLLEGIALTIME=F1T8_7B; IF COLLEGIAL=0 THEN COLLEGIALTIME=0; TCH_ID=TCH_IDB; CLASSDIF = F1T5_13 ; HWHOWOFN = F1T5_15 ; ABSENTHOWOFN = F1T5_16 ; ATTENTHOWOFN = F1T5_18 ; DISRUPTHOWOFN = F1T5_20 ; TARDYHOWOFN = F1T5_17 ; PARENTINVOLV = F1T5_7 ; BEHAVECOUNSEL = F1T5_21B ; HWCOUNSEL = F1T5_21C ; ABSENTCOUNSEL = F1T5_21D ; PERFORMCOUNSEL = F1T5_21A ; BEHAVEPARENT = F1T5_6B ; HWPARENT = F1T5_6C ; ABSENTPARENT = F1T5_6D ; PERFORMPARENT = F1T5_6A ; HEALTH = F1T5_8 ; LD = F1T5_9 ; HANDICAP = F1T5_10 ; RISKDROPOUT = F1T5_22 ; PASSIVE = F1T5_19 ; BILINGUAL = F1T5_11 ; POORENGLISH = F1T5_12 ; HONOR = F1T5_14 ; RELATESWELL = F1T5_3 ; TALK = F1T5_5 ; WORKHARD = F1T5_2 ; COLLEGEGOER = F1T5_4 ; RUN; DATA HERE.STEVALUATION;SET TEACHERA TEACHERB; BY TCH_ID; IF TCH_ID NE ""; IF TALK=1 THEN DTALK=1; IF TALK=2 OR TALK=3 THEN DTALK=0; IF PARENTINVOLV=1 OR PARENTINVOLV=4 /*DON'T KNOW 45%*/ THEN DPARENTINVOLV=0; IF PARENTINVOLV=2 OR PARENTINVOLV=3 THEN DPARENTINVOLV=1; IF WORKHARD=1 THEN DWORKHARD=1; IF WORKHARD=2 THEN DWORKHARD=0; IF RELATESWELL=1 THEN DRELATESWELL=1; IF RELATESWELL=2 THEN DRELATESWELL=0; IF COLLEGEGOER=1 THEN DCOLLEGEGOER=1; IF COLLEGEGOER=2 THEN DCOLLEGEGOER=0; IF HONOR=2 THEN DHONOR=1; IF HONOR=3 THEN DHONOR=0; %MACRO SIMPLE (VAR1=); IF &VAR1=1 THEN D&VAR1=1; IF &VAR1=2 THEN D&VAR1=0; %MEND SIMPLE; %SIMPLE (VAR1=HEALTH); %SIMPLE (VAR1=LD); %SIMPLE (VAR1=HANDICAP); %SIMPLE (VAR1=BILINGUAL); %SIMPLE (VAR1=POORENGLISH); %SIMPLE (VAR1=PASSIVE); %SIMPLE (VAR1=RISKDROPOUT); *%SIMPLE (VAR1=); IF CLASSDIF=1 THEN DCLASSDIF=1; IF CLASSDIF=2 OR CLASSDIF=3 THEN DCLASSDIF=0; /*1 TOO DIFFICULT, 2 NOT CHALLENGING, 3 APPROPRIATE LEVEL*/ %MACRO CAR (VAR1=); IF &VAR1.PARENT=1 THEN D&VAR1.PARENT=1; IF &VAR1.PARENT=2 THEN D&VAR1.PARENT=0; %MEND CAR; %CAR (VAR1=PERFORM); %CAR (VAR1=HW); %CAR (VAR1=ABSENT); %CAR (VAR1=BEHAVE); %MACRO COUNSEL (VAR1=); IF &VAR1.COUNSEL=1 THEN D&VAR1.COUNSEL=1; IF &VAR1.COUNSEL=2 THEN D&VAR1.COUNSEL=0; %MEND COUNSEL; %COUNSEL (VAR1=BEHAVE); %COUNSEL (VAR1=PERFORM); %COUNSEL (VAR1=HW); %COUNSEL (VAR1=ABSENT); /*3 IS NOT NECESSARILY*/ %MACRO KEN (VAR1); IF &VAR1.HOWOFN=1 THEN D&VAR1.HOWOFN=1; IF &VAR1.HOWOFN=2 THEN D&VAR1.HOWOFN=2; IF &VAR1.HOWOFN=3 THEN D&VAR1.HOWOFN=3; IF &VAR1.HOWOFN=4 THEN D&VAR1.HOWOFN=4; IF &VAR1.HOWOFN=5 THEN D&VAR1.HOWOFN=5; /*6 IS I DON'T KNOW*/ %MEND KEN; %KEN (VAR1=HW); %KEN (VAR1=ATTENT); %KEN (VAR1=ABSENT); %KEN (VAR1=TARDY); %KEN (VAR1=DISRUPT); *%KEN (VAR1=); *%KEN (VAR1=); *%KEN (VAR1=); *%KEN (VAR1=); LABEL PARENTINVOLV = "PARENTS LEVEL OF INVOLVEMENT " TALK = "STUDENT TALKS WITH R OUTSIDE OF CLASS " BILINGUAL = "STUDENT IS LANGUAGE MINORITY " CLASSDIF = "DIFFICULTY OF CLASS FOR STUDENT " HANDICAP = "STUDENT HAS PHYSICAL/EMOTIONAL HANDICAP " HEALTH = "STUDENT BEHIND DUE TO HEALTH PROBLEM " LD = "STUDENT HAS A LEARNING DISABILITY " PASSIVE = "STUDENT IS EXCEPTIONALLY PASSIVE " POORENGLISH = "STUDENT IS LIMITED ENGLISH PROFICIENT " RISKDROPOUT = "STUDENT IS AT RISK OF DROPPING OUT H.S " ABSENTCOUNSEL = "SPOKE TO STUDNT^S COUNSELOR-ABSENTEEISM " ABSENTHOWOFN = "HOW OFTEN STUDENT IS ABSENT " ABSENTPARENT = "SPOKEN TO PARENTS ABT STUDNT ABSENTEEISM " BEHAVEPARENT = "SPOKEN TO PARENTS ABOUT STUDENT BEHAVIOR " BEHAVECOUNSEL = "SPOKE TO STUDNT^S COUNSELOR RE BEHAVIOR " DISRUPTHOWOFN = "HOW OFTEN STUDENT IS DISRUPTIVE IN CLASS " HWCOUNSEL = "SPOKE TO STUDNT^S COUNSELOR RE HOMEWORK " HWPARENT = "SPOKEN TO PARENTS ABOUT STUDENT HOMEWORK " PERFORMCOUNSEL = "SPOKE TO STUDNT^S COUNSELOR-PERFORMANCE " PERFORMPARENT = "SPOKEN TO PARENTS ABT STUDNT PERFORMANCE " TARDYHOWOFN = "HOW OFTEN STUDENT IS TARDY " ATTENTHOWOFN = "HOW OFTEN STUDENT IS ATTENTIVE IN CLASS " COLLEGEGOER = "STUDENT WILL PROBABLY GO TO COLLEGE " HONOR = "STUDENT RECOMMENDED FOR ACADEMIC HONORS " HWHOWOFN = "HOW OFTEN STUDENT DOES HOMEWORK " RELATESWELL = "STUDENT RELATES WELL TO OTHERS " WORKHARD = "STUDENT USUALLY WORKS HARD " DPARENTINVOLV = "PARENTS LEVEL OF INVOLVEMENT " DTALK = "STUDENT TALKS WITH R OUTSIDE OF CLASS " DBILINGUAL = "STUDENT IS LANGUAGE MINORITY " DCLASSDIF = "DIFFICULTY OF CLASS FOR STUDENT " DHANDICAP = "STUDENT HAS PHYSICAL/EMOTIONAL HANDICAP " DHEALTH = "STUDENT BEHIND DUE TO HEALTH PROBLEM " DLD = "STUDENT HAS A LEARNING DISABILITY " DPASSIVE = "STUDENT IS EXCEPTIONALLY PASSIVE " DPOORENGLISH = "STUDENT IS LIMITED ENGLISH PROFICIENT " DRISKDROPOUT = "STUDENT IS AT RISK OF DROPPING OUT H.S " DABSENTCOUNSEL = "SPOKE TO STUDNT^S COUNSELOR-ABSENTEEISM " DABSENTHOWOFN = "HOW OFTEN STUDENT IS ABSENT " DABSENTPARENT = "SPOKEN TO PARENTS ABT STUDNT ABSENTEEISM " DBEHAVEPARENT = "SPOKEN TO PARENTS ABOUT STUDENT BEHAVIOR " DBEHAVECOUNSEL = "SPOKE TO STUDNT^S COUNSELOR RE BEHAVIOR " DDISRUPTHOWOFN = "HOW OFTEN STUDENT IS DISRUPTIVE IN CLASS " DHWCOUNSEL = "SPOKE TO STUDNT^S COUNSELOR RE HOMEWORK " DHWPARENT = "SPOKEN TO PARENTS ABOUT STUDENT HOMEWORK " DPERFORMCOUNSEL = "SPOKE TO STUDNT^S COUNSELOR-PERFORMANCE " DPERFORMPARENT = "SPOKEN TO PARENTS ABT STUDNT PERFORMANCE " DTARDYHOWOFN = "HOW OFTEN STUDENT IS TARDY " DATTENTHOWOFN = "HOW OFTEN STUDENT IS ATTENTIVE IN CLASS " DCOLLEGEGOER = "STUDENT WILL PROBABLY GO TO COLLEGE " DHONOR = "STUDENT RECOMMENDED FOR ACADEMIC HONORS " DHWHOWOFN = "HOW OFTEN STUDENT DOES HOMEWORK " DRELATESWELL = "STUDENT RELATES WELL TO OTHERS " DWORKHARD = "STUDENT USUALLY WORKS HARD "; RUN; /*DESCRIPTION*/ PROC SORT DATA=HERE.STEVALUATION OUT=STEVALUATION2; BY COLLEGIALTIME; RUN; PROC MEANS DATA=STEVALUATION2; WHERE COLLEGIALTIME < 5;/*IGNORING MISSING VALUES AND LEGITIMATE SKIPS*/ CLASS COLLEGIALTIME; VAR /*POSITIVE DESCRPTORS*/ DWORKHARD DRELATESWELL DCOLLEGEGOER DHONOR DHWHOWOFN DATTENTHOWOFN /*NEGATIVE BEHAVIOR DESCIPTORS*/ DPERFORMPARENT DBEHAVECOUNSEL DHWPARENT DABSENTPARENT DABSENTHOWOFN DTARDYHOWOFN DDISRUPTHOWOFN DPERFORMCOUNSEL DHWCOUNSEL DABSENTCOUNSEL /*NEGATIVE ACADEMIC DESCRIPTORS*/ DHEALTH DLD DHANDICAP DBILINGUAL DPOORENGLISH DCLASSDIF DPASSIVE DRISKDROPOUT ; ODS OUTPUT SUMMARY=TSSUMMARY; RUN; PROC PRINT DATA=TSSUMMARY;RUN; %MACRO CHICAGO (VAR=,CATE=); DATA &VAR; SET TSSUMMARY; KEEP COLLEGIALTIME VNAME DESC MAX MEAN MIN N STDDEV CATE; LENGTH VNAME $ 18; LENGTH DESC $ 50; LENGTH CATE $13; VNAME=VNAME_&VAR; DESC=LABEL_&VAR; MAX= &VAR._MAX; MEAN= &VAR._MEAN; MIN= &VAR._MIN; N= &VAR._N; STDDEV= &VAR._STDDEV; CATE="&CATE"; RUN; %MEND CHICAGO; *%CHICAGO (VAR=DTALK ,CATE=POS DESC); %CHICAGO (VAR=DWORKHARD ,CATE=POS DESC); %CHICAGO (VAR=DRELATESWELL,CATE=POS DESC); %CHICAGO (VAR= DCOLLEGEGOER,CATE=POS DESC); %CHICAGO (VAR=DHONOR,CATE=POS DESC); %CHICAGO (VAR=DHWHOWOFN,CATE=POS DESC); %CHICAGO (VAR=DATTENTHOWOFN,CATE=POS DESC); %CHICAGO (VAR=DPERFORMPARENT,CATE=NEG DESC); %CHICAGO (VAR=DBEHAVECOUNSEL ,CATE=NEG DESC); %CHICAGO (VAR=DHWPARENT,CATE=NEG DESC); %CHICAGO (VAR=DABSENTPARENT,CATE=NEG DESC ); %CHICAGO (VAR=DABSENTHOWOFN,CATE=NEG DESC ); %CHICAGO (VAR=DTARDYHOWOFN,CATE=NEG DESC ); %CHICAGO (VAR=DDISRUPTHOWOFN,CATE=NEG DESC ); %CHICAGO (VAR=DPERFORMCOUNSEL ,CATE=NEG DESC); %CHICAGO (VAR=DHWCOUNSEL ,CATE=NEG DESC); %CHICAGO (VAR=DABSENTCOUNSEL,CATE=NEG DESC); %CHICAGO (VAR=DHEALTH ,CATE=NEG ACAD DESC); %CHICAGO (VAR=DLD ,CATE=NEG ACAD DESC); %CHICAGO (VAR=DHANDICAP,CATE=NEG ACAD DESC); %CHICAGO (VAR=DBILINGUAL,CATE=NEG ACAD DESC); %CHICAGO (VAR=DPOORENGLISH,CATE=NEG ACAD DESC ); %CHICAGO (VAR=DCLASSDIF ,CATE=NEG ACAD DESC); %CHICAGO (VAR=DPASSIVE,CATE=NEG ACAD DESC ); %CHICAGO (VAR=DRISKDROPOUT,CATE=NEG ACAD DESC); DATA ALLDATASETS; SET /*POSITIVE DESCRPTORS*/ DWORKHARD DRELATESWELL DCOLLEGEGOER DHONOR DHWHOWOFN DATTENTHOWOFN /*NEGATIVE BEHAVIOR DESCIPTORS*/ DPERFORMPARENT DBEHAVECOUNSEL DHWPARENT DABSENTPARENT DABSENTHOWOFN DTARDYHOWOFN DDISRUPTHOWOFN DPERFORMCOUNSEL DBEHAVECOUNSEL DHWCOUNSEL DABSENTCOUNSEL /*NEGATIVE ACADEMIC DESCRIPTORS*/ DHEALTH DLD DHANDICAP DBILINGUAL DPOORENGLISH DCLASSDIF DPASSIVE DRISKDROPOUT; BY COLLEGIALTIME; VARIABLE=VNAME; RUN; PROC SORT DATA=ALLDATASETS OUT=HERE.DESCRIPTION; BY VARIABLE COLLEGIALTIME; RUN; OPTION SPOOL; %MACRO BAKA (VAR=,CATE=,); ODS LISTING CLOSE; PROC FREQ DATA=STEVALUATION2; WHERE COLLEGIALTIME < 6 AND &VAR > -999; BY COLLEGIALTIME; TABLE DTALK; ODS OUTPUT ONEWAYFREQS=FREQ&VAR; RUN; DATA FREQ&VAR;SET FREQ&VAR; KEEP COLLEGIALTIME PROPTALK; IF F_DTALK=1; *VARIABLE=TABLE; PROPTALK=PERCENT/100; RUN; PROC NLMIXED DATA=STEVALUATION2 ; WHERE COLLEGIALTIME <6; BY COLLEGIALTIME; *PARMS A=.5 S2U=.1 BETA1=.001; ETA=A + COEF*&VAR + U ; EXPETA=EXP(ETA); P=EXPETA/(1+EXPETA); MODEL DTALK ~ BINARY(P); RANDOM U ~ NORMAL(0,S2U) SUBJECT=TCH_ID; ODS OUTPUT PARAMETERESTIMATES=A2&VAR; RUN; DATA A&VAR;MERGE A2&VAR FREQ&VAR; BY COLLEGIALTIME; LENGTH VARIABLE $ 15; VARIABLE="&VAR"; RUN; %MEND BAKA; %BAKA (VAR=DWORKHARD ,CATE=POS DESC); %BAKA (VAR=DRELATESWELL,CATE=POS DESC); %BAKA (VAR= DCOLLEGEGOER,CATE=POS DESC); %BAKA (VAR=DHONOR,CATE=POS DESC); %BAKA (VAR=DHWHOWOFN,CATE=POS DESC); %BAKA (VAR=DATTENTHOWOFN,CATE=POS DESC); %BAKA (VAR=DPERFORMPARENT,CATE=NEG DESC); %BAKA (VAR=DBEHAVECOUNSEL ,CATE=NEG DESC); %BAKA (VAR=DHWPARENT,CATE=NEG DESC); %BAKA (VAR=DABSENTPARENT,CATE=NEG DESC ); %BAKA (VAR=DABSENTHOWOFN,CATE=NEG DESC ); %BAKA (VAR=DTARDYHOWOFN,CATE=NEG DESC ); %BAKA (VAR=DDISRUPTHOWOFN,CATE=NEG DESC ); %BAKA (VAR=DPERFORMCOUNSEL ,CATE=NEG DESC); %BAKA (VAR=DHWCOUNSEL ,CATE=NEG DESC); %BAKA (VAR=DABSENTCOUNSEL,CATE=NEG DESC); %BAKA (VAR=DHEALTH ,CATE=NEG ACAD DESC); %BAKA (VAR=DLD ,CATE=NEG ACAD DESC); %BAKA (VAR=DHANDICAP,CATE=NEG ACAD DESC); %BAKA (VAR=DBILINGUAL,CATE=NEG ACAD DESC); %BAKA (VAR=DPOORENGLISH,CATE=NEG ACAD DESC ); %BAKA (VAR=DCLASSDIF ,CATE=NEG ACAD DESC); %BAKA (VAR=DPASSIVE,CATE=NEG ACAD DESC ); %BAKA (VAR=DRISKDROPOUT,CATE=NEG ACAD DESC); DATA ALLDATARESULTS; SET ADWORKHARD ADRELATESWELL ADCOLLEGEGOER ADHONOR ADHWHOWOFN ADATTENTHOWOFN ADPERFORMPARENT ADBEHAVECOUNSEL ADHWPARENT ADABSENTPARENT ADABSENTHOWOFN ADDISRUPTHOWOFN ADTARDYHOWOFN ADPERFORMCOUNSEL ADBEHAVECOUNSEL ADHWCOUNSEL ADABSENTCOUNSEL ADHEALTH ADLD ADHANDICAP ADBILINGUAL ADPOORENGLISH ADCLASSDIF ADPASSIVE ADRISKDROPOUT; JUN=_N_; RUN; PROC SORT;BY VARIABLE COLLEGIALTIME;RUN; DATA HERE.BOTH;MERGE ALLDATARESULTS HERE.DESCRIPTION; BY VARIABLE COLLEGIALTIME ; LINE="||"; RUN; PROC SORT;BY JUN;RUN; ODS LISTING; PROC PRINT DATA=HERE.BOTH; WHERE /* VARIABLE="DWORKHARD" AND*/ PARAMETER="coef"; TITLE "COEFFICIENT FROM LOGISTIC REGRESSION MODEL"; TITLE2 "OUTCOME, TEACHER TALK WITH STUDENTS"; *WHERE VARIABLE NE "INTERCEPT"; VAR CATE DESC COLLEGIALTIME ESTIMATE STANDARDERROR PROBT DF LINE PROPTALK MEAN N ; FOOTNOTE "MEAN AND N ARE THOSE FOR PREDICTORS"; RUN; proc print data=here.both; VAR CATE DESC COLLEGIALTIME parameter ESTIMATE STANDARDERROR PROBT DF LINE PROPTALK MEAN N ; run; %macro mari (var1=,extra=); data &var1;set here.both; keep &var1.parameter &var1.estimate &var1.standarderror &var1.probt &var1.DF &extra; if parameter="&var1"; &var1.parameter=parameter; &var1.estimate=estimate; &var1.standarderror=standarderror; &var1.probt=probt; &var1.DF=DF; run; %mend mari; %mari (var1=coef,extra=CATE DESC COLLEGIALTIME proptalk mean n variable ); %mari (var1=s2u,extra=); %mari (var1=a,extra=); data alltogether; retain CATE DESC COLLEGIALTIME proptalk mean n prob0 prob1 difprob aestimate aparameter aprobt astandarderror asign coefDF coefestimate coefparameter coefprobt coefstandarderror coefsign collegialtime s2uDF s2uestimate s2uparameter s2uprobt s2ustandarderror s2usign variable ; merge a coef s2u ; %macro jona (var1=); &var1.sign=' '; if &var1.probt < 0.1 then &var1.sign='+'; if &var1.probt < 0.05 then &var1.sign='*'; if &var1.probt < 0.01 then &var1.sign='**'; if &var1.probt < 0.001 then &var1.sign='***'; if &var1.probt < -999 then &var1.sign=" "; %mend jona; %jona (var1=a); %jona (var1=coef); %jona (var1=s2u); Prob0=exp(aestimate)/(1+exp(aestimate)); Prob1=exp(aestimate+coefestimate)/(1+exp(aestimate+coefestimate)); Difprob=Prob1-Prob0; /*the following independent variables were not dichotomous*/ if variable="DHWHOWOFN" or variable="" or variable="DATTENTHOWOFN" or variable="DASENTOFN" or variable="DTARDYOFN" or variable="DDISRUPTOFN" then do; Prob0=exp(aestimate+1*coefestimate)/(1+exp(aestimate+1*coefestimate)); Prob1=exp(aestimate+5*coefestimate)/(1+exp(aestimate+5*coefestimate)); Difprob=Prob1-Prob0; end; CI_onetail=coefstandarderror*TINV(.975,coefDF); CI_twotails=coefstandarderror*TINV(.95,coefDF); if desc="SPOKEN TO PARENTS ABT STUDNT PERFORMANCE" or desc="SPOKEN TO PARENTS ABOUT STUDENT HOMEWORK" or desc="SPOKE TO STUDNT^S COUNSELOR-PERFORMANCE" or desc="SPOKE TO STUDNT^S COUNSELOR RE HOMEWORK" then model="networking"; if DESC="STUDENT USUALLY WORKS HARD" or DESC="HOW OFTEN STUDENT IS ATTENTIVE IN CLASS" or DESC="HOW OFTEN STUDENT DOES HOMEWORK" or DESC="STUDENT RECOMMENDED FOR ACADEMIC HONORS" /*or DESC="STUDENT WILL PROBABLY GO TO COLLEGE" */ then model="academic"; run; %macro excel (variable=,data=, model=,sheet1=,tabletitle=); /*populating with values*/ FILENAME ddedata DDE "excel|C:\AAA PROJECTS\ECBW\N2P\[tables.xls]&Sheet1.!r2c1:r30c9" notab; FILENAME ddecmds DDE "excel|system"; data _null_; set &data; format desc $char30.; where model="&model"; file ddedata; put &variable ; run; /*adding titles (but now it has _ for spaces)*/ FILENAME ddedata DDE "excel|C:\AAA PROJECTS\ECBW\N2P\[tables.xls]&Sheet1.!r2c9" notab; *FILENAME ddecmds DDE "excel|system"; data _null_; file ddedata; a="&tabletitle" ; put a $110. ; run; %mend excel; %excel (data=alltogether, model=academic, tabletitle=Figure 4 The Effect of Selected Independent Variables on Student-Teacher Cohesion-- By Collegial Cohesion, sheet1=Analysis2A, variable= desc '09'x collegialtime '09'x coefEstimate '09'x CI_twotails '09'x CI_onetail ); %excel (data=alltogether, model=networking, tabletitle=Figure 5 The Effects of Selected Independent Variaables on Student-Teacher Cohesion--By Collegial Cohesion, sheet1=Analysis2A (2), variable= desc '09'x collegialtime '09'x coefEstimate '09'x CI_twotails '09'x CI_onetail );