R-Language
x1=c(-0.042,-0.021,-0.014025,-0.00811,-0.0063,-0.0055,-0.00469,-0.00341,-0.00342)
y1=c(-0.0142,-0.0092,-0.003,-0.0018,-0.00101,-0.0009,-0.0005,-0.0006,0)
z1=c(-0.0042,-0.0032,-0.0003,-0.00018,-0.000101,-0.00009,-0.00005,-0.00006,0.00010)
y1=c(-0.0142,-0.0092,-0.003,-0.0018,-0.00101,-0.0009,-0.0005,-0.0006,0)
z1=c(-0.0042,-0.0032,-0.0003,-0.00018,-0.000101,-0.00009,-0.00005,-0.00006,0.00010)
r=c(4,8,12,16,20,24,28,32,36)
par(mfrow=c(3,2))
plot(r, x1 , type="b",pch=19, main="Population 1",col="red",
xlab="Number of Respondents", xlim=c(4,36),ylab="Relative Bias" ,ylim=c(-0.05, 0.005))
# Add a line
lines( r,y1, pch=18, col="blue", type="b", lty=2 )
lines( r,z1, pch=1, col="black", type="b", lty=5)
# Add a legend
legend("bottomright", legend=c(expression(paste(bar(y)[p])), expression(paste(bar(y)[l])),
expression(paste(bar(y)[m]))),
col=c("red", "blue", "black"), lty=1:5, cex=0.8)
par(mfrow=c(3,2))
plot(r, x1 , type="b",pch=19, main="Population 1",col="red",
xlab="Number of Respondents", xlim=c(4,36),ylab="Relative Bias" ,ylim=c(-0.05, 0.005))
# Add a line
lines( r,y1, pch=18, col="blue", type="b", lty=2 )
lines( r,z1, pch=1, col="black", type="b", lty=5)
# Add a legend
legend("bottomright", legend=c(expression(paste(bar(y)[p])), expression(paste(bar(y)[l])),
expression(paste(bar(y)[m]))),
col=c("red", "blue", "black"), lty=1:5, cex=0.8)
x2=c(-0.045,-0.035,-0.025,-0.021,-0.013,-0.005,-0.00299,-0.00141,-0.00142)
y2=c(-0.0042,-0.0032,-0.003,-0.0018,-0.00101,-0.0009,-0.0005,-0.0006,0)
z2=c(-0.00042,-0.00032,-0.0003,-0.00018,-0.000101,-0.00009,-0.00005,-0.00006,0.00010)
y2=c(-0.0042,-0.0032,-0.003,-0.0018,-0.00101,-0.0009,-0.0005,-0.0006,0)
z2=c(-0.00042,-0.00032,-0.0003,-0.00018,-0.000101,-0.00009,-0.00005,-0.00006,0.00010)
r=c(4,8,12,16,20,24,28,32,36)
plot(r, x2 , type="b",pch=19, main="Population 2",col="red",
xlab="Number of Respondents", xlim=c(4,36),ylab="Relative Bias" ,ylim=c(-0.05, 0.005))
# Add a line
lines( r,y2, pch=18, col="blue", type="b", lty=2 )
lines( r,z2, pch=1, col="black", type="b", lty=5)
# Add a legend
legend("bottomright", legend=c(expression(paste(bar(y)[p])), expression(paste(bar(y)[l])),
expression(paste(bar(y)[m]))),
col=c("red", "blue", "black"), lty=1:5, cex=0.8)
x4=c(-0.02,-0.011,-0.00925,-0.00411,-0.0013,-0.0015,-0.00169,-0.00141,-0.00142)
y4=c(-0.0142,-0.0092,-0.003,-0.0018,-0.00101,-0.0009,-0.0005,-0.0006,0)
z4=c(-0.0042,-0.0032,-0.0003,-0.00018,-0.000101,-0.00009,-0.00005,-0.00006,0.00010)
plot(r, x2 , type="b",pch=19, main="Population 2",col="red",
xlab="Number of Respondents", xlim=c(4,36),ylab="Relative Bias" ,ylim=c(-0.05, 0.005))
# Add a line
lines( r,y2, pch=18, col="blue", type="b", lty=2 )
lines( r,z2, pch=1, col="black", type="b", lty=5)
# Add a legend
legend("bottomright", legend=c(expression(paste(bar(y)[p])), expression(paste(bar(y)[l])),
expression(paste(bar(y)[m]))),
col=c("red", "blue", "black"), lty=1:5, cex=0.8)
x4=c(-0.02,-0.011,-0.00925,-0.00411,-0.0013,-0.0015,-0.00169,-0.00141,-0.00142)
y4=c(-0.0142,-0.0092,-0.003,-0.0018,-0.00101,-0.0009,-0.0005,-0.0006,0)
z4=c(-0.0042,-0.0032,-0.0003,-0.00018,-0.000101,-0.00009,-0.00005,-0.00006,0.00010)
r=c(4,8,12,16,20,24,28,32,36)
plot(r, x4 , type="b",pch=19,main="Population 3", col="red",
xlab="Number of Respondents", xlim=c(4,36),ylab="Relative Bias" ,ylim=c(-0.05, 0.005))
# Add a line
lines( r,y4, pch=18, col="blue", type="b", lty=2 )
lines( r,z4, pch=1, col="black", type="b", lty=5)
# Add a legend
legend("bottomright", legend=c(expression(paste(bar(y)[p])), expression(paste(bar(y)[l])),
expression(paste(bar(y)[m]))),
col=c("red", "blue", "black"), lty=1:5, cex=0.8)
x3=c(-0.00852,-0.007221,-0.00504025,-0.00411,-0.00273,-0.00155,-0.001469,-0.001341,-0.00342)
y3=c(-0.00542,-0.00482,-0.003,-0.0018,-0.00101,-0.0009,-0.0005,-0.0006,0)
z3=c(-0.0042,-0.0032,-0.0003,-0.00018,-0.000101,-0.00009,-0.00005,-0.00006,0.00010)
plot(r, x4 , type="b",pch=19,main="Population 3", col="red",
xlab="Number of Respondents", xlim=c(4,36),ylab="Relative Bias" ,ylim=c(-0.05, 0.005))
# Add a line
lines( r,y4, pch=18, col="blue", type="b", lty=2 )
lines( r,z4, pch=1, col="black", type="b", lty=5)
# Add a legend
legend("bottomright", legend=c(expression(paste(bar(y)[p])), expression(paste(bar(y)[l])),
expression(paste(bar(y)[m]))),
col=c("red", "blue", "black"), lty=1:5, cex=0.8)
x3=c(-0.00852,-0.007221,-0.00504025,-0.00411,-0.00273,-0.00155,-0.001469,-0.001341,-0.00342)
y3=c(-0.00542,-0.00482,-0.003,-0.0018,-0.00101,-0.0009,-0.0005,-0.0006,0)
z3=c(-0.0042,-0.0032,-0.0003,-0.00018,-0.000101,-0.00009,-0.00005,-0.00006,0.00010)
r=c(4,8,12,16,20,24,28,32,36)
plot(r, x3 , type="b",main="Population 4",pch=19, col="red",
xlab="Number of Respondents", xlim=c(4,36),ylab="Relative Bias" ,ylim=c(-0.05, 0.005))
# Add a line
lines( r,y3, pch=18, col="blue", type="b", lty=2 )
lines( r,z3, pch=1, col="black", type="b", lty=5)
# Add a legend
legend("bottomright", legend=c(expression(paste(bar(y)[p])), expression(paste(bar(y)[l])),
expression(paste(bar(y)[m]))),
col=c("red", "blue", "black"), lty=1:5, cex=0.8)
plot(r, x3 , type="b",main="Population 4",pch=19, col="red",
xlab="Number of Respondents", xlim=c(4,36),ylab="Relative Bias" ,ylim=c(-0.05, 0.005))
# Add a line
lines( r,y3, pch=18, col="blue", type="b", lty=2 )
lines( r,z3, pch=1, col="black", type="b", lty=5)
# Add a legend
legend("bottomright", legend=c(expression(paste(bar(y)[p])), expression(paste(bar(y)[l])),
expression(paste(bar(y)[m]))),
col=c("red", "blue", "black"), lty=1:5, cex=0.8)
x5=c(-0.0052,-0.0041,-0.00325,-0.000411,0.0013,-0.0015,0.00169,0.00141,0.00142)
y5=c(-0.00142,-0.00092,-0.0003,-0.00018,0.00101,0.0009,0.0005,0.0006,00.003)
z5=c(-0.00042,-0.00032,-0.00003,-0.000018,-0.000101,0.00009,0.00005,0.00006,0.0010)
r=c(4,8,12,16,20,24,28,32,36)
plot(r, x5 , type="b",pch=19,main="Population 5", col="red",
xlab="Number of Respondents", xlim=c(4,36),ylab="Relative Bias" ,ylim=c(-0.05, 0.005))
# Add a line
lines( r,y5, pch=18, col="blue", type="b", lty=2 )
lines( r,z5, pch=1, col="black", type="b", lty=5)
# Add a legend
legend("bottomright", legend=c(expression(paste(bar(y)[p])), expression(paste(bar(y)[l])),
expression(paste(bar(y)[m]))),
col=c("red", "blue", "black"), lty=1:5, cex=0.8)
x6=c(-0.032,-0.021,-0.0125,-0.00411,0.003,0.0085,0.0169,0.0141,0.0142)
y6=c(-0.0142,-0.0092,-0.003,-0.0018,0.0101,0.009,0.005,0.006,00.03)
z6=c(-0.0042,-0.0032,-0.0003,-0.00018,-0.00101,0.0009,0.0005,0.0006,0.010)
plot(r, x5 , type="b",pch=19,main="Population 5", col="red",
xlab="Number of Respondents", xlim=c(4,36),ylab="Relative Bias" ,ylim=c(-0.05, 0.005))
# Add a line
lines( r,y5, pch=18, col="blue", type="b", lty=2 )
lines( r,z5, pch=1, col="black", type="b", lty=5)
# Add a legend
legend("bottomright", legend=c(expression(paste(bar(y)[p])), expression(paste(bar(y)[l])),
expression(paste(bar(y)[m]))),
col=c("red", "blue", "black"), lty=1:5, cex=0.8)
x6=c(-0.032,-0.021,-0.0125,-0.00411,0.003,0.0085,0.0169,0.0141,0.0142)
y6=c(-0.0142,-0.0092,-0.003,-0.0018,0.0101,0.009,0.005,0.006,00.03)
z6=c(-0.0042,-0.0032,-0.0003,-0.00018,-0.00101,0.0009,0.0005,0.0006,0.010)
r=c(4,8,12,16,20,24,28,32,36)
plot(r, x6 , type="b",pch=19,main="Population 6", col="red",
xlab="Number of Respondents", xlim=c(4,36),ylab="Relative Bias" ,ylim=c(-0.05, 0.02))
# Add a line
lines( r,y6, pch=18, col="blue", type="b", lty=2 )
lines( r,z6, pch=1, col="black", type="b", lty=5)
# Add a legend
legend("bottomright", legend=c(expression(paste(bar(y)[p])), expression(paste(bar(y)[l])),
expression(paste(bar(y)[m]))),col=c("red", "blue", "black"), lty=1:5, cex=0.8)
plot(r, x6 , type="b",pch=19,main="Population 6", col="red",
xlab="Number of Respondents", xlim=c(4,36),ylab="Relative Bias" ,ylim=c(-0.05, 0.02))
# Add a line
lines( r,y6, pch=18, col="blue", type="b", lty=2 )
lines( r,z6, pch=1, col="black", type="b", lty=5)
# Add a legend
legend("bottomright", legend=c(expression(paste(bar(y)[p])), expression(paste(bar(y)[l])),
expression(paste(bar(y)[m]))),col=c("red", "blue", "black"), lty=1:5, cex=0.8)
Subscribe our YouTube Channel.
In case of any query, write in the comment box.
Comments
Post a Comment