En el primer código, tomaré una población con 20 conglomerados y estudiaré estimaciones del total verdadero comparando si la media es única bajo parámetros de media similar. Al realizar el muestreo se toman 600 unidades elementales y los totales estimados son similares al total verdadero y sus varianzas bietápicas poco difieren.
N1=500
a1=200
b=a1/100
x1=rgamma(N1,a1,b)
N2=1500
a2=100
b=a2/100
x2=rgamma(N2,a2,b)
N3=2500
a3=50
b=a3/100
x3=rgamma(N3,a3,b)
N4=3500
a4=40
b=a4/100
x4=rgamma(N4,a4,b)
N5=5500
a5=30
b=a5/100
x5=rgamma(N5,a5,b)
N6=4500
a6=20
b=a6/100
x6=rgamma(N6,a6,b)
N7=6500
a7=10
b=a7/100
x7=rgamma(N7,a7,b)
N8=7500
a8=8
b=a8/100
x8=rgamma(N8,a8,b)
N9=8500
a9=6
b=a9/100
x9=rgamma(N9,a9,b)
N10=9500
a10=4
b=a10/100
x10=rgamma(N10,a10,b)
N11=10500
a11=2
b=a11/100
x11=rgamma(N11,a11,b)
N12=11500
a12=1
b=a12/100
x12=rgamma(N12,a12,b)
N13=12500
a13=0.6
b=a13/100
x13=rgamma(N13,a13,b)
N14=13500
a14=0.4
b=a14/100
x14=rgamma(N14,a14,b)
N15=14500
a15=0.3
b=a15/100
x15=rgamma(N15,a15,b)
N16=15500
a16=0.2
b=a16/100
x16=rgamma(N16,a16,b)
N17=16500
a17=0.1
b=a17/100
x17=rgamma(N17,a17,b)
N18=17500
a18=0.06
b=a18/100
x18=rgamma(N18,a18,b)
N19=18500
a19=0.02
b=a19/100
x19=rgamma(N19,a19,b)
N20=19500
a20=0.01
b=a20/100
x20=rgamma(N20,a20,b)
cc=c(x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14,x15,x16,x17,x18,x19,x20)
T=sum(cc)
M=N1+N2+N3+N4+N5+N6+N7+N8+N9+N10+N11+N12+N13+N14+N15+N16+N17+N18+N19+N20
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx1=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx2=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx3=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx4=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx5=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx6=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx7=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx8=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx9=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx10=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx11=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx12=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx13=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx14=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx15=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx16=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx17=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx18=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx19=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx20=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx21=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx22=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx23=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx24=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx25=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
cxx1=cbind(cx1,cx2,cx3,cx4,cx5,cx6,cx7,cx8,cx9,cx10,cx11,cx12,cx13,cx14,cx15,cx16,cx17,cx18,cx19,cx20,cx21,cx22,cx23,cx24,cx25)
cbind(cxx1,apply(cxx1,1,mean),apply(cxx1,1, var))## [,1] [,2] [,3] [,4] [,5] [,6]
## n1 3 4 5 6 10 12
## m1 200 150 120 100 60 50
## t1 20099330 19962242 20098155 20180307 19848365 20249286
## v1 13164206755 22157389515 13879010254 23811078065 66592252384 192021263855
## v1x 7037347725 11331412939 12747421063 15219448532 53537867810 144987832677
## 1 1 1 1 1 1
## 1 1 1 1 1 1
## [,7] [,8] [,9] [,10] [,11] [,12]
## n1 15 2.000000e+01 3 4 5 6
## m1 40 3.000000e+01 200 150 120 100
## t1 20014548 2.130274e+07 19908130 20010880 20239869 19941421
## v1 360899242402 1.037843e+13 15724715123 10370207777 27026655205 20194048229
## v1x 310760400572 1.037843e+13 7510521529 8750910374 12928552057 15077941858
## 1 1.000000e+00 1 1 1 1
## 1 1.000000e+00 1 1 1 1
## [,13] [,14] [,15] [,16] [,17] [,18]
## n1 10 12 15 2.000000e+01 3 4
## m1 60 50 40 3.000000e+01 200 150
## t1 20141718 19792721 21167675 2.125386e+07 20039014 19962435
## v1 85661996750 142216082034 801044145007 7.052620e+12 7926626354 11932349209
## v1x 47804193764 120099510268 710317603997 7.052620e+12 7277141592 10278085174
## 1 1 1 1.000000e+00 1 1
## 1 1 1 1.000000e+00 1 1
## [,19] [,20] [,21] [,22] [,23] [,24]
## n1 5 6 10 12 15 2.000000e+01
## m1 120 100 60 50 40 3.000000e+01
## t1 19888823 20167640 19808718 19685023 20071496 1.777912e+07
## v1 15316778571 24649247355 61531856582 115046687539 649689753430 1.737278e+12
## v1x 11643401016 14758970805 41726571169 88179224185 434087375076 1.737278e+12
## 1 1 1 1 1 1.000000e+00
## 1 1 1 1 1 1.000000e+00
## [,25] [,26] [,27] [,28] [,29] [,30]
## n1 3 4 5 6 10 12
## m1 200 150 120 100 60 50
## t1 20171722 20116006 19961857 20062772 19932172 20115499
## v1 18840837889 16865414723 16303053506 41156740994 91847712445 188856836363
## v1x 6608693747 9313682668 11315197827 16365113468 57455830406 137416903162
## 1 1 1 1 1 1
## 1 1 1 1 1 1
## [,31] [,32] [,33] [,34] [,35] [,36]
## n1 15 20 3 4 5 6
## m1 40 30 200 150 120 100
## t1 19130927 16756924 20022344 20019340 20012294 19824457
## v1 410938790478 473660173500 11305914268 17490552871 17815757747 16473176524
## v1x 316244290596 473660173500 7487001774 10647905488 11717459714 14317652569
## 1 0 1 1 1 1
## 1 0 1 1 1 1
## [,37] [,38] [,39] [,40] [,41] [,42]
## n1 10 12 15 2.000000e+01 3 4
## m1 60 50 40 3.000000e+01 200 150
## t1 19932116 19309443 19752027 1.868153e+07 20079035 20129225
## v1 70581831523 187107119615 313217321528 1.698090e+12 14556976119 24084226815
## v1x 53731776292 136443985247 278961875072 1.698090e+12 7143050577 10539438813
## 1 1 1 1.000000e+00 1 1
## 1 1 1 1.000000e+00 1 1
## [,43] [,44] [,45] [,46] [,47] [,48]
## n1 5 6 10 12 15 2.000000e+01
## m1 120 100 60 50 40 3.000000e+01
## t1 20119179 19828604 20132833 19853719 19312506 2.066870e+07
## v1 18283662685 18752660629 65971211724 137412569098 313270386899 4.058523e+12
## v1x 12127827882 14923732349 57484395355 113471755537 266930568683 4.058523e+12
## 1 1 1 1 1 1.000000e+00
## 1 1 1 1 1 1.000000e+00
## [,49] [,50] [,51] [,52] [,53] [,54]
## n1 3 4 5 6 10 12
## m1 200 150 120 100 60 50
## t1 20083101 20025801 20001491 20192286 20075602 20423491
## v1 8272140085 10304752384 15835427698 23268460639 65224476282 182285620183
## v1x 7399504946 10071901323 11892824089 15228489618 52499833914 109948548633
## 1 1 1 1 1 1
## 1 1 1 1 1 1
## [,55] [,56] [,57] [,58] [,59] [,60]
## n1 15 2.000000e+01 3 4 5 6
## m1 40 3.000000e+01 200 150 120 100
## t1 20366346 2.232071e+07 20054702 20003693 20022195 20102613
## v1 799793325710 6.246872e+12 21598257381 15940371007 12364539415 24529094849
## v1x 645298744618 6.246872e+12 7390279077 11211058237 11683956468 16789851754
## 1 1.000000e+00 1 1 1 1
## 1 1.000000e+00 1 1 1 1
## [,61] [,62] [,63] [,64] [,65] [,66]
## n1 10 12 15 2.000000e+01 3 4
## m1 60 50 40 3.000000e+01 200 150
## t1 20163555 20444053 18954090 2.133507e+07 20065400 19944688
## v1 93147183662 157135661402 488281261984 1.067974e+13 11283235132 16041815366
## v1x 50702814024 140999065868 260533118808 1.067974e+13 7764060745 10632357276
## 1 1 1 1.000000e+00 1 1
## 1 1 1 1.000000e+00 1 1
## [,67] [,68] [,69] [,70] [,71] [,72]
## n1 5 6 10 12 15 2.000000e+01
## m1 120 100 60 50 40 3.000000e+01
## t1 19892297 20099270 19773641 20256132 19183717 1.996142e+07
## v1 16232710276 57713449609 83855192996 125539237322 478930473390 6.335694e+12
## v1x 12174671623 15735606121 46857869710 118438437049 303929210770 6.335694e+12
## 1 1 1 1 1 1.000000e+00
## 1 1 1 1 1 1.000000e+00
## [,73] [,74] [,75] [,76] [,77] [,78]
## n1 3 4 5 6 10 12
## m1 200 150 120 100 60 50
## t1 20111820 20065915 20157849 19851765 20261861 19680600
## v1 11266841879 20476301199 25086453526 31466072263 61545761064 144211076907
## v1x 7451391160 9526775672 12457065547 15212084217 55709753642 106981588332
## 1 1 1 1 1 1
## 1 1 1 1 1 1
## [,79] [,80] [,81] [,82] [,83] [,84]
## n1 15 20 3 4 5 6
## m1 40 30 200 150 120 100
## t1 19017246 17529963 20047021 20175675 20160728 20035832
## v1 549379790734 755229341936 17267590324 43475676109 21258489391 29768139554
## v1x 500056680830 755229341936 7083313343 11466785661 11742072346 15021505985
## 1 0 1 1 1 1
## 1 0 1 1 1 1
## [,85] [,86] [,87] [,88] [,89] [,90]
## n1 10 12 15 2.000000e+01 3 4
## m1 60 50 40 3.000000e+01 200 150
## t1 19916978 20560757 20207322 1.870069e+07 20093752 19956822
## v1 60074864585 202623302614 623110140356 3.142418e+12 11130005714 17264407949
## v1x 44256449545 155872931213 529654871116 3.142418e+12 7273155814 10330691985
## 1 1 1 1.000000e+00 1 1
## 1 1 1 1.000000e+00 1 1
## [,91] [,92] [,93] [,94] [,95] [,96]
## n1 5 6 10 12 15 2.000000e+01
## m1 120 100 60 50 40 3.000000e+01
## t1 20072995 20268564 19944714 20214886 20035361 1.817181e+07
## v1 28059938694 22645310592 88523818066 192657485753 401970234025 1.435692e+12
## v1x 12105884379 16069673389 53518919378 143361905379 332257610543 1.435692e+12
## 1 1 1 1 1 1.000000e+00
## 1 1 1 1 1 1.000000e+00
## [,97] [,98] [,99] [,100] [,101] [,102]
## n1 3 4 5 6 10 12
## m1 200 150 120 100 60 50
## t1 20014962 20020593 19854451 20099455 19870869 20213252
## v1 9866696866 23852878576 22884031069 25384103828 67091200139 199940670186
## v1x 7710426115 10735914423 12640754108 15876278312 47344061782 128909135205
## 1 1 1 1 1 1
## 1 1 1 1 1 1
## [,103] [,104] [,105] [,106] [,107] [,108]
## n1 15 2.000000e+01 3 4 5 6
## m1 40 3.000000e+01 200 150 120 100
## t1 19340967 2.556308e+07 20108615 20014096 19857708 19896832
## v1 432089338829 1.122613e+13 13377314918 10688608320 18587460539 15279968190
## v1x 365271619986 1.122613e+13 7330961287 10485474408 12952271031 12762191317
## 1 1.000000e+00 1 1 1 1
## 1 1.000000e+00 1 1 1 1
## [,109] [,110] [,111] [,112] [,113] [,114]
## n1 10 12 15 20 3 4
## m1 60 50 40 30 200 150
## t1 20063278 20341426 19578910 16983123 19938412 20081804
## v1 147731174329 153945768588 341574177248 878107370180 8996224037 30724724972
## v1x 56126575359 126421866173 319602362266 878107370180 7799038090 10044469417
## 1 1 1 0 1 1
## 1 1 1 0 1 1
## [,115] [,116] [,117] [,118] [,119] [,120]
## n1 5 6 10 12 15 20
## m1 120 100 60 50 40 30
## t1 19956125 19959393 20268507 19837363 19431351 17265437
## v1 17583463841 27674713885 62337021630 136321398250 380503634839 636769074441
## v1x 12375367546 14176554451 54473384553 108823413828 353493427262 636769074441
## 1 1 1 1 1 0
## 1 1 1 1 1 0
## [,121] [,122] [,123] [,124] [,125] [,126]
## n1 3 4 5 6 10 12
## m1 200 150 120 100 60 50
## t1 20026961 20055248 20264471 20001355 19964584 19539535
## v1 14653861662 13382028881 45794442347 46241141320 64543926023 127252481450
## v1x 7352064558 10145311596 11870170400 17434887746 43048019262 102168982624
## 1 1 1 1 1 1
## 1 1 1 1 1 1
## [,127] [,128] [,129] [,130] [,131] [,132]
## n1 15 20 3 4 5 6
## m1 40 30 200 150 120 100
## t1 19879199 18116524 20099241 20088701 20002528 20008405
## v1 574272544163 977236839041 22266751603 17647506129 18855867623 28896810018
## v1x 484579971346 977236839041 7632698324 9054677918 11685866093 15093323685
## 1 1 1 1 1 1
## 1 1 1 1 1 1
## [,133] [,134] [,135] [,136] [,137] [,138]
## n1 10 12 15 20 3 4
## m1 60 50 40 30 200 150
## t1 20154543 20065593 19182613 17049469 20011928 19887929
## v1 96650841490 163459185734 455437853791 778422599456 8921644152 12104007945
## v1x 54651601777 141275787804 284600573382 778422599456 7265814384 9967638274
## 1 1 1 0 1 1
## 1 1 1 0 1 1
## [,139] [,140] [,141] [,142] [,143] [,144]
## n1 5 6 10 12 15 2.000000e+01
## m1 120 100 60 50 40 3.000000e+01
## t1 20027091 20136066 20215087 19883704 19734184 1.887198e+07
## v1 28554993568 27458293627 100085783601 129539968376 383716169795 1.769808e+12
## v1x 13304254024 14873765366 58289299462 118959214926 281348233973 1.769808e+12
## 1 1 1 1 1 1.000000e+00
## 1 1 1 1 1 1.000000e+00
## [,145] [,146] [,147] [,148] [,149] [,150]
## n1 3 4 5 6 10 12
## m1 200 150 120 100 60 50
## t1 19954691 19967982 19894391 20197981 20117791 19898044
## v1 8592267666 13126156952 18213487215 33965447719 76175580792 123235085923
## v1x 7290962810 9835855557 11465532010 16050242976 50562895494 110532849915
## 1 1 1 1 1 1
## 1 1 1 1 1 1
## [,151] [,152] [,153] [,154] [,155] [,156]
## n1 15 2.000000e+01 3 4 5 6
## m1 40 3.000000e+01 200 150 120 100
## t1 19236051 1.971045e+07 19995749 20007378 19927560 20050484
## v1 638853616946 1.262965e+12 10465452369 10344020142 17622507643 20229759927
## v1x 564382781918 1.262965e+12 6895376903 9806370763 13033293668 16299435941
## 1 1.000000e+00 1 1 1 1
## 1 1.000000e+00 1 1 1 1
## [,157] [,158] [,159] [,160] [,161] [,162]
## n1 10 12 15 2.000000e+01 3 4
## m1 60 50 40 3.000000e+01 200 150
## t1 19835259 19933073 19738476 1.777925e+07 20082986 19861602
## v1 112388564540 191739322194 455198711842 1.190084e+12 7925335479 10628334386
## v1x 50430627935 136122594879 314653188868 1.190084e+12 7862073185 10379866655
## 1 1 1 1.000000e+00 1 1
## 1 1 1 1.000000e+00 1 1
## [,163] [,164] [,165] [,166] [,167] [,168]
## n1 5 6 10 12 15 2.000000e+01
## m1 120 100 60 50 40 3.000000e+01
## t1 20022404 19884772 19858557 20104675 18839766 1.829687e+07
## v1 44908118316 21043486642 71142297405 141862089604 392028908865 1.727757e+12
## v1x 11098959078 14579754003 49437465551 117310276661 235327124135 1.727757e+12
## 1 1 1 1 1 1.000000e+00
## 1 1 1 1 0 1.000000e+00
## [,169] [,170] [,171] [,172] [,173] [,174]
## n1 3 4 5 6 10 12
## m1 200 150 120 100 60 50
## t1 20077873 20121352 20041127 19838131 20007485 19725381
## v1 27840593025 13221617675 24942642130 22205847049 67538836149 191332455863
## v1x 7417044904 9903231510 12548879750 15400654766 53268738525 118987327997
## 1 1 1 1 1 1
## 1 1 1 1 1 1
## [,175] [,176] [,177] [,178] [,179] [,180]
## n1 15 20 3 4 5 6
## m1 40 30 200 150 120 100
## t1 19784626 15562514 20024968 20080916 19983634 20109209
## v1 449597120174 270653015750 13050352418 18592943677 17476582637 32663154983
## v1x 330793437167 270653015750 7773924369 10220275341 11628639797 16900338736
## 1 0 1 1 1 1
## 1 0 1 1 1 1
## [,181] [,182] [,183] [,184] [,185] [,186]
## n1 10 12 15 2.000000e+01 3 4
## m1 60 50 40 3.000000e+01 200 150
## t1 19738207 19600640 19740267 2.101772e+07 20069971 19869525
## v1 65222113852 116416656728 668210549658 6.652136e+12 9852879326 14957337809
## v1x 49703809585 103823774133 537330151940 6.652136e+12 7804823520 9037744342
## 1 1 1 1.000000e+00 1 1
## 1 1 1 1.000000e+00 1 1
## [,187] [,188] [,189] [,190] [,191] [,192]
## n1 5 6 10 12 15 2.000000e+01
## m1 120 100 60 50 40 3.000000e+01
## t1 20112172 20081749 19967764 20245454 20517719 1.921543e+07
## v1 22632234952 20411328545 72140537622 269534808807 523035079163 2.322303e+12
## v1x 13085753376 15324264090 47569877267 161657169851 360468710306 2.322303e+12
## 1 1 1 1 1 1.000000e+00
## 1 1 1 1 1 1.000000e+00
## [,193] [,194] [,195] [,196] [,197] [,198]
## n1 3 4 5 6 10 12
## m1 200 150 120 100 60 50
## t1 20091669 19980516 20014953 20010920 19862896 19550584
## v1 16964878028 13629667526 14908663598 25247376757 83610223610 161377293082
## v1x 8060568331 10120981852 12294901050 15254177358 46365945993 94647750587
## 1 1 1 1 1 1
## 1 1 1 1 1 1
## [,199] [,200] [,201] [,202]
## n1 15 2.000000e+01 9.375000e+00 3.164259e+01
## m1 40 3.000000e+01 9.375000e+01 3.164259e+03
## t1 19397563 2.070494e+07 1.987348e+07 7.085196e+11
## v1 512947386976 1.000591e+13 5.706539e+11 3.094927e+24
## v1x 444443703738 1.000591e+13 5.447449e+11 3.109718e+24
## 1 1.000000e+00 9.700000e-01 2.924623e-02
## 1 1.000000e+00 9.650000e-01 3.394472e-0210000/c(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20)## [1] 50.0000 100.0000 200.0000 250.0000 333.3333
## [6] 500.0000 1000.0000 1250.0000 1666.6667 2500.0000
## [11] 5000.0000 10000.0000 16666.6667 25000.0000 33333.3333
## [16] 50000.0000 100000.0000 166666.6667 500000.0000 1000000.0000N1=500
a1=0.01
b=a1/100
x1=rgamma(N1,a1,b)
N2=1500
a2=0.02
b=a2/100
x2=rgamma(N2,a2,b)
N3=2500
a3=0.03
b=a3/100
x3=rgamma(N3,a3,b)
N4=3500
a4=0.04
b=a4/100
x4=rgamma(N4,a4,b)
N5=5500
a5=0.05
b=a5/100
x5=rgamma(N5,a5,b)
N6=4500
a6=0.1
b=a6/100
x6=rgamma(N6,a6,b)
N7=6500
a7=0.2
b=a7/100
x7=rgamma(N7,a7,b)
N8=7500
a8=0.3
b=a8/100
x8=rgamma(N8,a8,b)
N9=8500
a9=0.4
b=a9/100
x9=rgamma(N9,a9,b)
N10=9500
a10=0.5
b=a10/100
x10=rgamma(N10,a10,b)
N11=10500
a11=0.6
b=a11/100
x11=rgamma(N11,a11,b)
N12=11500
a12=0.7
b=a12/100
x12=rgamma(N12,a12,b)
N13=12500
a13=0.8
b=a13/100
x13=rgamma(N13,a13,b)
N14=13500
a14=0.9
b=a14/100
x14=rgamma(N14,a14,b)
N15=14500
a15=1
b=a15/100
x15=rgamma(N15,a15,b)
N16=15500
a16=1.2
b=a16/100
x16=rgamma(N16,a16,b)
N17=16500
a17=1.4
b=a17/100
x17=rgamma(N17,a17,b)
N18=17500
a18=1.6
b=a18/100
x18=rgamma(N18,a18,b)
N19=18500
a19=1.8
b=a19/100
x19=rgamma(N19,a19,b)
N20=19500
a20=2
b=a20/100
x20=rgamma(N20,a20,b)
cc=c(x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14,x15,x16,x17,x18,x19,x20)
T=sum(cc)
M=N1+N2+N3+N4+N5+N6+N7+N8+N9+N10+N11+N12+N13+N14+N15+N16+N17+N18+N19+N20
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx1=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx2=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx3=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx4=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx5=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx6=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx7=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx8=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx9=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx10=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx11=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx12=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx13=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx14=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx15=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx16=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx17=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx18=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx19=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx20=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx21=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx22=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx23=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx24=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
y11=sample(x1, 200, replace = FALSE)
y21=sample(x2, 200, replace = FALSE)
y31=sample(x3, 200, replace = FALSE)
c1=c(y11,y21,y31)
y12=sample(x1, 150, replace = FALSE)
y22=sample(x2, 150, replace = FALSE)
y32=sample(x3, 150, replace = FALSE)
y42=sample(x4, 150, replace = FALSE)
c2=c(y12,y22,y32,y42)
y13=sample(x1, 120, replace = FALSE)
y23=sample(x2, 120, replace = FALSE)
y33=sample(x3, 120, replace = FALSE)
y43=sample(x4, 120, replace = FALSE)
y53=sample(x5, 120, replace = FALSE)
c3=c(y13,y23,y33,y43,y53)
y14=sample(x1, 100, replace = FALSE)
y24=sample(x2, 100, replace = FALSE)
y34=sample(x3, 100, replace = FALSE)
y44=sample(x4, 100, replace = FALSE)
y54=sample(x5, 100, replace = FALSE)
y64=sample(x6, 100, replace = FALSE)
c4=c(y14,y24,y34,y44,y54,y64)
y15=sample(x1, 60, replace = FALSE)
y25=sample(x2, 60, replace = FALSE)
y35=sample(x3, 60, replace = FALSE)
y45=sample(x4, 60, replace = FALSE)
y55=sample(x5, 60, replace = FALSE)
y65=sample(x6, 60, replace = FALSE)
y75=sample(x7, 60, replace = FALSE)
y85=sample(x8, 60, replace = FALSE)
y95=sample(x9, 60, replace = FALSE)
y105=sample(x10, 60, replace = FALSE)
c5=c(y15,y25,y35,y45,y55,y65,y75,y85,y95,y105)
y16=sample(x1, 50, replace = FALSE)
y26=sample(x2, 50, replace = FALSE)
y36=sample(x3, 50, replace = FALSE)
y46=sample(x4, 50, replace = FALSE)
y56=sample(x5, 50, replace = FALSE)
y66=sample(x6, 50, replace = FALSE)
y76=sample(x7, 50, replace = FALSE)
y86=sample(x8, 50, replace = FALSE)
y96=sample(x9, 50, replace = FALSE)
y106=sample(x10, 50, replace = FALSE)
y116=sample(x11, 50, replace = FALSE)
y126=sample(x12, 50, replace = FALSE)
c6=c(y16,y26,y36,y46,y56,y66,y76,y86,y96,y106,y116,y126)
y17=sample(x1, 40, replace = FALSE)
y27=sample(x2, 40, replace = FALSE)
y37=sample(x3, 40, replace = FALSE)
y47=sample(x4, 40, replace = FALSE)
y57=sample(x5, 40, replace = FALSE)
y67=sample(x6, 40, replace = FALSE)
y77=sample(x7, 40, replace = FALSE)
y87=sample(x8, 40, replace = FALSE)
y97=sample(x9, 40, replace = FALSE)
y107=sample(x10, 40, replace = FALSE)
y117=sample(x11, 40, replace = FALSE)
y127=sample(x12, 40, replace = FALSE)
y137=sample(x13, 40, replace = FALSE)
y147=sample(x14, 40, replace = FALSE)
y157=sample(x15, 40, replace = FALSE)
c7=c(y17,y27,y37,y47,y57,y67,y77,y87,y97,y107,y117,y127,y137,y147,y157)
y18=sample(x1, 30, replace = FALSE)
y28=sample(x2, 30, replace = FALSE)
y38=sample(x3, 30, replace = FALSE)
y48=sample(x4, 30, replace = FALSE)
y58=sample(x5, 30, replace = FALSE)
y68=sample(x6, 30, replace = FALSE)
y78=sample(x7, 30, replace = FALSE)
y88=sample(x8, 30, replace = FALSE)
y98=sample(x9, 30, replace = FALSE)
y108=sample(x10, 30, replace = FALSE)
y118=sample(x11, 30, replace = FALSE)
y128=sample(x12, 30, replace = FALSE)
y138=sample(x13, 30, replace = FALSE)
y148=sample(x14, 30, replace = FALSE)
y158=sample(x15, 30, replace = FALSE)
y168=sample(x16, 30, replace = FALSE)
y178=sample(x17, 30, replace = FALSE)
y188=sample(x18, 30, replace = FALSE)
y198=sample(x19, 30, replace = FALSE)
y208=sample(x20, 30, replace = FALSE)
c8=c(y18,y28,y38,y48,y58,y68,y78,y88,y98,y108,y118,y128,y138,y148,y158,y168,y178,y188,y198,y208)
t1=M*mean(c1); v1=M^2*(1-3/20)*var(c(mean(y11),mean(y21),mean(y31)))/3+M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200; v1x=M^2/3^2*sum(c(var(y11),var(y21),var(y31)))/200;l11=t1-2.38*sqrt(v1);l21=t1+2.38*sqrt(v1);l11x=t1-2.38*sqrt(v1x);l21x=t1+2.38*sqrt(v1x);
t2=M*mean(c2); v2=M^2*(1-4/20)*var(c(mean(y12),mean(y22),mean(y32),mean(y42)))/4+M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;v2x=M^2/4^2*sum(c(var(y12),var(y22),var(y32),var(y42)))/150;l12=t2-2.38*sqrt(v2);l22=t2+2.38*sqrt(v2);l12x=t2-2.38*sqrt(v2x);l22x=t2+2.38*sqrt(v2x);
t3=M*mean(c3); v3=M^2*(1-5/20)*var(c(mean(y13),mean(y23),mean(y33),mean(y43),mean(y53)))/5+M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120;v3x=M^2/5^2*sum(c(var(y13),var(y23),var(y33),var(y43),var(y53)))/120; l13=t3-2.38*sqrt(v3);l23=t3+2.38*sqrt(v3);l13x=t3-2.38*sqrt(v3x);l23x=t3+2.38*sqrt(v3x);
t4=M*mean(c4); v4=M^2*(1-6/20)*var(c(mean(y14),mean(y24),mean(y34),mean(y44),mean(y54),mean(y64)))/6+M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100; v4x=M^2/6^2*sum(c(var(y14),var(y24),var(y34),var(y44),var(y54),var(y64)))/100;l14=t4-2.38*sqrt(v4);l24=t4+2.38*sqrt(v4);l14x=t4-2.38*sqrt(v4x);l24x=t4+2.38*sqrt(v4x);
t5=M*mean(c5); v5=M^2*(1-10/20)*var(c(mean(y15),mean(y25),mean(y35),mean(y45),mean(y55),mean(y65),mean(y75),mean(y85),mean(y95),mean(y105)))/10+M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;v5x=M^2/10^2*sum(c(var(y15),var(y25),var(y35),var(y45),var(y55),var(y65),var(y75),var(y85),var(y95),var(y105)))/60;l15=t5-2.38*sqrt(v5);l25=t5+2.38*sqrt(v5);l15x=t5-2.38*sqrt(v5x);l25x=t5+2.38*sqrt(v5x);
t6=M*mean(c6); v6=M^2*(1-12/20)*var(c(mean(y16),mean(y26),mean(y36),mean(y46),mean(y56),mean(y66),mean(y76),mean(y86),mean(y96),mean(y106),mean(y116),mean(y126)))/12+M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50;v6x=M^2/12^2*sum(c(var(y16),var(y26),var(y36),var(y46),var(y56),var(y66),var(y76),var(y86),var(y96),var(y106),var(y116),var(y126)))/50; l16=t6-2.38*sqrt(v6);l26=t6+2.38*sqrt(v6);l16x=t6-2.38*sqrt(v6x);l26x=t6+2.38*sqrt(v6x);
t7=M*mean(c7); v7=M^2*(1-15/20)*var(c(mean(y17),mean(y27),mean(y37),mean(y47),mean(y57),mean(y67),mean(y77),mean(y87),mean(y97),mean(y107),mean(y117),mean(y127),mean(y137),mean(y147),mean(y157)))/15+M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;v7x=M^2/15^2*sum(c(var(y17),var(y27),var(y37),var(y47),var(y57),var(y67),var(y77),var(y87),var(y97),var(y107),var(y117),var(y127),var(y137),var(y147),var(y157)))/40;l17=t7-2.38*sqrt(v7);l27=t7+2.38*sqrt(v7);l17x=t7-2.38*sqrt(v7x);l27x=t7+2.38*sqrt(v7x);
t8=M*mean(c8); v8=M^2*(1-20/20)*var(c(mean(y18),mean(y28),mean(y38),mean(y48),mean(y58),mean(y68),mean(y78),mean(y88),mean(y98),mean(y108),mean(y118),mean(y128),mean(y138),mean(y148),mean(y158)))/15+M^2/20^2*sum(c(var(y18),var(y28),var(y38),var(y48),var(y58),var(y68),var(y78),var(y88),var(y98),var(y108),var(y118),var(y128),var(y138),var(y148),var(y158),var(y168),var(y178),var(y188),var(y198),var(y208)))/30; l18=t8-2.38*sqrt(v8);l28=t8+2.38*sqrt(v8);l18x=t8-2.38*sqrt(v8);l28x=t8+2.38*sqrt(v8);
cx25=cbind(rbind(n1=3, m1=200,t1,v1,v1x,(-abs((l11-T)*(l21-T))/((l11-T)*(l21-T))+1)/2,(-abs((l11x-T)*(l21x-T))/((l11x-T)*(l21x-T))+1)/2),rbind(n2=4,m2=150,t2,v2,v2x,(-abs((l12-T)*(l22-T))/((l12-T)*(l22-T))+1)/2,(-abs((l12x-T)*(l22x-T))/((l12x-T)*(l22x-T))+1)/2),rbind(n3=5,m3=120,t3,v3,v3x,(-abs((l13-T)*(l23-T))/((l13-T)*(l23-T))+1)/2,(-abs((l13x-T)*(l23x-T))/((l13x-T)*(l23x-T))+1)/2),rbind(n4=6,m4=100,t4,v4,v4x,(-abs((l14-T)*(l24-T))/((l14-T)*(l24-T))+1)/2,(-abs((l14x-T)*(l24x-T))/((l14x-T)*(l24x-T))+1)/2),rbind(n5=10,m6=60,t5,v5,v5x,(-abs((l15-T)*(l25-T))/((l15-T)*(l25-T))+1)/2,(-abs((l15x-T)*(l25x-T))/((l15x-T)*(l25x-T))+1)/2),rbind(n6=12,m6=50,t6,v6,v6x,(-abs((l16-T)*(l26-T))/((l16-T)*(l26-T))+1)/2,(-abs((l16x-T)*(l26x-T))/((l16x-T)*(l26x-T))+1)/2),rbind(n7=15,m7=40,t7,v7,v7x,(-abs((l17-T)*(l27-T))/((l17-T)*(l27-T))+1)/2,(-abs((l17x-T)*(l27x-T))/((l17x-T)*(l27x-T))+1)/2),rbind(n8=20,m8=30,t8,v8,v8,(-abs((l18-T)*(l28-T))/((l18-T)*(l28-T))+1)/2,(-abs((l18x-T)*(l28x-T))/((l18x-T)*(l28x-T))+1)/2))
cxx1=cbind(cx1,cx2,cx3,cx4,cx5,cx6,cx7,cx8,cx9,cx10,cx11,cx12,cx13,cx14,cx15,cx16,cx17,cx18,cx19,cx20,cx21,cx22,cx23,cx24,cx25)
cbind(cxx1,apply(cxx1,1,mean),apply(cxx1,1, var))## [,1] [,2] [,3] [,4] [,5]
## n1 3.000000e+00 4.000000e+00 5.000000e+00 6.000000e+00 1.000000e+01
## m1 2.000000e+02 1.500000e+02 1.200000e+02 1.000000e+02 6.000000e+01
## t1 2.829590e+07 1.998884e+07 2.393272e+07 1.981186e+07 2.445875e+07
## v1 1.046823e+14 6.076466e+13 1.280417e+14 4.558542e+13 3.377814e+13
## v1x 6.065414e+13 2.748984e+13 4.375693e+13 2.962880e+13 2.002794e+13
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## [,6] [,7] [,8] [,9] [,10]
## n1 1.200000e+01 1.500000e+01 2.000000e+01 3.000000e+00 4.000000e+00
## m1 5.000000e+01 4.000000e+01 3.000000e+01 2.000000e+02 1.500000e+02
## t1 1.659302e+07 2.605573e+07 2.337744e+07 1.264603e+07 2.948149e+07
## v1 6.017519e+12 3.778378e+13 1.422285e+13 1.815644e+13 1.352101e+14
## v1x 4.861714e+12 2.730169e+13 1.422285e+13 1.776858e+13 8.481668e+13
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## [,11] [,12] [,13] [,14] [,15]
## n1 5.000000e+00 6.000000e+00 1.000000e+01 1.200000e+01 1.500000e+01
## m1 1.200000e+02 1.000000e+02 6.000000e+01 5.000000e+01 4.000000e+01
## t1 2.495751e+07 2.070415e+07 2.221995e+07 2.015217e+07 1.911864e+07
## v1 4.856640e+13 2.553039e+13 2.534097e+13 1.233675e+13 7.526064e+12
## v1x 3.113937e+13 1.515196e+13 1.825086e+13 9.667731e+12 6.426684e+12
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## [,16] [,17] [,18] [,19] [,20]
## n1 2.000000e+01 3.000000e+00 4.000000e+00 5.000000e+00 6.000000e+00
## m1 3.000000e+01 2.000000e+02 1.500000e+02 1.200000e+02 1.000000e+02
## t1 2.145530e+07 1.538029e+07 1.771462e+07 2.103016e+07 1.818802e+07
## v1 1.357731e+13 5.248600e+13 3.305369e+13 3.479272e+13 2.932711e+13
## v1x 1.357731e+13 2.679356e+13 2.122882e+13 2.528488e+13 2.425887e+13
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## [,21] [,22] [,23] [,24] [,25]
## n1 1.000000e+01 1.200000e+01 1.500000e+01 2.000000e+01 3.000000e+00
## m1 6.000000e+01 5.000000e+01 4.000000e+01 3.000000e+01 2.000000e+02
## t1 2.334835e+07 1.844941e+07 1.904818e+07 1.843091e+07 3.001028e+07
## v1 3.077643e+13 1.483864e+13 1.425261e+13 2.837615e+12 6.300990e+13
## v1x 2.356254e+13 1.272371e+13 1.216696e+13 2.837615e+12 5.832231e+13
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## [,26] [,27] [,28] [,29] [,30]
## n1 4.000000e+00 5.000000e+00 6.000000e+00 1.000000e+01 1.200000e+01
## m1 1.500000e+02 1.200000e+02 1.000000e+02 6.000000e+01 5.000000e+01
## t1 2.393284e+07 2.559015e+07 2.557767e+07 1.598951e+07 2.126698e+07
## v1 3.946196e+13 9.750055e+13 3.157994e+13 6.816719e+12 1.585946e+13
## v1x 3.556637e+13 6.306296e+13 2.206696e+13 3.722448e+12 1.350546e+13
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## [,31] [,32] [,33] [,34] [,35]
## n1 1.500000e+01 2.000000e+01 3.000000e+00 4.000000e+00 5.000000e+00
## m1 4.000000e+01 3.000000e+01 2.000000e+02 1.500000e+02 1.200000e+02
## t1 2.036004e+07 2.429052e+07 1.567066e+07 2.245314e+07 1.494336e+07
## v1 6.450900e+12 2.224715e+13 1.158913e+14 1.013577e+14 1.837842e+13
## v1x 5.420858e+12 2.224715e+13 4.716502e+13 3.994658e+13 1.687087e+13
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## [,36] [,37] [,38] [,39] [,40]
## n1 6.000000e+00 1.000000e+01 1.200000e+01 1.500000e+01 2.000000e+01
## m1 1.000000e+02 6.000000e+01 5.000000e+01 4.000000e+01 3.000000e+01
## t1 1.362968e+07 1.842732e+07 1.904226e+07 1.897573e+07 1.884667e+07
## v1 9.307530e+12 1.800943e+13 8.288027e+12 1.404739e+13 9.559561e+12
## v1x 7.960610e+12 7.937374e+12 6.571603e+12 1.247596e+13 9.559561e+12
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## [,41] [,42] [,43] [,44] [,45]
## n1 3.000000e+00 4.000000e+00 5.000000e+00 6.000000e+00 1.000000e+01
## m1 2.000000e+02 1.500000e+02 1.200000e+02 1.000000e+02 6.000000e+01
## t1 3.085251e+07 1.596436e+07 1.784878e+07 2.000333e+07 2.100349e+07
## v1 9.227086e+13 1.503865e+14 4.263716e+13 3.401585e+13 1.423187e+13
## v1x 7.896038e+13 8.419468e+13 2.811757e+13 2.068303e+13 9.725739e+12
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## [,46] [,47] [,48] [,49] [,50]
## n1 1.200000e+01 1.500000e+01 2.000000e+01 3.000000e+00 4.000000e+00
## m1 5.000000e+01 4.000000e+01 3.000000e+01 2.000000e+02 1.500000e+02
## t1 2.614313e+07 2.199832e+07 1.933410e+07 2.195969e+07 2.103724e+07
## v1 3.207789e+13 1.233750e+13 5.974003e+12 6.267219e+13 1.799780e+14
## v1x 2.519226e+13 8.117695e+12 5.974003e+12 3.917188e+13 9.381677e+13
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## [,51] [,52] [,53] [,54] [,55]
## n1 5.000000e+00 6.000000e+00 1.000000e+01 1.200000e+01 1.500000e+01
## m1 1.200000e+02 1.000000e+02 6.000000e+01 5.000000e+01 4.000000e+01
## t1 1.895109e+07 2.567393e+07 2.180001e+07 1.948059e+07 2.002279e+07
## v1 2.469928e+13 6.247056e+13 2.129750e+13 7.963936e+12 1.946311e+13
## v1x 1.833624e+13 4.159694e+13 1.760889e+13 5.503499e+12 1.734015e+13
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## [,56] [,57] [,58] [,59] [,60]
## n1 2.000000e+01 3.000000e+00 4.000000e+00 5.000000e+00 6.000000e+00
## m1 3.000000e+01 2.000000e+02 1.500000e+02 1.200000e+02 1.000000e+02
## t1 1.882516e+07 1.955295e+07 1.522214e+07 2.042551e+07 1.964498e+07
## v1 5.952998e+12 4.040217e+13 2.852358e+13 3.441282e+13 3.394530e+13
## v1x 5.952998e+12 3.549453e+13 1.613712e+13 2.914769e+13 2.408673e+13
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## [,61] [,62] [,63] [,64] [,65]
## n1 1.000000e+01 1.200000e+01 1.500000e+01 2.000000e+01 3.000000e+00
## m1 6.000000e+01 5.000000e+01 4.000000e+01 3.000000e+01 2.000000e+02
## t1 2.448111e+07 2.050088e+07 2.061568e+07 2.830424e+07 2.200835e+07
## v1 4.234172e+13 1.596104e+13 2.168039e+13 2.488749e+13 5.508605e+13
## v1x 3.047755e+13 1.116540e+13 1.901983e+13 2.488749e+13 3.731784e+13
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## [,66] [,67] [,68] [,69] [,70]
## n1 4.000000e+00 5.000000e+00 6.000000e+00 1.000000e+01 1.200000e+01
## m1 1.500000e+02 1.200000e+02 1.000000e+02 6.000000e+01 5.000000e+01
## t1 2.881705e+07 3.048436e+07 1.816877e+07 1.958199e+07 1.859172e+07
## v1 1.062435e+14 1.515445e+14 2.023283e+13 1.868202e+13 9.235681e+12
## v1x 7.691337e+13 1.108646e+14 1.161040e+13 1.418909e+13 5.070320e+12
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## [,71] [,72] [,73] [,74] [,75]
## n1 1.500000e+01 2.000000e+01 3.000000e+00 4.000000e+00 5.000000e+00
## m1 4.000000e+01 3.000000e+01 2.000000e+02 1.500000e+02 1.200000e+02
## t1 1.962509e+07 2.570143e+07 2.384372e+07 1.304461e+07 2.216333e+07
## v1 7.727282e+12 1.858358e+13 1.179405e+14 4.907495e+13 2.810184e+13
## v1x 6.270179e+12 1.858358e+13 4.634436e+13 2.600061e+13 2.725043e+13
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## [,76] [,77] [,78] [,79] [,80]
## n1 6.000000e+00 1.000000e+01 1.200000e+01 1.500000e+01 2.000000e+01
## m1 1.000000e+02 6.000000e+01 5.000000e+01 4.000000e+01 3.000000e+01
## t1 2.388728e+07 1.760231e+07 1.741382e+07 2.098958e+07 1.627170e+07
## v1 7.615526e+13 9.611433e+12 8.279991e+12 8.183330e+12 1.297091e+12
## v1x 3.291825e+13 5.690765e+12 6.060732e+12 5.809443e+12 1.297091e+12
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 0.000000e+00
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 0.000000e+00
## [,81] [,82] [,83] [,84] [,85]
## n1 3.000000e+00 4.000000e+00 5.000000e+00 6.000000e+00 1.000000e+01
## m1 2.000000e+02 1.500000e+02 1.200000e+02 1.000000e+02 6.000000e+01
## t1 2.045006e+07 1.602741e+07 9.094700e+06 1.486954e+07 2.974929e+07
## v1 1.073204e+14 1.598841e+13 1.009373e+13 2.407539e+13 1.475225e+14
## v1x 6.935139e+13 1.546075e+13 4.584585e+12 1.272451e+13 1.016078e+14
## 1.000000e+00 1.000000e+00 0.000000e+00 1.000000e+00 1.000000e+00
## 1.000000e+00 1.000000e+00 0.000000e+00 1.000000e+00 1.000000e+00
## [,86] [,87] [,88] [,89] [,90]
## n1 1.200000e+01 1.500000e+01 2.000000e+01 3.000000e+00 4.000000e+00
## m1 5.000000e+01 4.000000e+01 3.000000e+01 2.000000e+02 1.500000e+02
## t1 2.971995e+07 2.156256e+07 2.645315e+07 2.674656e+07 1.348480e+07
## v1 5.093978e+13 1.111538e+13 1.955580e+13 8.086257e+13 1.636023e+13
## v1x 3.643148e+13 9.351194e+12 1.955580e+13 5.231780e+13 1.504026e+13
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## [,91] [,92] [,93] [,94] [,95]
## n1 5.000000e+00 6.000000e+00 1.000000e+01 1.200000e+01 1.500000e+01
## m1 1.200000e+02 1.000000e+02 6.000000e+01 5.000000e+01 4.000000e+01
## t1 2.012509e+07 1.977265e+07 2.309734e+07 2.670192e+07 2.048818e+07
## v1 3.111437e+13 5.181475e+13 4.371980e+13 4.617210e+13 1.480862e+13
## v1x 2.646164e+13 2.822926e+13 2.628883e+13 3.140480e+13 1.271771e+13
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## [,96] [,97] [,98] [,99] [,100]
## n1 2.00000e+01 3.000000e+00 4.000000e+00 5.000000e+00 6.000000e+00
## m1 3.00000e+01 2.000000e+02 1.500000e+02 1.200000e+02 1.000000e+02
## t1 1.76145e+07 2.121273e+07 2.426735e+07 1.238902e+07 2.912111e+07
## v1 1.87566e+12 2.659376e+13 6.470427e+13 1.889304e+13 9.154642e+13
## v1x 1.87566e+12 2.491936e+13 4.583258e+13 1.063224e+13 6.659497e+13
## 1.00000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## 1.00000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## [,101] [,102] [,103] [,104] [,105]
## n1 1.000000e+01 1.200000e+01 1.500000e+01 2.000000e+01 3.000000e+00
## m1 6.000000e+01 5.000000e+01 4.000000e+01 3.000000e+01 2.000000e+02
## t1 2.033613e+07 2.029252e+07 1.817471e+07 2.558222e+07 2.185463e+07
## v1 2.663015e+13 1.861698e+13 4.248920e+12 2.739872e+13 3.954855e+13
## v1x 2.104204e+13 1.373625e+13 2.955661e+12 2.739872e+13 3.564376e+13
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## [,106] [,107] [,108] [,109] [,110]
## n1 4.000000e+00 5.000000e+00 6.000000e+00 1.000000e+01 1.200000e+01
## m1 1.500000e+02 1.200000e+02 1.000000e+02 6.000000e+01 5.000000e+01
## t1 1.671542e+07 2.334185e+07 1.263943e+07 2.349401e+07 1.896194e+07
## v1 2.737828e+13 4.345557e+13 1.445081e+13 2.045346e+13 9.147757e+12
## v1x 2.113769e+13 2.644464e+13 9.939913e+12 1.275860e+13 6.500046e+12
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## [,111] [,112] [,113] [,114] [,115]
## n1 1.500000e+01 2.000000e+01 3.000000e+00 4.000000e+00 5.000000e+00
## m1 4.000000e+01 3.000000e+01 2.000000e+02 1.500000e+02 1.200000e+02
## t1 2.128984e+07 2.127605e+07 2.328175e+07 1.175398e+07 1.630296e+07
## v1 1.316484e+13 7.781633e+12 1.220670e+14 1.888497e+13 7.995791e+13
## v1x 1.184172e+13 7.781633e+12 4.644885e+13 8.055565e+12 3.139468e+13
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## 1.000000e+00 1.000000e+00 1.000000e+00 0.000000e+00 1.000000e+00
## [,116] [,117] [,118] [,119] [,120]
## n1 6.000000e+00 1.000000e+01 1.200000e+01 1.500000e+01 2.000000e+01
## m1 1.000000e+02 6.000000e+01 5.000000e+01 4.000000e+01 3.000000e+01
## t1 2.147135e+07 2.376839e+07 1.830957e+07 2.228553e+07 1.947064e+07
## v1 4.077650e+13 2.417009e+13 9.575173e+12 1.684153e+13 7.738056e+12
## v1x 3.006101e+13 1.573582e+13 6.614373e+12 1.415242e+13 7.738056e+12
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## [,121] [,122] [,123] [,124] [,125]
## n1 3.000000e+00 4.000000e+00 5.000000e+00 6.000000e+00 1.000000e+01
## m1 2.000000e+02 1.500000e+02 1.200000e+02 1.000000e+02 6.000000e+01
## t1 1.877209e+07 1.797432e+07 1.784250e+07 1.671253e+07 1.681299e+07
## v1 1.103799e+14 3.213837e+13 8.241000e+13 2.478836e+13 8.853643e+12
## v1x 2.937163e+13 1.961171e+13 4.963047e+13 1.718955e+13 5.809030e+12
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## [,126] [,127] [,128] [,129] [,130]
## n1 1.200000e+01 1.500000e+01 2.000000e+01 3.000000e+00 4.000000e+00
## m1 5.000000e+01 4.000000e+01 3.000000e+01 2.000000e+02 1.500000e+02
## t1 2.105088e+07 1.710725e+07 2.026795e+07 2.309677e+07 1.377180e+07
## v1 8.939742e+12 4.914604e+12 5.406690e+12 8.111445e+13 2.767731e+13
## v1x 6.467983e+12 4.175867e+12 5.406690e+12 6.255820e+13 1.394827e+13
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## [,131] [,132] [,133] [,134] [,135]
## n1 5.000000e+00 6.000000e+00 1.000000e+01 1.200000e+01 1.500000e+01
## m1 1.200000e+02 1.000000e+02 6.000000e+01 5.000000e+01 4.000000e+01
## t1 3.336706e+07 2.906883e+07 2.805536e+07 2.041250e+07 1.737253e+07
## v1 1.697159e+14 6.074464e+13 1.370439e+14 1.657794e+13 5.306881e+12
## v1x 1.100054e+14 3.186164e+13 9.390737e+13 1.338351e+13 4.029143e+12
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## [,136] [,137] [,138] [,139] [,140]
## n1 2.000000e+01 3.000000e+00 4.000000e+00 5.000000e+00 6.000000e+00
## m1 3.000000e+01 2.000000e+02 1.500000e+02 1.200000e+02 1.000000e+02
## t1 1.833667e+07 2.499697e+07 2.712633e+07 2.983482e+07 1.970895e+07
## v1 2.553260e+12 4.357898e+13 6.001753e+13 1.619281e+14 3.743515e+13
## v1x 2.553260e+12 4.299248e+13 3.807330e+13 7.760694e+13 1.958920e+13
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## [,141] [,142] [,143] [,144] [,145]
## n1 1.000000e+01 1.200000e+01 1.500000e+01 2.000000e+01 3.000000e+00
## m1 6.000000e+01 5.000000e+01 4.000000e+01 3.000000e+01 2.000000e+02
## t1 2.412613e+07 1.638453e+07 2.495969e+07 1.723028e+07 1.809344e+07
## v1 2.369587e+13 6.685941e+12 2.279458e+13 2.641053e+12 4.751397e+13
## v1x 1.746593e+13 4.169311e+12 1.981913e+13 2.641053e+12 2.525910e+13
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## [,146] [,147] [,148] [,149] [,150]
## n1 4.000000e+00 5.000000e+00 6.000000e+00 1.000000e+01 1.200000e+01
## m1 1.500000e+02 1.200000e+02 1.000000e+02 6.000000e+01 5.000000e+01
## t1 2.548984e+07 1.803091e+07 2.343478e+07 2.775349e+07 1.616862e+07
## v1 7.886118e+13 6.883596e+13 5.222388e+13 4.646362e+13 8.746211e+12
## v1x 3.907749e+13 4.100584e+13 3.417146e+13 3.141747e+13 4.947907e+12
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## [,151] [,152] [,153] [,154] [,155]
## n1 1.500000e+01 2.000000e+01 3.000000e+00 4.000000e+00 5.000000e+00
## m1 4.000000e+01 3.000000e+01 2.000000e+02 1.500000e+02 1.200000e+02
## t1 3.311019e+07 2.460092e+07 1.643138e+07 1.916549e+07 2.792269e+07
## v1 1.159919e+14 1.229582e+13 2.306251e+13 3.116337e+13 7.326933e+13
## v1x 9.171946e+13 1.229582e+13 2.019001e+13 2.115074e+13 5.200997e+13
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## [,156] [,157] [,158] [,159] [,160]
## n1 6.000000e+00 1.000000e+01 1.200000e+01 1.500000e+01 2.000000e+01
## m1 1.000000e+02 6.000000e+01 5.000000e+01 4.000000e+01 3.000000e+01
## t1 1.879766e+07 2.040016e+07 2.354331e+07 1.728350e+07 2.259862e+07
## v1 2.221813e+13 2.989919e+13 2.826329e+13 2.956910e+12 1.165620e+13
## v1x 2.063298e+13 2.085382e+13 2.178584e+13 2.623477e+12 1.165620e+13
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## [,161] [,162] [,163] [,164] [,165]
## n1 3.000000e+00 4.000000e+00 5.000000e+00 6.000000e+00 1.000000e+01
## m1 2.000000e+02 1.500000e+02 1.200000e+02 1.000000e+02 6.000000e+01
## t1 1.896591e+07 1.534132e+07 2.607276e+07 3.083575e+07 2.839268e+07
## v1 9.142235e+13 2.874131e+13 5.858628e+13 1.162344e+14 4.087410e+13
## v1x 3.466820e+13 1.717222e+13 3.713176e+13 6.034200e+13 2.932715e+13
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## [,166] [,167] [,168] [,169] [,170]
## n1 1.200000e+01 1.500000e+01 2.000000e+01 3.000000e+00 4.000000e+00
## m1 5.000000e+01 4.000000e+01 3.000000e+01 2.000000e+02 1.500000e+02
## t1 2.389957e+07 1.726139e+07 1.754590e+07 2.572389e+07 2.182574e+07
## v1 2.495622e+13 3.481685e+12 1.728861e+12 6.248286e+13 1.066610e+14
## v1x 2.011088e+13 2.867629e+12 1.728861e+12 3.964091e+13 4.570333e+13
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## [,171] [,172] [,173] [,174] [,175]
## n1 5.000000e+00 6.000000e+00 1.000000e+01 1.200000e+01 1.500000e+01
## m1 1.200000e+02 1.000000e+02 6.000000e+01 5.000000e+01 4.000000e+01
## t1 2.644534e+07 2.158169e+07 2.051788e+07 2.070474e+07 2.111175e+07
## v1 7.618297e+13 3.796135e+13 2.482284e+13 1.510439e+13 9.015085e+12
## v1x 3.076864e+13 2.645314e+13 7.938350e+12 1.222964e+13 5.751333e+12
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## [,176] [,177] [,178] [,179] [,180]
## n1 2.000000e+01 3.000000e+00 4.000000e+00 5.000000e+00 6.000000e+00
## m1 3.000000e+01 2.000000e+02 1.500000e+02 1.200000e+02 1.000000e+02
## t1 2.037732e+07 2.033295e+07 2.659111e+07 3.007763e+07 2.731081e+07
## v1 5.735758e+12 7.325513e+13 5.091804e+13 1.074788e+14 9.411315e+13
## v1x 5.735758e+12 3.790001e+13 3.807691e+13 7.558419e+13 5.005041e+13
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## [,181] [,182] [,183] [,184] [,185]
## n1 1.000000e+01 1.200000e+01 1.500000e+01 2.00000e+01 3.000000e+00
## m1 6.000000e+01 5.000000e+01 4.000000e+01 3.00000e+01 2.000000e+02
## t1 2.405644e+07 1.914650e+07 1.496460e+07 1.68086e+07 3.313926e+07
## v1 2.196428e+13 9.216437e+12 2.698259e+12 1.71284e+12 8.355800e+13
## v1x 1.739005e+13 6.945885e+12 1.953816e+12 1.71284e+12 6.502777e+13
## 1.000000e+00 1.000000e+00 0.000000e+00 0.00000e+00 1.000000e+00
## 1.000000e+00 1.000000e+00 0.000000e+00 0.00000e+00 1.000000e+00
## [,186] [,187] [,188] [,189] [,190]
## n1 4.000000e+00 5.000000e+00 6.000000e+00 1.000000e+01 1.200000e+01
## m1 1.500000e+02 1.200000e+02 1.000000e+02 6.000000e+01 5.000000e+01
## t1 2.577924e+07 2.367299e+07 1.793452e+07 1.515016e+07 2.176490e+07
## v1 5.505655e+13 4.994848e+13 3.097648e+13 5.775441e+12 2.457636e+13
## v1x 4.646670e+13 3.362207e+13 1.186343e+13 3.346536e+12 1.786594e+13
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## 1.000000e+00 1.000000e+00 1.000000e+00 0.000000e+00 1.000000e+00
## [,191] [,192] [,193] [,194] [,195]
## n1 1.500000e+01 2.000000e+01 3.000000e+00 4.000000e+00 5.000000e+00
## m1 4.000000e+01 3.000000e+01 2.000000e+02 1.500000e+02 1.200000e+02
## t1 2.467399e+07 2.912995e+07 1.681239e+07 1.183574e+07 9.283444e+06
## v1 1.207885e+13 8.281528e+13 2.517161e+13 1.288064e+13 8.938346e+12
## v1x 9.023939e+12 8.281528e+13 1.767243e+13 5.816357e+12 4.621961e+12
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 0.000000e+00
## 1.000000e+00 1.000000e+00 1.000000e+00 0.000000e+00 0.000000e+00
## [,196] [,197] [,198] [,199] [,200]
## n1 6.000000e+00 1.000000e+01 1.200000e+01 1.500000e+01 2.000000e+01
## m1 1.000000e+02 6.000000e+01 5.000000e+01 4.000000e+01 3.000000e+01
## t1 1.882126e+07 2.002855e+07 2.890463e+07 2.266818e+07 1.847131e+07
## v1 6.342372e+13 1.634684e+13 1.231486e+14 1.647143e+13 2.502394e+12
## v1x 4.744404e+13 8.681810e+12 9.371266e+13 1.329385e+13 2.502394e+12
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00
## [,201] [,202]
## n1 9.375000e+00 3.164259e+01
## m1 9.375000e+01 3.164259e+03
## t1 2.123208e+07 2.188434e+13
## v1 4.060480e+13 1.503834e+27
## v1x 2.625846e+13 5.426805e+26
## 9.750000e-01 2.449749e-02
## 9.600000e-01 3.859296e-0210000/c(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20)## [1] 1000000.000 500000.000 333333.333 250000.000 200000.000 100000.000
## [7] 50000.000 33333.333 25000.000 20000.000 16666.667 14285.714
## [13] 12500.000 11111.111 10000.000 8333.333 7142.857 6250.000
## [19] 5555.556 5000.000Las filas n1 es el número de conglomerados muestreados, m1 es el número de unidades muestreadas de cada conglomerado seleccionado, t1 son los totales estimados por expansión elemental, las v1 son sus varianzas estimadas y la última fila es la evaluación del intervalo; y las dos últimas columnas son la media y las varianzas de las filas.
Este código muestra que el estimador de expansión elemental es insesgado y homogéneo.
La varianza de la etapa elemental es más exacta cuando los conglomerados tienen medias similares. Aquí no es necesario tomar la varianza de las dos etapas. Tambien, importa poco la distribución de las 600 unidades entre las dos etapas, esto es, \(600=n.m\).
En este análisis se toman conglomerados de medias similares pero con varianzas muy diferentes.
El hecho de tener medias similares en los conglomerados reduce la varianza del estimador del total por expansión elemental a una sola etapa y su varianza es calculada con la varianza vx.
Es un resultado muy importante en Teoría de Muestreo, ya que si los conglomerados elementales tienen iguales sus promedios, no se hace necesario invlucrar en la varianza las etapas nominales o no elementales.