(defun source () (format t " Reference: Anderson, J. E., Louis, T. A., Holm, N. V. and Harvald, B. (1992). Time-dependent association measures for bivariate survival distributions. Journal of the American Statistical Association, 87, 641-650. The variables Death Age 1 and Death Age 2 are the ages at death for female DIZYGOTIC twins from the Danish Twin Registry born between 1870 and 1880. Birth Year is the year of birth. A single plot with coordinates reversed is produced after the regression is set up. ~%")) (let* ((names '("DeathAge1" "DeathAge2" "BirthYear")) (data (transpose (split-list '( 52.59 52.87 1870 80.36 73.55 1870 62.95 73.29 1870 81.93 64.9 1870 83.39 50.07 1870 77.55 84.68 1870 61.55 77.07 1870 79.9 64.23 1870 62.96 76.98 1870 73.34 91.9 1870 76.85 61.58 1870 71.07 71.32 1870 85.84 64.4 1870 54.32 84.98 1871 72.19 62.06 1871 86.21 75 1871 91.26 77.96 1871 73.91 65.06 1871 82.42 88.64 1871 51.52 64.03 1871 86.5 91.95 1871 49.74 77.15 1871 84.28 81.14 1871 67.21 92.56 1871 89.58 86.19 1871 74.56 82.16 1872 80.1 52.06 1872 68.42 83.23 1872 90.66 72.39 1872 80.73 87.09 1872 82.16 73.62 1872 86.9 68.14 1872 85.41 84.24 1872 64.89 44.59 1872 77.47 55.53 1872 74.9 80.88 1872 85.93 68.81 1872 67.26 73.29 1872 54.59 94.79 1872 74.64 80.3 1872 85.42 46.18 1872 77.07 87.35 1872 89.81 90.16 1872 79.16 83.9 1872 80.89 74.17 1873 74.26 78.07 1873 79.52 74.78 1873 67.44 74.1 1873 44.57 78.08 1873 75.4 77.64 1873 79.41 55.46 1874 71.94 72.89 1874 87.77 85.12 1874 73.8 62.5 1874 49.23 64.8 1874 44.94 85.39 1874 61.71 83.42 1874 87.72 87.3 1874 71.24 56.98 1874 79.48 79.58 1874 47.01 77.31 1874 76.21 66.74 1874 58.69 72.15 1874 40.73 76.24 1874 75.23 80.03 1874 63.57 78.29 1875 79.41 51.85 1875 79.4 88.13 1875 82.03 85.65 1875 45.27 80.42 1875 73.04 42.33 1875 85.72 74.56 1875 66.85 71.32 1875 60.84 92.01 1875 96.91 93.36 1875 54.32 81.46 1875 88.68 92.86 1875 83.09 93.76 1875 62.18 83.7 1875 89.82 84.63 1875 64.7 91.75 1875 78.35 86.38 1875 75.44 78.81 1876 89.43 69.93 1876 65.08 71.36 1876 48.39 74.15 1876 80.19 45.83 1876 73.22 75.5 1876 78.08 78.63 1876 77.71 85.45 1876 80.83 87.78 1876 78.2 77.76 1876 73.07 78.28 1876 86.82 92.3 1876 52.7 60.37 1876 86.61 68.49 1876 76.13 96.24 1876 70.7 56.2 1876 83.9 91.01 1876 63.17 77.39 1876 88.87 42.46 1877 72.3 53.57 1877 52.99 77.68 1877 68.89 90.1 1877 77.47 63.79 1877 61.95 69.86 1877 62.7 75.3 1877 59.03 51.25 1877 60.15 46.98 1877 89.7 69.28 1877 88.47 80.73 1877 76.85 65.36 1877 87.02 89.47 1877 42.95 87.84 1877 91.07 84.46 1877 98.25 96.16 1877 81.29 81.24 1877 41.82 64.88 1877 75.71 79.36 1877 44.82 69.18 1877 78.38 91.11 1877 67.78 71.89 1877 57.28 96.18 1877 73.98 65.47 1877 70.66 74.76 1878 79.23 76.1 1878 44.27 71.06 1878 62.97 86.1 1878 73.79 87.31 1878 42.61 43.4 1878 44.79 84.93 1878 94.12 51.21 1878 73.97 67.99 1878 76.21 57.99 1878 82.56 67.72 1878 98.85 80.54 1878 43.42 66.02 1878 77.52 55.84 1878 74.79 56.96 1879 75.14 79.48 1879 42.18 78.52 1879 92.54 61.56 1879 40.62 74.58 1879 70.61 85.64 1879 54.84 56.09 1879 85.64 101.53 1879 74.98 83.34 1879 78.44 53.92 1879 59.7 93.51 1879 73.83 88.14 1879 71.12 87.82 1879 85.22 79.33 1880 58.84 54.15 1880 72.99 58.91 1880 77.96 56.56 1880 80.09 95.46 1880 56.77 102 1880 80.09 48.41 1880 77.25 88.53 1880 95.02 94.22 1880 79.02 86.87 1880 90.52 91.27 1880 81.2 78.51 1880 77.46 78.12 1880 41.96 66.07 1880 77.99 56.15 1880 73.25 73.97 1880 97.61 99.32 1880 53.57 75.85 1880 69.72 42.73 1880 82.54 99.39 1880 74.71 83.38 1880 72.69 67.45 1880 91.87 41.76 1880 62.68 82.39 1880 98.84 50.11 1880 88.13 76.83 1880 73.27 78.26 1880 87.85 78.86 1880 95.36 46 1880 68.7 70.58 1880 52.1 89.84 1880 63.13 91.01 1880 70.79 79.21 1880 ) 3)))) (source) (make-reg :data data :data-names names :menu "DZtwins")) (setf pdz (plot-points deathage1 deathage2)) ; :variable-label (list 0 1) ;(list "Death Age" "Death Age"))) (send pdz :add-points deathage2 deathage1) (send pdz :plot-controls) (send pdz :variable-label 0 "Death Age") (send pdz :variable-label 1 "Death Age") (send pdz :adjust-to-data) (send pdz :range 0 36 108) (send pdz :range 1 36 108) (send pdz :abline 73.82 0)