var df=0; var t = 0; var t1 = 0; var se = 0; function calc() { var x1=0, x2=0, d=0; var sx1=0, sx2=0; var sum1=0, sum2=0, sumt=0, sumd=0; var sumsq1=0, sumsq2=0, sumsqt=0, sumsqd=0; var ss1=0, ss2=0, sst=0, ssd=0; var n1=0, n2=0, nt=0; var m1=0, m2=0, mt=0; var num=0, denom=0; for(var i=0; i<15; i++) { document.show1.elements[i].value = ""; } if(document.setup.elements[2].value == "") { alert("Please perform the Setup operation before proceeding."); } x1 = document.a1.elements[0].value; var xjz = " "; if(x1.indexOf("\r")>-1){xjz="\r"}else{xjz="\n"} sx1 = x1.split(xjz); n1 = sx1.length; if(sx1[n1-1]==""){n1=n1-1} if(sx1[n1-1]==""){n1=n1-1} x2 = document.a1.elements[1].value; sx2 = x2.split(xjz); n2 = sx2.length; if(sx2[n2-1]==""){n2=n2-1} if(sx2[n2-1]==""){n2=n2-1} for(var i=0; i for(var i=0; i m1 = sum1/n1; ss1 = sumsq1-((sum1*sum1)/n1); m2 = sum2/n2; ss2 = sumsq2-((sum2*sum2)/n2); sumt = sum1+sum2*1; sumsqt = sumsq1+sumsq2*1; nt = n1+n2*1; mt = sumt/nt; sst = sumsqt-((sumt*sumt)/nt); document.show1.elements[0].value = n1; document.show1.elements[1].value = n2; document.show1.elements[3].value = sum1; document.show1.elements[4].value = sum2; document.show1.elements[6].value = sumsq1; document.show1.elements[7].value = sumsq2; document.show1.elements[9].value = Math.round(ss1*10000)/10000; document.show1.elements[10].value = Math.round(ss2*10000)/10000; document.show1.elements[12].value = Math.round(m1*10000)/10000; document.ci.elements[0].value = Math.round(m1*10000)/10000; document.show1.elements[13].value = Math.round(m2*10000)/10000; document.ci.elements[3].value = Math.round(m2*10000)/10000; document.show1.elements[2].value = nt; document.show1.elements[5].value = sumt; document.show1.elements[8].value = sumsqt; document.show1.elements[11].value = Math.round(sst*10000)/10000; document.show1.elements[14].value = Math.round(mt*10000)/10000; num = m1-m2; document.diff.elements[0].value = Math.round(num*10000)/10000; document.ci.elements[6].value = Math.round(num*10000)/10000; if(analysis==2) { for(var i=0; i if(n1!=n2) { alert("For a correlated samples analysis, the two samples must be of the same size.") } df = n1-1; sumd+=.00000001; ssd = sumsqd-((sumd*sumd)/n1); denom = (ssd/df)/n1; } if(analysis==1) { df = n1+n2-2; var prepool = ((ss1+ss2)/df); var pool = (prepool/n1)+(prepool/n2); denom = pool; } denom = Math.sqrt(denom); if(document.setup.elements[2].value == "") { for(var i=0; i<15; i++) { document.show1.elements[i].value = ""; } } t = num/denom; t = Math.round(t*100)/100; document.t.elements[0].value = t; document.df.elements[0].value = df; if(t>0) { document.t.elements[0].value = "+"+document.t.elements[0].value; } document.pa.elements[0].value = Tcall(buzz(eval(t),eval(df))); document.pb.elements[0].value = Tcall(buzz(eval(t),eval(df)))/2; if(document.pa.elements[0].value<.0001||document.pa.elements[0].value>1.0) { document.pa.elements[0].value = "<.0001"; } if(document.pb.elements[0].value<.0001||document.pb.elements[0].value>1.0) { document.pb.elements[0].value = "<.0001"; } df = n1-1; se = Math.sqrt(ss1/df/n1); list(); document.ci.elements[1].value = Math.round(se*t*10000)/10000; document.ci.elements[2].value = Math.round(se*t1*10000)/10000; df = n2-1; se = Math.sqrt(ss2/df/n2); list(); document.ci.elements[4].value = Math.round(se*t*10000)/10000; document.ci.elements[5].value = Math.round(se*t1*10000)/10000; if(analysis==2) { df = n1-1; se = Math.sqrt(ssd/df/n1); list(); document.ci.elements[7].value = Math.round(se*t*10000)/10000; document.ci.elements[8].value = Math.round(se*t1*10000)/10000; } if(analysis==1) { df = n1+n2-2; se = Math.sqrt(pool); list(); document.ci.elements[7].value = Math.round(se*t*10000)/10000; document.ci.elements[8].value = Math.round(se*t1*10000)/10000; } } function unwipe() { if(analysis==1) {zjk="Independent"}; if(analysis==2) {zjk="Correlated"}; var n1 = document.show1.elements[0].value; var n2 = document.show1.elements[1].value; var nt = document.show1.elements[2].value; var sum1 = document.show1.elements[3].value; var sum2 = document.show1.elements[4].value; var sumt = document.show1.elements[5].value; var sumsq1 = document.show1.elements[6].value; var sumsq2 = document.show1.elements[7].value; var sumsqt = document.show1.elements[8].value; var ss1 = document.show1.elements[9].value; var ss2 = document.show1.elements[10].value; var sst = document.show1.elements[11].value; var m1 = document.show1.elements[12].value; var m2 = document.show1.elements[13].value; var mt = document.show1.elements[14].value; var diff = document.diff.elements[0].value; var t = document.t.elements[0].value; var df = document.df.elements[0].value; var p1 = document.pb.elements[0].value; var p2 = document.pa.elements[0].value; var jx1 = ""; var xjz = " "; if(document.a1.elements[0].value.indexOf("\r")>-1){xjz="\r"}else{xjz="\n"} var jz1 = document.a1.elements[0].value.split(xjz); for(var i=0; i";} var jx2 = ""; var jz2 = document.a1.elements[1].value.split(xjz); for(var i=0; i";} var date = new Date(); var aa = 'VassarStats Printable Report
t-Test for '+zjk+' Samples
'+date+'
'; document.open(); document.write(''); document.write(''+aa); document.write('Values Entered
Sample A
Sample B
'+jx1+''+jx2+'
'); document.write('
Summary Data
A
B
Total
n
'+n1+'
'+n2+'
'+nt+'
-X
'+sum1+'
'+sum2+'
'+sumt+'
-X2
'+sumsq1+'
'+sumsq2+'
'+sumsqt+'
SS
'+ss1+'
'+ss2+'
'+sst+'
mean
'+m1+'
'+m2+'
'+mt+'
'); document.write('
MeanA—MeanB t  df 
'+diff+''+t+''+df+'
  P  one-tailed'+p1+'
two-tailed'+p2+'
') document.close(); } function list() { if(df==1){t=12.71;t1=63.66;} if(df==2){t=4.3;t1=9.92;} if(df==3){t=3.18;t1=5.84;} if(df==4){t=2.78;t1=4.6;} if(df==5){t=2.57;t1=4.03;} if(df==6){t=2.45;t1=3.71;} if(df==7){t=2.36;t1=3.5;} if(df==8){t=2.31;t1=3.36;} if(df==9){t=2.26;t1=3.25;} if(df==10){t=2.23;t1=3.17;} if(df==11){t=2.2;t1=3.11;} if(df==12){t=2.18;t1=3.05;} if(df==13){t=2.16;t1=3.01;} if(df==14){t=2.14;t1=2.98;} if(df==15){t=2.13;t1=2.95;} if(df==16){t=2.12;t1=2.92;} if(df==17){t=2.11;t1=2.9;} if(df==18){t=2.1;t1=2.88;} if(df==19){t=2.09;t1=2.86;} if(df==20){t=2.09;t1=2.85;} if(df==21){t=2.08;t1=2.83;} if(df==22){t=2.07;t1=2.82;} if(df==23){t=2.07;t1=2.81;} if(df==24){t=2.06;t1=2.8;} if(df==25){t=2.06;t1=2.79;} if(df==26){t=2.06;t1=2.78;} if(df==27){t=2.05;t1=2.77;} if(df==28){t=2.05;t1=2.76;} if(df==29){t=2.05;t1=2.76;} if(df==30){t=2.04;t1=2.75;} if(df==31){t=2.04;t1=2.74;} if(df==32){t=2.04;t1=2.74;} if(df==33){t=2.03;t1=2.73;} if(df==34){t=2.03;t1=2.73;} if(df==35){t=2.03;t1=2.72;} if(df==36){t=2.03;t1=2.72;} if(df==37){t=2.03;t1=2.72;} if(df==38){t=2.02;t1=2.71;} if(df==39){t=2.02;t1=2.71;} if(df==40){t=2.02;t1=2.7;} if(df==41){t=2.02;t1=2.7;} if(df==42){t=2.02;t1=2.7;} if(df==43){t=2.02;t1=2.7;} if(df==44){t=2.02;t1=2.69;} if(df==45){t=2.01;t1=2.69;} if(df==46){t=2.01;t1=2.69;} if(df==47){t=2.01;t1=2.68;} if(df==48){t=2.01;t1=2.68;} if(df==49){t=2.01;t1=2.68;} if(df==50){t=2.01;t1=2.68;} if(df==51){t=2.01;t1=2.68;} if(df==52){t=2.01;t1=2.67;} if(df==53){t=2.01;t1=2.67;} if(df==54){t=2;t1=2.67;} if(df==55){t=2;t1=2.67;} if(df==56){t=2;t1=2.67;} if(df==57){t=2;t1=2.66;} if(df==58){t=2;t1=2.66;} if(df==59){t=2;t1=2.66;} if(df==60){t=2;t1=2.66;} if(df==61){t=2;t1=2.66;} if(df==62){t=2;t1=2.66;} if(df==63){t=2;t1=2.66;} if(df==64){t=2;t1=2.65;} if(df==65){t=2;t1=2.65;} if(df==66){t=2;t1=2.65;} if(df==67){t=2;t1=2.65;} if(df==68){t=2;t1=2.65;} if(df==69){t=1.99;t1=2.65;} if(df==70){t=1.99;t1=2.65;} if(df==71){t=1.99;t1=2.65;} if(df==72){t=1.99;t1=2.65;} if(df==73){t=1.99;t1=2.64;} if(df==74){t=1.99;t1=2.64;} if(df==75){t=1.99;t1=2.64;} if(df==76){t=1.99;t1=2.64;} if(df==77){t=1.99;t1=2.64;} if(df==78){t=1.99;t1=2.64;} if(df==79){t=1.99;t1=2.64;} if(df==80){t=1.99;t1=2.64;} if(df==81){t=1.99;t1=2.64;} if(df==82){t=1.99;t1=2.64;} if(df==83){t=1.99;t1=2.64;} if(df==84){t=1.99;t1=2.64;} if(df>=85){t=1.99;t1=2.63;} }