var xjz = " "; function calc() { var x1=0, x2=0; var sx1=0, sx2=0; var sum1=0, sum2=0, sumt=0; var sumsq1=0, sumsq2=0, sumsqt=0; var ss1=0, ss2=0, sst=0, ssbg=0; var n1=0, n2=0, nt=0; var m1=0, m2=0, mt=0; var df=0, r=0; var num=0, denom=0; for(var i=0; i<15; i++) { document.show1.elements[i].value = ""; } x1 = document.a1.elements[0].value; if(x1.indexOf("\r")>-1){xjz="\r"}else{xjz="\n"} sx1 = x1.split(xjz); for(var i=0; i0) {n1=n1+1;} } x2 = document.a1.elements[1].value; sx2 = x2.split(xjz); for(var i=0; i0) {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.show1.elements[13].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; df = n1+n2-2; document.df.elements[0].value = df; ssbg = sst-ss1-ss2; r = Math.sqrt(ssbg/sst); if(m1>m2){r=r*(-1)} document.diff.elements[0].value = Math.round(r*100)/100; if(m2>m1){ document.diff.elements[0].value ="+"+document.diff.elements[0].value; } r = eval(r); num = r*Math.sqrt(df); denom = Math.sqrt(1-(r*r)); var t = num/denom; t = Math.round(t*100)/100; document.t.elements[0].value = t; 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 = document.pa.elements[0].value/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"; } } function unwipe() { 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 jz1 = document.a1.elements[0].value.split("\r"); for(var i=0; i";} var jx2 = ""; var jz2 = document.a1.elements[1].value.split("\r"); for(var i=0; i";} var date = new Date(); var aa = 'VassarStats Printable Report
Point Biserial Correlation Coefficient
'+date+'

---

'; document.open(); document.write(''); document.write(''+aa); document.write('Y Values Entered

For X=0	For X=1
'+jx1+'	'+jx2+'

'); document.write('

---

Summary Data

	X=0	X=1	Total
n	'+n1+'	'+n2+'	'+nt+'
-Y	'+sum1+'	'+sum2+'	'+sumt+'
-Y2	'+sumsq1+'	'+sumsq2+'	'+sumsqt+'
SSY	'+ss1+'	'+ss2+'	'+sst+'
meanY	'+m1+'	'+m2+'	'+mt+'

---

'); document.write('

rpb	t	df
'+diff+'	'+t+'	'+df+'

P	one-tailed	'+p1+'
	two-tailed	'+p2+'

---

Home	Click this link only if you did not arrive here via the VassarStats main page.

') document.close(); }