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.