--- imach/html/doc/biaspar.gp 2005/10/25 11:53:26 1.2
+++ imach/html/doc/biaspar.gp 2015/08/18 16:43:19 1.5
@@ -1,245 +1,271 @@
-# Imach version 0.98, September 2005, INED-EUROREVES
+# Imach version 0.98q5, August 2015,INED-EUROREVES-Institut de longevite-Japan Society for the Promotion of Science (Grant-in-Aid for Scientific Research 25293121), Intel Software 2015
# biaspar.gp
-set missing 'NaNq'
-cd "/Users/brouard/bin/html/doc"
+set datafile missing 'NaNq'
+cd "/Users/nbrouard/Documents/imach/cvs/imach/build/osx/html/doc"
-set out "biaspar/vbiaspar11.png"
+# 1st: Period (stable) prevalence with CI: 'vpl' files
-#set out "vbiaspar11.png"
+set out "biaspar/vbiaspar1_1.png"
+
+#set out "vbiaspar1_1.png"
set xlabel "Age"
set ylabel "Probability"
-set ter png small
-set size 0.65,0.65
-plot [70:95] "biaspar/vplrbiaspar.txt" every :::0::0 u 1:2 "%lf %lf (%lf) %*lf (%*lf)" t"Stable prevalence" w l 0,"biaspar/vplrbiaspar.txt" every :::0::0 u 1:($2+1.96*$3) "%lf %lf (%lf) %*lf (%*lf)" t"95% CI" w l 1,"biaspar/vplrbiaspar.txt" every :::0::0 u 1:($2-1.96*$3) "%lf %lf (%lf) %*lf (%*lf)" t"" w l 1,"biaspar/prbiaspar.txt" every :::0::0 u 1:($2) t"Observed prevalence " w l 2
-set out "biaspar/vbiaspar21.png"
+set ter png small size 320, 240
+plot [70:95] "biaspar/vplrbiaspar.txt" every :::0::0 u 1:2 "%lf %lf (%lf) %*lf (%*lf)" t"Period (stable) prevalence" w l lt 0,"biaspar/vplrbiaspar.txt" every :::0::0 u 1:($2+1.96*$3) "%lf %lf (%lf) %*lf (%*lf)" t"95% CI" w l lt 1,"biaspar/vplrbiaspar.txt" every :::0::0 u 1:($2-1.96*$3) "%lf %lf (%lf) %*lf (%*lf)" t"" w l lt 1,"biaspar/prbiaspar.txt" every :::0::0 u 1:($2) t"Observed prevalence " w l lt 2
+set out "biaspar/vbiaspar2_1.png"
-#set out "vbiaspar21.png"
+#set out "vbiaspar2_1.png"
set xlabel "Age"
set ylabel "Probability"
-set ter png small
-set size 0.65,0.65
-plot [70:95] "biaspar/vplrbiaspar.txt" every :::0::0 u 1:2 "%lf %*lf (%*lf) %lf (%lf)" t"Stable prevalence" w l 0,"biaspar/vplrbiaspar.txt" every :::0::0 u 1:($2+1.96*$3) "%lf %*lf (%*lf) %lf (%lf)" t"95% CI" w l 1,"biaspar/vplrbiaspar.txt" every :::0::0 u 1:($2-1.96*$3) "%lf %*lf (%*lf) %lf (%lf)" t"" w l 1,"biaspar/prbiaspar.txt" every :::0::0 u 1:($6) t"Observed prevalence " w l 2
+set ter png small size 320, 240
+plot [70:95] "biaspar/vplrbiaspar.txt" every :::0::0 u 1:2 "%lf %*lf (%*lf) %lf (%lf)" t"Period (stable) prevalence" w l lt 0,"biaspar/vplrbiaspar.txt" every :::0::0 u 1:($2+1.96*$3) "%lf %*lf (%*lf) %lf (%lf)" t"95% CI" w l lt 1,"biaspar/vplrbiaspar.txt" every :::0::0 u 1:($2-1.96*$3) "%lf %*lf (%*lf) %lf (%lf)" t"" w l lt 1,"biaspar/prbiaspar.txt" every :::0::0 u 1:($6) t"Observed prevalence " w l lt 2
+# 2nd: Total life expectancy with CI: 't' files
+
set out "biaspar/ebiaspar1.png"
set ylabel "Years"
-set ter png small
-set size 0.65,0.65
-plot [70:95] "biaspar/trbiaspar.txt" every :::0::0 u 1:2 "%lf %lf (%lf) %*lf (%*lf) %*lf (%*lf)" t"TLE" w l ,"biaspar/trbiaspar.txt" every :::0::0 u 1:($2-$3*2) "%lf %lf (%lf) %*lf (%*lf) %*lf (%*lf)" t"" w l 0,"biaspar/trbiaspar.txt" every :::0::0 u 1:($2+$3*2) "%lf %lf (%lf) %*lf (%*lf) %*lf (%*lf)" t"" w l 0,"biaspar/trbiaspar.txt" every :::0::0 u 1:2 "%lf %*lf (%*lf) %lf (%lf) %*lf (%*lf)" t"LE in state (1)" w l ,"biaspar/trbiaspar.txt" every :::0::0 u 1:($2-$3*2) "%lf %*lf (%*lf) %lf (%lf) %*lf (%*lf)" t"" w l 0,"biaspar/trbiaspar.txt" every :::0::0 u 1:($2+$3*2) "%lf %*lf (%*lf) %lf (%lf) %*lf (%*lf)" t"" w l 0,"biaspar/trbiaspar.txt" every :::0::0 u 1:2 "%lf %*lf (%*lf) %*lf (%*lf) %lf (%lf)" t"LE in state (2)" w l ,"biaspar/trbiaspar.txt" every :::0::0 u 1:($2-$3*2) "%lf %*lf (%*lf) %*lf (%*lf) %lf (%lf)" t"" w l 0,"biaspar/trbiaspar.txt" every :::0::0 u 1:($2+$3*2) "%lf %*lf (%*lf) %*lf (%*lf) %lf (%lf)" t"" w l 0
+set ter png small size 320, 240
+plot [70:95] "biaspar/trbiaspar.txt" every :::0::0 u 1:2 "%lf %lf (%lf) %*lf (%*lf) %*lf (%*lf)" t"TLE" w l ,"biaspar/trbiaspar.txt" every :::0::0 u 1:($2-$3*2) "%lf %lf (%lf) %*lf (%*lf) %*lf (%*lf)" t"" w l lt 0,"biaspar/trbiaspar.txt" every :::0::0 u 1:($2+$3*2) "%lf %lf (%lf) %*lf (%*lf) %*lf (%*lf)" t"" w l lt 0,"biaspar/trbiaspar.txt" every :::0::0 u 1:2 "%lf %*lf (%*lf) %lf (%lf) %*lf (%*lf)" t"LE in state (1)" w l ,"biaspar/trbiaspar.txt" every :::0::0 u 1:($2-$3*2) "%lf %*lf (%*lf) %lf (%lf) %*lf (%*lf)" t"" w l lt 0,"biaspar/trbiaspar.txt" every :::0::0 u 1:($2+$3*2) "%lf %*lf (%*lf) %lf (%lf) %*lf (%*lf)" t"" w l lt 0,"biaspar/trbiaspar.txt" every :::0::0 u 1:2 "%lf %*lf (%*lf) %*lf (%*lf) %lf (%lf)" t"LE in state (2)" w l ,"biaspar/trbiaspar.txt" every :::0::0 u 1:($2-$3*2) "%lf %*lf (%*lf) %*lf (%*lf) %lf (%lf)" t"" w l lt 0,"biaspar/trbiaspar.txt" every :::0::0 u 1:($2+$3*2) "%lf %*lf (%*lf) %*lf (%*lf) %lf (%lf)" t"" w l lt 0
set out "biaspar/expbiaspar11.png"
-set ter png small
-set size 0.65,0.65
-plot [70:95] "biaspar/erbiaspar.txt" every :::0::0 u 1:2 t "e11" w l ,"biaspar/erbiaspar.txt" every :::0::0 u 1:4 t "e12" w l
+set ter png small size 320, 240
+plot [70:95] "biaspar/erbiaspar.txt" every :::0::0 u 1:2 t "e11" w l ,"biaspar/erbiaspar.txt" every :::0::0 u 1:3 t "e12" w l ,"biaspar/erbiaspar.txt" every :::0::0 u 1:4 t "e1." w l
set out "biaspar/expbiaspar21.png"
-set ter png small
-set size 0.65,0.65
-plot [70:95] "biaspar/erbiaspar.txt" every :::0::0 u 1:6 t "e21" w l ,"biaspar/erbiaspar.txt" every :::0::0 u 1:8 t "e22" w l
-set out "biaspar/pbiaspar11.png"
+set ter png small size 320, 240
+plot [70:95] "biaspar/erbiaspar.txt" every :::0::0 u 1:5 t "e21" w l ,"biaspar/erbiaspar.txt" every :::0::0 u 1:6 t "e22" w l ,"biaspar/erbiaspar.txt" every :::0::0 u 1:7 t "e2." w l
+#
+#
+#CV preval stable (period): 'pij' files, cov=1 state=1
+set out "biaspar/pbiaspar1_1.png"
set xlabel "Age"
set ylabel "Probability"
-set ter png small
-set size 0.65,0.65
+set ter png small size 320, 240
unset log y
-plot [70:95] "biaspar/pijrbiaspar.txt" u ($1==1 ? ($3):1/0):($5/($4+$5)) t"prev(1,2)" w l,"biaspar/pijrbiaspar.txt" u ($1==1 ? ($3):1/0):($8/($7+$8)) t"prev(2,2)" w l
+plot [70:95] "biaspar/pijrbiaspar.txt" u ($1==1 ? ($3):1/0):($4/($4+$5)) t "prev(1,1)" w l, '' u ($1==1 ? ($3):1/0):($7/($7+$8)) t "prev(2,1)" w l
-set out "biaspar/pbiaspar21.png"
+#
+#
+#CV preval stable (period): 'pij' files, cov=1 state=2
+set out "biaspar/pbiaspar2_1.png"
set xlabel "Age"
set ylabel "Probability"
-set ter png small
-set size 0.65,0.65
+set ter png small size 320, 240
unset log y
-plot [70:95] "biaspar/pijrbiaspar.txt" u ($1==1 ? ($3):1/0):($6/($4+$5)) t"prev(2,3)" w l,"biaspar/pijrbiaspar.txt" u ($1==1 ? ($3):1/0):($12/($10+$11)) t"prev(3,3)" w l
-p1=-12.245504
-p2=0.092361
-p3=-10.670953
-p4=0.060958
-p5=-2.645034
-p6=-0.022329
-p7=-4.775501
-p8=0.007884
+plot [70:95] "biaspar/pijrbiaspar.txt" u ($1==1 ? ($3):1/0):($5/($4+$5)) t "prev(1,2)" w l, '' u ($1==1 ? ($3):1/0):($8/($7+$8)) t "prev(2,2)" w l
+
+##############
+#MLE estimated parameters
+#############
+# initial state 1
+# current state 2
+p1=-12.202711; p2=0.091764;
+# current state 3
+p3=-10.299238; p4=0.056626;
+# initial state 2
+# current state 1
+p5=-1.545619; p6=-0.035395;
+# current state 3
+p7=-5.565963; p8=0.016951;
+##############
+#
-set out "biaspar/pebiaspar11.png"
+##############
+#Graphics of of probabilities or incidences
+#############
+# logi(p12/p11)=a12+b12*age+c12age*age+d12*V1+e12*V1*age
+# logi(p12/p11)=p1 +p2*age +p3*age*age+ p4*V1+ p5*V1*age
+# logi(p13/p11)=a13+b13*age+c13age*age+d13*V1+e13*V1*age
+# logi(p13/p11)=p6 +p7*age +p8*age*age+ p9*V1+ p10*V1*age
+# p12+p13+p14+p11=1=p11(1+exp(a12+b12*age+c12age*age+d12*V1+e12*V1*age)
+# +exp(a13+b13*age+c13age*age+d13*V1+e13*V1*age)+...)
+# p11=1/(1+exp(a12+b12*age+c12age*age+d12*V1+e12*V1*age)
+# +exp(a13+b13*age+c13age*age+d13*V1+e13*V1*age)+...)
+# p12=exp(a12+b12*age+c12age*age+d12*V1+e12*V1*age)/
+# (1+exp(a12+b12*age+c12age*age+d12*V1+e12*V1*age)
+# +exp(a13+b13*age+c13age*age+d13*V1+e13*V1*age))
+# +exp(a14+b14*age+c14age*age+d14*V1+e14*V1*age)+...)
+#
+# ng=1
+# jk=1 to 2^0=1
+# jk=1
+
+set out "biaspar/pebiaspar1_1.png"
set title "Probability"
-set ter png small
-set size 0.65,0.65
+set ter png small size 320, 240
set log y
-plot [70:95] exp(p1+p2*x)/(1+exp(p1+p2*x)+exp(p3+p4*x)) t "p12" , exp(p3+p4*x)/(1+exp(p1+p2*x)+exp(p3+p4*x)) t "p13" , exp(p5+p6*x)/(1+exp(p5+p6*x)+exp(p7+p8*x)) t "p21" , exp(p7+p8*x)/(1+exp(p5+p6*x)+exp(p7+p8*x)) t "p23"
-set out "biaspar/pebiaspar12.png"
+plot [70:95] exp(p1+p2*x)/(1+exp(p1+p2*x)+exp(p3+p4*x)) t "p12" , exp(p3+p4*x)/(1+exp(p1+p2*x)+exp(p3+p4*x)) t "p13" , exp(p5+p6*x)/(1+exp(p5+p6*x)+exp(p7+p8*x)) t "p21" , exp(p7+p8*x)/(1+exp(p5+p6*x)+exp(p7+p8*x)) t "p23" # ng=2
+# jk=1 to 2^0=1
+# jk=1
+
+set out "biaspar/pebiaspar1_2.png"
set ylabel "Quasi-incidence per year"
-set ter png small
-set size 0.65,0.65
+set ter png small size 320, 240
set log y
plot [70:95] 12.000000*exp(p1+p2*x)/(1+exp(p1+p2*x)+exp(p3+p4*x)) t "p12" , 12.000000*exp(p3+p4*x)/(1+exp(p1+p2*x)+exp(p3+p4*x)) t "p13" , 12.000000*exp(p5+p6*x)/(1+exp(p5+p6*x)+exp(p7+p8*x)) t "p21" , 12.000000*exp(p7+p8*x)/(1+exp(p5+p6*x)+exp(p7+p8*x)) t "p23"
# Routine varprob
set parametric;unset label
set log y;set log x; set xlabel "p13 (year-1)";set ylabel "p12 (year-1)"
-set ter png small
-set size 0.65,0.65
+set ter png small size 320, 240
set out "biaspar/varpijgrbiaspar113-12.png"
-set label "65" at 1.460e-02, 2.328e-02 center
+set label "65" at 1.597e-02, 2.337e-02 center
# Age 65, p13 - p12
-plot [-pi:pi] 1.460e-02+ 2.000*( 7.019e-01* 2.099e-03*cos(t)+ 7.123e-01* 1.386e-03*sin(t)), 2.328e-02 +2.000*( -7.123e-01* 2.099e-03*cos(t)+ 7.019e-01* 1.386e-03*sin(t)) not
+plot [-pi:pi] 1.597e-02+ 2.000*( 7.325e-01* 2.084e-03*cos(t)+ 6.807e-01* 1.465e-03*sin(t)), 2.337e-02 +2.000*( -6.807e-01* 2.084e-03*cos(t)+ 7.325e-01* 1.465e-03*sin(t)) not
# Age 70, p13 - p12
-set label "70" at 1.977e-02, 3.688e-02 center
-replot 1.977e-02+ 2.000*( 5.418e-01* 2.359e-03*cos(t)+ 8.405e-01* 1.461e-03*sin(t)), 3.688e-02 +2.000*( -8.405e-01* 2.359e-03*cos(t)+ 5.418e-01* 1.461e-03*sin(t)) not
+set label "70" at 2.117e-02, 3.691e-02 center
+replot 2.117e-02+ 2.000*( 5.240e-01* 2.315e-03*cos(t)+ 8.517e-01* 1.521e-03*sin(t)), 3.691e-02 +2.000*( -8.517e-01* 2.315e-03*cos(t)+ 5.240e-01* 1.521e-03*sin(t)) not
# Age 75, p13 - p12
-set label "75" at 2.675e-02, 5.839e-02 center
-replot 2.675e-02+ 2.000*( 4.274e-01* 2.544e-03*cos(t)+ 9.041e-01* 1.383e-03*sin(t)), 5.839e-02 +2.000*( -9.041e-01* 2.544e-03*cos(t)+ 4.274e-01* 1.383e-03*sin(t)) not
+set label "75" at 2.803e-02, 5.827e-02 center
+replot 2.803e-02+ 2.000*( 3.929e-01* 2.501e-03*cos(t)+ 9.196e-01* 1.403e-03*sin(t)), 5.827e-02 +2.000*( -9.196e-01* 2.501e-03*cos(t)+ 3.929e-01* 1.403e-03*sin(t)) not
# Age 80, p13 - p12
-set label "80" at 3.615e-02, 9.232e-02 center
-replot 3.615e-02+ 2.000*( 3.992e-01* 2.744e-03*cos(t)+ 9.169e-01* 1.381e-03*sin(t)), 9.232e-02 +2.000*( -9.169e-01* 2.744e-03*cos(t)+ 3.992e-01* 1.381e-03*sin(t)) not
+set label "80" at 3.707e-02, 9.186e-02 center
+replot 3.707e-02+ 2.000*( 3.828e-01* 2.718e-03*cos(t)+ 9.238e-01* 1.387e-03*sin(t)), 9.186e-02 +2.000*( -9.238e-01* 2.718e-03*cos(t)+ 3.828e-01* 1.387e-03*sin(t)) not
# Age 85, p13 - p12
-set label "85" at 4.875e-02, 1.457e-01 center
-replot 4.875e-02+ 2.000*( 3.981e-01* 4.136e-03*cos(t)+ 9.174e-01* 2.268e-03*sin(t)), 1.457e-01 +2.000*( -9.174e-01* 4.136e-03*cos(t)+ 3.981e-01* 2.268e-03*sin(t)) not
+set label "85" at 4.893e-02, 1.445e-01 center
+replot 4.893e-02+ 2.000*( 4.026e-01* 4.082e-03*cos(t)+ 9.154e-01* 2.265e-03*sin(t)), 1.445e-01 +2.000*( -9.154e-01* 4.082e-03*cos(t)+ 4.026e-01* 2.265e-03*sin(t)) not
# Age 90, p13 - p12
-set label "90" at 6.556e-02, 2.292e-01 center
-replot 6.556e-02+ 2.000*( 2.987e-01* 9.027e-03*cos(t)+ 9.543e-01* 4.655e-03*sin(t)), 2.292e-01 +2.000*( -9.543e-01* 9.027e-03*cos(t)+ 2.987e-01* 4.655e-03*sin(t)) not
+set label "90" at 6.441e-02, 2.268e-01 center
+replot 6.441e-02+ 2.000*( 2.874e-01* 8.787e-03*cos(t)+ 9.578e-01* 4.578e-03*sin(t)), 2.268e-01 +2.000*( -9.578e-01* 8.787e-03*cos(t)+ 2.874e-01* 4.578e-03*sin(t)) not
# Age 95, p13 - p12
-set label "95" at 8.777e-02, 3.591e-01 center
-replot 8.777e-02+ 2.000*( 2.247e-01* 1.984e-02*cos(t)+ 9.744e-01* 8.795e-03*sin(t)), 3.591e-01 +2.000*( -9.744e-01* 1.984e-02*cos(t)+ 2.247e-01* 8.795e-03*sin(t)) not
+set label "95" at 8.441e-02, 3.543e-01 center
+replot 8.441e-02+ 2.000*( 2.019e-01* 1.921e-02*cos(t)+ 9.794e-01* 8.453e-03*sin(t)), 3.543e-01 +2.000*( -9.794e-01* 1.921e-02*cos(t)+ 2.019e-01* 8.453e-03*sin(t)) not
set out "biaspar/varpijgrbiaspar113-12.png";replot;
set parametric;unset label
set log y;set log x; set xlabel "p21 (year-1)";set ylabel "p12 (year-1)"
-set ter png small
-set size 0.65,0.65
+set ter png small size 320, 240
set out "biaspar/varpijgrbiaspar121-12.png"
-set label "65" at 1.936e-01, 2.328e-02 center
+set label "65" at 2.481e-01, 2.337e-02 center
# Age 65, p21 - p12
-plot [-pi:pi] 1.936e-01+ 2.000*( 9.998e-01* 3.109e-02*cos(t)+ -1.822e-02* 1.692e-03*sin(t)), 2.328e-02 +2.000*( 1.822e-02* 3.109e-02*cos(t)+ 9.998e-01* 1.692e-03*sin(t)) not
+plot [-pi:pi] 2.481e-01+ 2.000*( 9.999e-01* 3.884e-02*cos(t)+ -1.528e-02* 1.677e-03*sin(t)), 2.337e-02 +2.000*( 1.528e-02* 3.884e-02*cos(t)+ 9.999e-01* 1.677e-03*sin(t)) not
# Age 70, p21 - p12
-set label "70" at 1.734e-01, 3.688e-02 center
-replot 1.734e-01+ 2.000*( 9.995e-01* 2.135e-02*cos(t)+ -3.169e-02* 2.026e-03*sin(t)), 3.688e-02 +2.000*( 3.169e-02* 2.135e-02*cos(t)+ 9.995e-01* 2.026e-03*sin(t)) not
+set label "70" at 2.084e-01, 3.691e-02 center
+replot 2.084e-01+ 2.000*( 9.996e-01* 2.493e-02*cos(t)+ -2.848e-02* 2.005e-03*sin(t)), 3.691e-02 +2.000*( 2.848e-02* 2.493e-02*cos(t)+ 9.996e-01* 2.005e-03*sin(t)) not
# Age 75, p21 - p12
-set label "75" at 1.552e-01, 5.839e-02 center
-replot 1.552e-01+ 2.000*( 9.985e-01* 1.365e-02*cos(t)+ -5.500e-02* 2.256e-03*sin(t)), 5.839e-02 +2.000*( 5.500e-02* 1.365e-02*cos(t)+ 9.985e-01* 2.256e-03*sin(t)) not
+set label "75" at 1.749e-01, 5.827e-02 center
+replot 1.749e-01+ 2.000*( 9.986e-01* 1.487e-02*cos(t)+ -5.306e-02* 2.233e-03*sin(t)), 5.827e-02 +2.000*( 5.306e-02* 1.487e-02*cos(t)+ 9.986e-01* 2.233e-03*sin(t)) not
# Age 80, p21 - p12
-set label "80" at 1.389e-01, 9.232e-02 center
-replot 1.389e-01+ 2.000*( 9.951e-01* 8.259e-03*cos(t)+ -9.930e-02* 2.453e-03*sin(t)), 9.232e-02 +2.000*( 9.930e-02* 8.259e-03*cos(t)+ 9.951e-01* 2.453e-03*sin(t)) not
+set label "80" at 1.467e-01, 9.186e-02 center
+replot 1.467e-01+ 2.000*( 9.949e-01* 8.452e-03*cos(t)+ -1.006e-01* 2.434e-03*sin(t)), 9.186e-02 +2.000*( 1.006e-01* 8.452e-03*cos(t)+ 9.949e-01* 2.434e-03*sin(t)) not
# Age 85, p21 - p12
-set label "85" at 1.243e-01, 1.457e-01 center
-replot 1.243e-01+ 2.000*( 9.672e-01* 6.435e-03*cos(t)+ -2.542e-01* 3.661e-03*sin(t)), 1.457e-01 +2.000*( 2.542e-01* 6.435e-03*cos(t)+ 9.672e-01* 3.661e-03*sin(t)) not
+set label "85" at 1.230e-01, 1.445e-01 center
+replot 1.230e-01+ 2.000*( 9.691e-01* 6.397e-03*cos(t)+ -2.468e-01* 3.619e-03*sin(t)), 1.445e-01 +2.000*( 2.468e-01* 6.397e-03*cos(t)+ 9.691e-01* 3.619e-03*sin(t)) not
# Age 90, p21 - p12
-set label "90" at 1.112e-01, 2.292e-01 center
-replot 1.112e-01+ 2.000*( 5.677e-01* 9.492e-03*cos(t)+ -8.232e-01* 6.841e-03*sin(t)), 2.292e-01 +2.000*( 8.232e-01* 9.492e-03*cos(t)+ 5.677e-01* 6.841e-03*sin(t)) not
+set label "90" at 1.031e-01, 2.268e-01 center
+replot 1.031e-01+ 2.000*( 5.313e-01* 9.166e-03*cos(t)+ -8.472e-01* 6.591e-03*sin(t)), 2.268e-01 +2.000*( 8.472e-01* 9.166e-03*cos(t)+ 5.313e-01* 6.591e-03*sin(t)) not
# Age 95, p21 - p12
-set label "95" at 9.952e-02, 3.591e-01 center
-replot 9.952e-02+ 2.000*( 2.083e-01* 1.976e-02*cos(t)+ -9.781e-01* 9.575e-03*sin(t)), 3.591e-01 +2.000*( 9.781e-01* 1.976e-02*cos(t)+ 2.083e-01* 9.575e-03*sin(t)) not
+set label "95" at 8.634e-02, 3.543e-01 center
+replot 8.634e-02+ 2.000*( 1.792e-01* 1.914e-02*cos(t)+ -9.838e-01* 8.537e-03*sin(t)), 3.543e-01 +2.000*( 9.838e-01* 1.914e-02*cos(t)+ 1.792e-01* 8.537e-03*sin(t)) not
set out "biaspar/varpijgrbiaspar121-12.png";replot;
set parametric;unset label
set log y;set log x; set xlabel "p23 (year-1)";set ylabel "p12 (year-1)"
-set ter png small
-set size 0.65,0.65
+set ter png small size 320, 240
set out "biaspar/varpijgrbiaspar123-12.png"
-set label "65" at 1.639e-01, 2.328e-02 center
+set label "65" at 1.338e-01, 2.337e-02 center
# Age 65, p23 - p12
-plot [-pi:pi] 1.639e-01+ 2.000*( 9.995e-01* 2.122e-02*cos(t)+ -3.216e-02* 1.649e-03*sin(t)), 2.328e-02 +2.000*( 3.216e-02* 2.122e-02*cos(t)+ 9.995e-01* 1.649e-03*sin(t)) not
+plot [-pi:pi] 1.338e-01+ 2.000*( 9.993e-01* 1.768e-02*cos(t)+ -3.696e-02* 1.655e-03*sin(t)), 2.337e-02 +2.000*( 3.696e-02* 1.768e-02*cos(t)+ 9.993e-01* 1.655e-03*sin(t)) not
# Age 70, p23 - p12
-set label "70" at 1.707e-01, 3.688e-02 center
-replot 1.707e-01+ 2.000*( 9.988e-01* 1.755e-02*cos(t)+ -4.952e-02* 1.952e-03*sin(t)), 3.688e-02 +2.000*( 4.952e-02* 1.755e-02*cos(t)+ 9.988e-01* 1.952e-03*sin(t)) not
+set label "70" at 1.460e-01, 3.691e-02 center
+replot 1.460e-01+ 2.000*( 9.985e-01* 1.541e-02*cos(t)+ -5.441e-02* 1.957e-03*sin(t)), 3.691e-02 +2.000*( 5.441e-02* 1.541e-02*cos(t)+ 9.985e-01* 1.957e-03*sin(t)) not
# Age 75, p23 - p12
-set label "75" at 1.777e-01, 5.839e-02 center
-replot 1.777e-01+ 2.000*( 9.970e-01* 1.375e-02*cos(t)+ -7.687e-02* 2.132e-03*sin(t)), 5.839e-02 +2.000*( 7.687e-02* 1.375e-02*cos(t)+ 9.970e-01* 2.132e-03*sin(t)) not
+set label "75" at 1.591e-01, 5.827e-02 center
+replot 1.591e-01+ 2.000*( 9.967e-01* 1.275e-02*cos(t)+ -8.076e-02* 2.137e-03*sin(t)), 5.827e-02 +2.000*( 8.076e-02* 1.275e-02*cos(t)+ 9.967e-01* 2.137e-03*sin(t)) not
# Age 80, p23 - p12
-set label "80" at 1.850e-01, 9.232e-02 center
-replot 1.850e-01+ 2.000*( 9.925e-01* 1.011e-02*cos(t)+ -1.224e-01* 2.275e-03*sin(t)), 9.232e-02 +2.000*( 1.224e-01* 1.011e-02*cos(t)+ 9.925e-01* 2.275e-03*sin(t)) not
+set label "80" at 1.734e-01, 9.186e-02 center
+replot 1.734e-01+ 2.000*( 9.924e-01* 9.884e-03*cos(t)+ -1.231e-01* 2.277e-03*sin(t)), 9.186e-02 +2.000*( 1.231e-01* 9.884e-03*cos(t)+ 9.924e-01* 2.277e-03*sin(t)) not
# Age 85, p23 - p12
-set label "85" at 1.926e-01, 1.457e-01 center
-replot 1.926e-01+ 2.000*( 9.723e-01* 7.666e-03*cos(t)+ -2.339e-01* 3.562e-03*sin(t)), 1.457e-01 +2.000*( 2.339e-01* 7.666e-03*cos(t)+ 9.723e-01* 3.562e-03*sin(t)) not
+set label "85" at 1.889e-01, 1.445e-01 center
+replot 1.889e-01+ 2.000*( 9.741e-01* 7.696e-03*cos(t)+ -2.260e-01* 3.522e-03*sin(t)), 1.445e-01 +2.000*( 2.260e-01* 7.696e-03*cos(t)+ 9.741e-01* 3.522e-03*sin(t)) not
# Age 90, p23 - p12
-set label "90" at 2.004e-01, 2.292e-01 center
-replot 2.004e-01+ 2.000*( 6.167e-01* 9.540e-03*cos(t)+ -7.872e-01* 7.206e-03*sin(t)), 2.292e-01 +2.000*( 7.872e-01* 9.540e-03*cos(t)+ 6.167e-01* 7.206e-03*sin(t)) not
+set label "90" at 2.057e-01, 2.268e-01 center
+replot 2.057e-01+ 2.000*( 6.276e-01* 9.309e-03*cos(t)+ -7.786e-01* 7.132e-03*sin(t)), 2.268e-01 +2.000*( 7.786e-01* 9.309e-03*cos(t)+ 6.276e-01* 7.132e-03*sin(t)) not
# Age 95, p23 - p12
-set label "95" at 2.085e-01, 3.591e-01 center
-replot 2.085e-01+ 2.000*( 2.384e-01* 1.981e-02*cos(t)+ -9.712e-01* 1.149e-02*sin(t)), 3.591e-01 +2.000*( 9.712e-01* 1.981e-02*cos(t)+ 2.384e-01* 1.149e-02*sin(t)) not
+set label "95" at 2.238e-01, 3.543e-01 center
+replot 2.238e-01+ 2.000*( 2.443e-01* 1.925e-02*cos(t)+ -9.697e-01* 1.172e-02*sin(t)), 3.543e-01 +2.000*( 9.697e-01* 1.925e-02*cos(t)+ 2.443e-01* 1.172e-02*sin(t)) not
set out "biaspar/varpijgrbiaspar123-12.png";replot;
set parametric;unset label
set log y;set log x; set xlabel "p21 (year-1)";set ylabel "p13 (year-1)"
-set ter png small
-set size 0.65,0.65
+set ter png small size 320, 240
set out "biaspar/varpijgrbiaspar121-13.png"
-set label "65" at 1.936e-01, 1.460e-02 center
+set label "65" at 2.481e-01, 1.597e-02 center
# Age 65, p21 - p13
-plot [-pi:pi] 1.936e-01+ 2.000*( 1.000e+00* 3.109e-02*cos(t)+ -1.676e-03* 1.773e-03*sin(t)), 1.460e-02 +2.000*( 1.676e-03* 3.109e-02*cos(t)+ 1.000e+00* 1.773e-03*sin(t)) not
+plot [-pi:pi] 2.481e-01+ 2.000*( 1.000e+00* 3.883e-02*cos(t)+ -2.210e-03* 1.821e-03*sin(t)), 1.597e-02 +2.000*( 2.210e-03* 3.883e-02*cos(t)+ 1.000e+00* 1.821e-03*sin(t)) not
# Age 70, p21 - p13
-set label "70" at 1.734e-01, 1.977e-02 center
-replot 1.734e-01+ 2.000*( 1.000e+00* 2.134e-02*cos(t)+ -1.717e-03* 1.772e-03*sin(t)), 1.977e-02 +2.000*( 1.717e-03* 2.134e-02*cos(t)+ 1.000e+00* 1.772e-03*sin(t)) not
+set label "70" at 2.084e-01, 2.117e-02 center
+replot 2.084e-01+ 2.000*( 1.000e+00* 2.492e-02*cos(t)+ -2.683e-03* 1.773e-03*sin(t)), 2.117e-02 +2.000*( 2.683e-03* 2.492e-02*cos(t)+ 1.000e+00* 1.773e-03*sin(t)) not
# Age 75, p21 - p13
-set label "75" at 1.552e-01, 2.675e-02 center
-replot 1.552e-01+ 2.000*( 1.000e+00* 1.363e-02*cos(t)+ -1.187e-03* 1.657e-03*sin(t)), 2.675e-02 +2.000*( 1.187e-03* 1.363e-02*cos(t)+ 1.000e+00* 1.657e-03*sin(t)) not
+set label "75" at 1.749e-01, 2.803e-02 center
+replot 1.749e-01+ 2.000*( 1.000e+00* 1.485e-02*cos(t)+ -2.605e-03* 1.622e-03*sin(t)), 2.803e-02 +2.000*( 2.605e-03* 1.485e-02*cos(t)+ 1.000e+00* 1.622e-03*sin(t)) not
# Age 80, p21 - p13
-set label "80" at 1.389e-01, 3.615e-02 center
-replot 1.389e-01+ 2.000*( 1.000e+00* 8.222e-03*cos(t)+ -3.844e-03* 1.674e-03*sin(t)), 3.615e-02 +2.000*( 3.844e-03* 8.222e-03*cos(t)+ 1.000e+00* 1.674e-03*sin(t)) not
+set label "80" at 1.467e-01, 3.707e-02 center
+replot 1.467e-01+ 2.000*( 1.000e+00* 8.412e-03*cos(t)+ -4.929e-03* 1.650e-03*sin(t)), 3.707e-02 +2.000*( 4.929e-03* 8.412e-03*cos(t)+ 1.000e+00* 1.650e-03*sin(t)) not
# Age 85, p21 - p13
-set label "85" at 1.243e-01, 4.875e-02 center
-replot 1.243e-01+ 2.000*( 9.992e-01* 6.297e-03*cos(t)+ -4.035e-02* 2.643e-03*sin(t)), 4.875e-02 +2.000*( 4.035e-02* 6.297e-03*cos(t)+ 9.992e-01* 2.643e-03*sin(t)) not
+set label "85" at 1.230e-01, 4.893e-02 center
+replot 1.230e-01+ 2.000*( 9.992e-01* 6.267e-03*cos(t)+ -3.981e-02* 2.636e-03*sin(t)), 4.893e-02 +2.000*( 3.981e-02* 6.267e-03*cos(t)+ 9.992e-01* 2.636e-03*sin(t)) not
# Age 90, p21 - p13
-set label "90" at 1.112e-01, 6.556e-02 center
-replot 1.112e-01+ 2.000*( 9.932e-01* 7.824e-03*cos(t)+ -1.163e-01* 5.151e-03*sin(t)), 6.556e-02 +2.000*( 1.163e-01* 7.824e-03*cos(t)+ 9.932e-01* 5.151e-03*sin(t)) not
+set label "90" at 1.031e-01, 6.441e-02 center
+replot 1.031e-01+ 2.000*( 9.921e-01* 7.441e-03*cos(t)+ -1.255e-01* 5.013e-03*sin(t)), 6.441e-02 +2.000*( 1.255e-01* 7.441e-03*cos(t)+ 9.921e-01* 5.013e-03*sin(t)) not
# Age 95, p21 - p13
-set label "95" at 9.952e-02, 8.777e-02 center
-replot 9.952e-02+ 2.000*( 8.754e-01* 1.047e-02*cos(t)+ -4.835e-01* 9.400e-03*sin(t)), 8.777e-02 +2.000*( 4.835e-01* 1.047e-02*cos(t)+ 8.754e-01* 9.400e-03*sin(t)) not
+set label "95" at 8.634e-02, 8.441e-02 center
+replot 8.634e-02+ 2.000*( 6.785e-01* 9.541e-03*cos(t)+ -7.346e-01* 8.651e-03*sin(t)), 8.441e-02 +2.000*( 7.346e-01* 9.541e-03*cos(t)+ 6.785e-01* 8.651e-03*sin(t)) not
set out "biaspar/varpijgrbiaspar121-13.png";replot;
set parametric;unset label
set log y;set log x; set xlabel "p23 (year-1)";set ylabel "p13 (year-1)"
-set ter png small
-set size 0.65,0.65
+set ter png small size 320, 240
set out "biaspar/varpijgrbiaspar123-13.png"
-set label "65" at 1.639e-01, 1.460e-02 center
+set label "65" at 1.338e-01, 1.597e-02 center
# Age 65, p23 - p13
-plot [-pi:pi] 1.639e-01+ 2.000*( 9.992e-01* 2.122e-02*cos(t)+ 3.972e-02* 1.562e-03*sin(t)), 1.460e-02 +2.000*( -3.972e-02* 2.122e-02*cos(t)+ 9.992e-01* 1.562e-03*sin(t)) not
+plot [-pi:pi] 1.338e-01+ 2.000*( 9.991e-01* 1.769e-02*cos(t)+ 4.256e-02* 1.662e-03*sin(t)), 1.597e-02 +2.000*( -4.256e-02* 1.769e-02*cos(t)+ 9.991e-01* 1.662e-03*sin(t)) not
# Age 70, p23 - p13
-set label "70" at 1.707e-01, 1.977e-02 center
-replot 1.707e-01+ 2.000*( 9.987e-01* 1.756e-02*cos(t)+ 5.147e-02* 1.527e-03*sin(t)), 1.977e-02 +2.000*( -5.147e-02* 1.756e-02*cos(t)+ 9.987e-01* 1.527e-03*sin(t)) not
+set label "70" at 1.460e-01, 2.117e-02 center
+replot 1.460e-01+ 2.000*( 9.986e-01* 1.541e-02*cos(t)+ 5.267e-02* 1.580e-03*sin(t)), 2.117e-02 +2.000*( -5.267e-02* 1.541e-02*cos(t)+ 9.986e-01* 1.580e-03*sin(t)) not
# Age 75, p23 - p13
-set label "75" at 1.777e-01, 2.675e-02 center
-replot 1.777e-01+ 2.000*( 9.977e-01* 1.375e-02*cos(t)+ 6.833e-02* 1.368e-03*sin(t)), 2.675e-02 +2.000*( -6.833e-02* 1.375e-02*cos(t)+ 9.977e-01* 1.368e-03*sin(t)) not
+set label "75" at 1.591e-01, 2.803e-02 center
+replot 1.591e-01+ 2.000*( 9.977e-01* 1.273e-02*cos(t)+ 6.800e-02* 1.375e-03*sin(t)), 2.803e-02 +2.000*( -6.800e-02* 1.273e-02*cos(t)+ 9.977e-01* 1.375e-03*sin(t)) not
# Age 80, p23 - p13
-set label "80" at 1.850e-01, 3.615e-02 center
-replot 1.850e-01+ 2.000*( 9.949e-01* 1.009e-02*cos(t)+ 1.005e-01* 1.339e-03*sin(t)), 3.615e-02 +2.000*( -1.005e-01* 1.009e-02*cos(t)+ 9.949e-01* 1.339e-03*sin(t)) not
+set label "80" at 1.734e-01, 3.707e-02 center
+replot 1.734e-01+ 2.000*( 9.950e-01* 9.861e-03*cos(t)+ 9.978e-02* 1.332e-03*sin(t)), 3.707e-02 +2.000*( -9.978e-02* 9.861e-03*cos(t)+ 9.950e-01* 1.332e-03*sin(t)) not
# Age 85, p23 - p13
-set label "85" at 1.926e-01, 4.875e-02 center
-replot 1.926e-01+ 2.000*( 9.804e-01* 7.637e-03*cos(t)+ 1.972e-01* 2.228e-03*sin(t)), 4.875e-02 +2.000*( -1.972e-01* 7.637e-03*cos(t)+ 9.804e-01* 2.228e-03*sin(t)) not
+set label "85" at 1.889e-01, 4.893e-02 center
+replot 1.889e-01+ 2.000*( 9.810e-01* 7.672e-03*cos(t)+ 1.938e-01* 2.231e-03*sin(t)), 4.893e-02 +2.000*( -1.938e-01* 7.672e-03*cos(t)+ 9.810e-01* 2.231e-03*sin(t)) not
# Age 90, p23 - p13
-set label "90" at 2.004e-01, 6.556e-02 center
-replot 2.004e-01+ 2.000*( 9.254e-01* 8.649e-03*cos(t)+ 3.789e-01* 4.358e-03*sin(t)), 6.556e-02 +2.000*( -3.789e-01* 8.649e-03*cos(t)+ 9.254e-01* 4.358e-03*sin(t)) not
+set label "90" at 2.057e-01, 6.441e-02 center
+replot 2.057e-01+ 2.000*( 9.336e-01* 8.471e-03*cos(t)+ 3.582e-01* 4.337e-03*sin(t)), 6.441e-02 +2.000*( -3.582e-01* 8.471e-03*cos(t)+ 9.336e-01* 4.337e-03*sin(t)) not
# Age 95, p23 - p13
-set label "95" at 2.085e-01, 8.777e-02 center
-replot 2.085e-01+ 2.000*( 8.603e-01* 1.326e-02*cos(t)+ 5.098e-01* 8.022e-03*sin(t)), 8.777e-02 +2.000*( -5.098e-01* 1.326e-02*cos(t)+ 8.603e-01* 8.022e-03*sin(t)) not
+set label "95" at 2.238e-01, 8.441e-02 center
+replot 2.238e-01+ 2.000*( 9.049e-01* 1.305e-02*cos(t)+ 4.257e-01* 8.023e-03*sin(t)), 8.441e-02 +2.000*( -4.257e-01* 1.305e-02*cos(t)+ 9.049e-01* 8.023e-03*sin(t)) not
set out "biaspar/varpijgrbiaspar123-13.png";replot;
set parametric;unset label
set log y;set log x; set xlabel "p23 (year-1)";set ylabel "p21 (year-1)"
-set ter png small
-set size 0.65,0.65
+set ter png small size 320, 240
set out "biaspar/varpijgrbiaspar123-21.png"
-set label "65" at 1.639e-01, 1.936e-01 center
+set label "65" at 1.338e-01, 2.481e-01 center
# Age 65, p23 - p21
-plot [-pi:pi] 1.639e-01+ 2.000*( 3.376e-02* 3.110e-02*cos(t)+ 9.994e-01* 2.119e-02*sin(t)), 1.936e-01 +2.000*( -9.994e-01* 3.110e-02*cos(t)+ 3.376e-02* 2.119e-02*sin(t)) not
+plot [-pi:pi] 1.338e-01+ 2.000*( 8.647e-03* 3.884e-02*cos(t)+ 1.000e+00* 1.767e-02*sin(t)), 2.481e-01 +2.000*( -1.000e+00* 3.884e-02*cos(t)+ 8.647e-03* 1.767e-02*sin(t)) not
# Age 70, p23 - p21
-set label "70" at 1.707e-01, 1.734e-01 center
-replot 1.707e-01+ 2.000*( 5.801e-02* 2.135e-02*cos(t)+ 9.983e-01* 1.752e-02*sin(t)), 1.734e-01 +2.000*( -9.983e-01* 2.135e-02*cos(t)+ 5.801e-02* 1.752e-02*sin(t)) not
+set label "70" at 1.460e-01, 2.084e-01 center
+replot 1.460e-01+ 2.000*( 1.255e-02* 2.493e-02*cos(t)+ 9.999e-01* 1.539e-02*sin(t)), 2.084e-01 +2.000*( -9.999e-01* 2.493e-02*cos(t)+ 1.255e-02* 1.539e-02*sin(t)) not
# Age 75, p23 - p21
-set label "75" at 1.777e-01, 1.552e-01 center
-replot 1.777e-01+ 2.000*( 8.046e-01* 1.382e-02*cos(t)+ 5.938e-01* 1.352e-02*sin(t)), 1.552e-01 +2.000*( -5.938e-01* 1.382e-02*cos(t)+ 8.046e-01* 1.352e-02*sin(t)) not
+set label "75" at 1.591e-01, 1.749e-01 center
+replot 1.591e-01+ 2.000*( 4.580e-02* 1.486e-02*cos(t)+ 9.990e-01* 1.270e-02*sin(t)), 1.749e-01 +2.000*( -9.990e-01* 1.486e-02*cos(t)+ 4.580e-02* 1.270e-02*sin(t)) not
# Age 80, p23 - p21
-set label "80" at 1.850e-01, 1.389e-01 center
-replot 1.850e-01+ 2.000*( 9.977e-01* 1.005e-02*cos(t)+ 6.821e-02* 8.213e-03*sin(t)), 1.389e-01 +2.000*( -6.821e-02* 1.005e-02*cos(t)+ 9.977e-01* 8.213e-03*sin(t)) not
+set label "80" at 1.734e-01, 1.467e-01 center
+replot 1.734e-01+ 2.000*( 9.957e-01* 9.824e-03*cos(t)+ 9.255e-02* 8.399e-03*sin(t)), 1.467e-01 +2.000*( -9.255e-02* 9.824e-03*cos(t)+ 9.957e-01* 8.399e-03*sin(t)) not
# Age 85, p23 - p21
-set label "85" at 1.926e-01, 1.243e-01 center
-replot 1.926e-01+ 2.000*( 9.869e-01* 7.531e-03*cos(t)+ 1.615e-01* 6.256e-03*sin(t)), 1.243e-01 +2.000*( -1.615e-01* 7.531e-03*cos(t)+ 9.869e-01* 6.256e-03*sin(t)) not
+set label "85" at 1.889e-01, 1.230e-01 center
+replot 1.889e-01+ 2.000*( 9.875e-01* 7.569e-03*cos(t)+ 1.578e-01* 6.226e-03*sin(t)), 1.230e-01 +2.000*( -1.578e-01* 7.569e-03*cos(t)+ 9.875e-01* 6.226e-03*sin(t)) not
# Age 90, p23 - p21
-set label "90" at 2.004e-01, 1.112e-01 center
-replot 2.004e-01+ 2.000*( 8.742e-01* 8.336e-03*cos(t)+ 4.856e-01* 7.619e-03*sin(t)), 1.112e-01 +2.000*( -4.856e-01* 8.336e-03*cos(t)+ 8.742e-01* 7.619e-03*sin(t)) not
+set label "90" at 2.057e-01, 1.031e-01 center
+replot 2.057e-01+ 2.000*( 9.508e-01* 8.134e-03*cos(t)+ 3.099e-01* 7.328e-03*sin(t)), 1.031e-01 +2.000*( -3.099e-01* 8.134e-03*cos(t)+ 9.508e-01* 7.328e-03*sin(t)) not
# Age 95, p23 - p21
-set label "95" at 2.085e-01, 9.952e-02 center
-replot 2.085e-01+ 2.000*( 9.838e-01* 1.218e-02*cos(t)+ 1.795e-01* 1.016e-02*sin(t)), 9.952e-02 +2.000*( -1.795e-01* 1.218e-02*cos(t)+ 9.838e-01* 1.016e-02*sin(t)) not
+set label "95" at 2.238e-01, 8.634e-02 center
+replot 2.238e-01+ 2.000*( 9.979e-01* 1.231e-02*cos(t)+ 6.495e-02* 9.056e-03*sin(t)), 8.634e-02 +2.000*( -6.495e-02* 1.231e-02*cos(t)+ 9.979e-01* 9.056e-03*sin(t)) not
set out "biaspar/varpijgrbiaspar123-21.png";replot;
# Routine varevsij
-set noparametric;set nolabel; set ter png small;set size 0.65, 0.65
- set log y; set nolog x;set xlabel "Age"; set ylabel "Force of mortality (year-1)";
- plot "biaspar/prmorprev1-stablbased-rbiaspar.txt" u 1:($3) not w l 1
- replot "biaspar/prmorprev1-stablbased-rbiaspar.txt" u 1:(($3+1.96*$4)) t "95% interval" w l 2
- replot "biaspar/prmorprev1-stablbased-rbiaspar.txt" u 1:(($3-1.96*$4)) not w l 2
+unset parametric;unset label; set ter png small size 320, 240
+ set log y; unset log x;set xlabel "Age"; set ylabel "Force of mortality (year-1)";
+ plot "biaspar/prmorprev1-stablbased-rbiaspar.txt" u 1:($3) not w l lt 1
+ replot "biaspar/prmorprev1-stablbased-rbiaspar.txt" u 1:(($3+1.96*$4)) t "95% interval" w l lt 2
+ replot "biaspar/prmorprev1-stablbased-rbiaspar.txt" u 1:(($3-1.96*$4)) not w l lt 2
set out "biaspar/varmuptjgr-stablbased-biaspar1.png";replot;