var unx = 1*0; var xjz = " "; var zjk = ""; function rnd2(x){return Math.round(x*100)/100} function rnd4(x){return Math.round(x*10000)/10000} function unw() { if(analysis==2) { alert("Analisis de promedios no ponderados no es aplicable a muestras relacionadas.") }else{ document.setup.elements[4].value = "promedios no ponderados"; document.qxr.elements[0].value = "promedios no ponderados"; unx = 1*1; for(var i=0; i<13; i++) { document.f.elements[i].value = ""; } document.tuk.elements[0].value = "Este test solo se aplicara si K>2 y si el analisis de varianza entrega un F significativo."; } } function wt() { document.setup.elements[4].value = "analisis ponderado de promedios estándar"; document.qxr.elements[0].value = "analisis ponderado de promedios estándar"; unx = 1*0; for(var i=0; i<13; i++) { document.f.elements[i].value = ""; } document.tuk.elements[0].value = "Este test solo se aplicara si K>2 y si el analisis de varianza entrega un F significativo."; } function calc() { var x1=0, x2=0, x3=0, x4=0, x5=0; var sx1=0, sx2=0, sx3=0, sx4=0, sx5=0; var sum1=0, sum2=0, sum3=0, sum4=0, sum5=0, sumt=0; var sumsq1=0, sumsq2=0, sumsq3=0, sumsq4=0, sumsq5=0, sumsqt=0; var ss1=0, ss2=0, ss3=0, ss4=0, ss5=0, sst=0; var n1=0, n2=0, n3=0, n4=0, n5=0, nt=0; var m1=0, m2=0, m3=0, m4=0, m5=0, mt=0; var sswg=0, ssbg=0, sserr=0; var dfbg=0, dfwg=0, dft=0, dfss=0, dferr=0; var subj = new Array(); var sumsub=0, sssub=0; var mswg=0, msbg=0, msss=0, mserr=0, ff=0; zjk = ""; var nps = 1*0; var d12=1*0, d13=1*0, d14=1*0, d15=1*0, d23=1*0, d24=1*0, d25=1*0, d34=1*0, d35=1*0, d45=1*0; for(var i=0; i<30; i++) { document.show1.elements[i].value = ""; } for(var i=0; i<12; i++) { document.f.elements[i].value = ""; } document.f.elements[0].value = document.setup.elements[3].value; for(var i=0; i<30; i++) { document.show1.elements[i].value = ""; } if(document.setup.elements[3].value == "") { alert("Primer paso???"); } var vals1 = document.a1.elements[0].value; if(vals1.indexOf("\r")>-1){xjz="\r"}else{xjz="\n"} x1 = document.a1.elements[0].value; 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;} } x3 = document.a1.elements[2].value; sx3 = x3.split(xjz); for(var i=0; i0) {n3=n3+1;} } x4 = document.a1.elements[3].value; sx4 = x4.split(xjz); for(var i=0; i0) {n4=n4+1;} } x5 = document.a1.elements[4].value; sx5 = x5.split(xjz); for(var i=0; i0) {n5=n5+1;} } for(var i=0; i } if(k>2) { m3 = sum3/n3; ss3 = sumsq3-((sum3*sum3)/n3); sswg = sswg+ss3*1; nt = nt+n3*1; sumt = sumt+sum3*1; sumsqt = sumsqt+sumsq3*1; document.show1.elements[2].value = n3; document.show1.elements[8].value = rnd4(sum3); document.show1.elements[14].value = rnd4(m3); document.show1.elements[20].value = rnd4(sumsq3); document.show1.elements[26].value =rnd4(ss3/(n3-1)); document.show1.elements[32].value =rnd4(Math.sqrt(ss3/(n3-1))); document.show1.elements[38].value =rnd4(Math.sqrt((ss3/(n3-1))/n3)); if(analysis==2) { for(var i=0; i } } if(k>3) { m4 = sum4/n4; ss4 = sumsq4-((sum4*sum4)/n4); sswg = sswg+ss4*1; nt = nt+n4*1; sumt = sumt+sum4*1; sumsqt = sumsqt+sumsq4*1; document.show1.elements[3].value = n4; document.show1.elements[9].value = rnd4(sum4); document.show1.elements[15].value = rnd4(m4); document.show1.elements[21].value = rnd4(sumsq4); document.show1.elements[27].value =rnd4(ss4/(n4-1)); document.show1.elements[33].value =rnd4(Math.sqrt(ss4/(n4-1))); document.show1.elements[39].value =rnd4(Math.sqrt((ss4/(n4-1))/n4)); if(analysis==2) { for(var i=0; i } } if(k>4) { m5 = sum5/n5; ss5 = sumsq5-((sum5*sum5)/n5); sswg = sswg+ss5*1; nt = nt+n5*1; sumt = sumt+sum5*1; sumsqt = sumsqt+sumsq5*1; document.show1.elements[4].value = n5; document.show1.elements[10].value = rnd4(sum5); document.show1.elements[16].value = rnd4(m5); document.show1.elements[22].value = rnd4(sumsq5); document.show1.elements[28].value =rnd4(ss5/(n5-1)); document.show1.elements[34].value =rnd4(Math.sqrt(ss5/(n5-1))); document.show1.elements[40].value =rnd4(Math.sqrt((ss5/(n5-1))/n5)); if(analysis==2) { for(var i=0; i } } sst = sumsqt-((sumt*sumt)/nt); sst = Math.round(sst*10000)/10000; sswg = Math.round(sswg*10000)/10000; ssbg = Math.round((sst-sswg)*10000)/10000; dft = nt-1; dfbg = k-1; dfwg = nt-k; mt = Math.round((sumt/nt)*10000)/10000; document.show1.elements[5].value = nt; document.show1.elements[11].value = rnd4(sumt); document.show1.elements[17].value = rnd4(mt); document.show1.elements[23].value = rnd4(sumsqt); document.show1.elements[29].value =rnd4(sst/(nt-1)); document.show1.elements[35].value =rnd4(Math.sqrt(sst/(nt-1))); document.show1.elements[41].value =rnd4(Math.sqrt((sst/(nt-1))/nt)); mswg = Math.round((sswg/dfwg)*10000)/10000; mserr = mswg; if(n1>0){nps+=1/n1} if(n2>0){nps+=1/n2} if(n3>0&&k>2){nps+=1/n3} if(n4>0&&k>3){nps+=1/n4} if(n5>0&&k>4){nps+=1/n5} nps = k/nps; var mg = (m1+m2+m3+m4+m5)/k; var smg = 1*0; if(analysis==1*1&&unx==1*1) { if(k>0){smg+=(m1-mg)*(m1-mg)} if(k>1){smg+=(m2-mg)*(m2-mg)} if(k>2){smg+=(m3-mg)*(m3-mg)} if(k>3){smg+=(m4-mg)*(m4-mg)} if(k>4){smg+=(m5-mg)*(m5-mg)} smg = smg*nps; ssbg = smg*1; } msbg = Math.round((ssbg/dfbg)*10000)/10000; document.f.elements[1].value = rnd4(ssbg); document.f.elements[2].value = dfbg; document.f.elements[3].value = rnd4(msbg); document.f.elements[11].value = rnd4(sst); document.f.elements[12].value = dft; dferr = dfwg; sserr = sswg; var zzz = 0*1; if(analysis==2) { for(var i=0; i sssub = (sumsub/k)-((sumt*sumt)/nt); sssub = Math.round(sssub*10000)/10000; dfss = n1-1; dferr = dfwg-dfss; msss = Math.round((sssub/dfss)*10000)/10000; sserr = Math.round((sswg-sssub)*10000)/10000; mserr = Math.round((sserr/dferr)*10000)/10000; document.f.elements[9].value = rnd4(sssub); document.f.elements[10].value = dfss; document.f.elements[12].value = dft; if(n1!=n2){zzz++} if(k>=3&&n2!=n3){zzz++} if(k>=4&&n3!=n4){zzz++} if(k>=5&&n4!=n5){zzz++} } if(zzz>0){ alert("The correlated-samples design requires equal n's per sample."); } if(mserr>0) {ff=Math.round((msbg/mserr)*10000)/10000} else {ff=1*0} document.f.elements[6].value = rnd4(sserr); document.f.elements[7].value = dferr; document.f.elements[8].value = rnd4(mserr); document.f.elements[4].value = ff; if(document.setup.elements[3].value == "") { for(var i=0; i<30; i++) { document.show1.elements[i].value = ""; } } Fprob(); if(pj==1*1&&k>2) { var t = 1*1.6; var crit0 = 1*0; var t05 = 1*0; var t01 = 1*0; var q05 = 1*0; var q01 = 1*0; var hsd05 = 1*0; var hsd01 = 1*0; var df = dferr; var tukey = ""; for (var j=0; j<10000; j++) { t+=.005; crit0 = Tcall(buzz(eval(t),eval(df))); if(crit0<=.05){t05=t;break;} } for (var j=0; j<10000; j++) { t+=.005; crit0 = Tcall(buzz(eval(t),eval(df))); if(crit0<=.01){t01=t;break;} } hsd05 = Math.round(hsd05*100)/100; if(k==3) { q05 = 2.106973*t05-0.817944; q01 = 1.946821*t01-0.8996111; } if(k==4) { q05 = 2.59017*t05-1.443969; q01 = 2.303537*t01-1.534593; } if(k==5) { q05 = 2.972018*t05-1.96814; q01 = 2.587002*t01-2.064423; } hsd05 = q05*Math.sqrt(mserr/nps); hsd01 = q01*Math.sqrt(mserr/nps); hsd05 = Math.round(hsd05*100)/100; hsd01 = Math.round(hsd01*100)/100; tukey+="HSD[.05]="+hsd05+"; HSD[.01]="+hsd01+"\r"; d12 = Math.abs(m1-m2); d13 = Math.abs(m1-m3); d14 = Math.abs(m1-m4); d15 = Math.abs(m1-m5); d23 = Math.abs(m2-m3); d24 = Math.abs(m2-m4); d25 = Math.abs(m2-m5); d34 = Math.abs(m3-m4); d35 = Math.abs(m3-m5); d45 = Math.abs(m4-m5); var gap = ""; if(d12>=hsd05){gap="P<.05"}else{gap="no-significativo"} if(d12>=hsd01){gap="P<.01"} tukey+="M1 vs M2 "+gap+"\r"; if(d13>=hsd05){gap="P<.05"}else{gap="no-significativo"} if(d13>=hsd01){gap="P<.01"} tukey+="M1 vs M3 "+gap+"\r"; if(k>3) { if(d14>=hsd05){gap="P<.05"}else{gap="no-significativo"} if(d14>=hsd01){gap="P<.01"} tukey+="M1 vs M4 "+gap+"\r"; } if(k>4) { if(d15>=hsd05){gap="P<.05"}else{gap="no-significativo"} if(d15>=hsd01){gap="P<.01"} tukey+="M1 vs M5 "+gap+"\r"; } if(d23>=hsd05){gap="P<.05"}else{gap="no-significativo"} if(d23>=hsd01){gap="P<.01"} tukey+="M2 vs M3 "+gap+"\r"; if(k>3) { if(d24>=hsd05){gap="P<.05"}else{gap="no-significativo"} if(d24>=hsd01){gap="P<.01"} tukey+="M2 vs M4 "+gap+"\r"; } if(k>4) { if(d25>=hsd05){gap="P<.05"}else{gap="no-significativo"} if(d25>=hsd01){gap="P<.01"} tukey+="M2 vs M5 "+gap+"\r"; } if(k>3) { if(d34>=hsd05){gap="P<.05"}else{gap="no-significativo"} if(d34>=hsd01){gap="P<.01"} tukey+="M3 vs M4 "+gap+"\r"; } if(k>4) { if(d35>=hsd05){gap="P<.05"}else{gap="no-significativo"} if(d35>=hsd01){gap="P<.01"} tukey+="M3 vs M5 "+gap+"\r"; if(d45>=hsd05){gap="P<.05"}else{gap="no-significativo"} if(d45>=hsd01){gap="P<.01"} tukey+="M4 vs M5 "+gap+"\r"; } document.tuk.elements[0].value = tukey; } }