﻿WOpen "W:\FINAL.MTW". desc c1; mean; median; mode. let k1=mean(c1^2)-mean(c1)^2 name k1 "variance" print k1 let k2=sqrt(k1) name k2 "standard deviation" print k2 let k3=73/k2 name k3 "#2" name k3 "2" print k3 tally c1; all. code c1 (90:100) "A" (80:89) "B" (70-79) "C" (60:69) "D" (0:59) "F" c2. code (0-59) "F" (60:69) "D" (70:79) "C" (80:89) "B" (90:100) "A" c1 c12. code (0:59) "F" (60:69) "D" (70:79) "C" (80:89) "B" (90:100) "A" c1 c12. piec c12. Save "W:\Final takehome.mpj"; Project; Replace. Plot 'EXAM 2'*'EXAM 1'; Symbol. corr c1 c2. let k4=0.683*0.683 name k4 "coefficent of determination" print k4 let k5=mean(c2^2)-mean(c2)^2 name k5 "variance c2" let k6=sqrt(k5) print k6 let k7=0.683*(k5/k2) name k7 "regression coeficient" print k7 let k8=mean(c2)-mean(c1)*k7 name k8 "intercept" print k8 let k8=(mean(c2)-mean(c1))*k7 print k8 let k9=(k7*69)+k8 name k9 "predicted score" print k9 let k9=k7*69+k8 print k9 Regress; Response 'EXAM 2'; Nodefault; Continuous 'EXAM 1'; Terms C1; Constant; Unstandardized; Tmethod; Tanova; Tsummary; Tcoefficients; Tequation; TDiagnostics 0. Save "W:\Final takehome.mpj"; Project; Replace. let k7=0.683*(k6/k2) print k7 let k8=mean(c1*c2)-mean(c1)*mean(c2) name k8 "covariance" let k9=k8/(k6*k2) name k9 "correlation coefficient" print k9 let k7=k9*(k6/k2) print k7 let k10=(k9^2) name k10 "coeficient of determination" print k10 let k7=k9*(k6/k2) print k7 let k11=(mean(c2)-mean(c1))*k7 name k11 "intercept" print k11 let k11=mean(c2)-mean(c1)*k7 print k11 let k12=k7*69+k11 name k12 "11" print k12 let k12=(k7*69)+k11 print k11 print k12 NOTE *** Data window was used to change the worksheet let k13=mean(c13^2)-mean(c13)^2 name k13 "variance predictor" print k13 let k14= sqrt(k13) name k14 "standard dev predictor" print k14 let k15=mean(c14^2)-mean(c14)^2 name k15 "variance criterion" print k15 let k16=sqrt(k15) name k16 "standard dev criterion" print k16 let k17=mean(c13*c14)-mean(c13)*mean(c14) name k17 "critpred covariance" let k18=k17/(k14*k16) name k18 "cp correlation coefficient" print k18 let k19=k18*(k16/k14) name k19 "cp regression coefficient" print k19 corr c13 c14 #just checking to make sure i did calcs right let k20= mean(c14)-mean(c13)*k19 name k20 "cp intercept: name k20 "cp intercept" print k20 Regress; Response 'Criterion'; Nodefault; Continuous 'Predictor'; Terms Predictor; Constant; Unstandardized; Tmethod; Tanova; Tsummary; Tcoefficients; Tequation; TDiagnostics 0. # just making sure all my calcs are right for intercept and regr coefficient, which they are :) let c15=k19*c13+k20 NOTE *** Data window was used to change the worksheet let c16=c15-mean(c14) NOTE *** Data window was used to change the worksheet let k21=mean(c16^2) name k21 "regression variance" print k21 let k22=k15*(k18^2) print k22 #checking to make sure calcs right let k23=sqrt(572) name k23 "standard error" print k23 NOTE *** Data window was used to change the worksheet let c17=c14-c15 let k24=mean(c17^2) name k24 "residual variance" let k25=sqrt(k24) print k25 let k23=sqrt(572/25) print k23 #littt all is good Save "W:\Final takehome.mpj"; Project; Replace. Save "W:\Final takehome.mpj"; Project; Replace. Tally 'PLAYS SPORT?' 'POE AREA'; Counts; Percents. XTabs 'PLAYS SPORT?' 'POE AREA'; Layout 1 1; Counts; RowPercents; ColPercents; TotPercents; DMissing 'PLAYS SPORT?' 'POE AREA'. Paired 'COMPUTERS 1' 'COMPUTERS 2'; Confidence 95.0; Test 0.0; Alternative 0; GHistogram. twos c5 c6; paired. pooled. NOTE *** Data window was used to change the worksheet let c18=c5-c6 onet c18. let k26=mean(c18)/1.29 name k26 "cohen's D name k26 "Cohen's D" name k26"cohen" name k26 "cohen" print k26 Save "W:\Final takehome.mpj"; Project; Replace. let c18=c6-c5 let c18=c6-c5 onet c18; cohen. . onet c18. let k26=mean(c18)/1.29 print k26 onet c18 onet c18; test 0. mean c5 mean c6 NOTE *** Data window was used to change the worksheet Save "W:\Final takehome.mpj"; Project; Replace. TChiSquare 'Approve?'; Proportions 'sample'; GBar; GChiSQ; Pareto; RTable. NOTE *** Closed graph: Chart of Observed and Expected Values NOTE *** Data window was used to change the worksheet TChiSquare; Observed 'sample'; Proportions 'Pop'; GBar; GChiSQ; Pareto; RTable. oneway; c7 c8. oneway; c7-c8. oneway; resp c7-c8. . NOTE *** Data window was used to change the worksheet oneway; resp c5-c6; . NOTE *** Closed graph: Interval Plot of COMPUTERS 1, COMPUTERS 2 oneway; resp c7-c8; oneway; . oneway' oneway; resp c8; cate c7; tukey. onez c9; sigma 6; test 18. NOTE *** Data window was used to change the worksheet oneway; resp c10-c11. NOTE *** Data window was used to change the worksheet XTabs 'Married' 'Not married' 'Affiliation'; Layout 1 1; Counts; RowPercents; ColPercents; TotPercents; DMissing 'Married' 'Not married' 'Affiliation'. XTabs 'Affiliation' 'Not married'; CSTA; ChiSquare; Counts; Expected; DMissing 'Affiliation' 'Not married'. NOTE *** Data window was used to change the worksheet Save "W:\Final takehome.mpj"; Project; Replace. XTabs 'PLAYS SPORT?' 'POE AREA'; Layout 1 1; Counts; RowPercents; ColPercents; TotPercents; DMissing 'PLAYS SPORT?' 'POE AREA'. NOTE *** Data window was used to change the worksheet Save "W:\Final takehome.mpj"; Project; Replace.