(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 MONOZYGOTIC 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 '( 77.8 71.79 1870 67.16 78.21 1870 73.16 82.74 1870 85.69 80.13 1870 72.93 82.93 1870 81.03 85.39 1870 72.44 70.18 1870 78.07 91.3 1871 89.92 94.67 1871 84.2 75.85 1871 63.59 75.07 1871 92.42 74.05 1871 53.16 69.09 1871 87.99 86.19 1871 78.49 78.56 1871 93.95 85.42 1871 71.98 58.42 1871 58.49 86.26 1871 68.64 92.98 1871 79.08 94.79 1872 75.91 84.56 1872 65.99 79.93 1872 77.48 79.57 1872 62.79 75.1 1872 79.43 70.62 1872 62.77 86.38 1872 80.7 78.61 1872 86.14 77.46 1873 77.29 66.99 1873 85.79 91.55 1873 94.27 89.26 1873 75.72 76.72 1873 56.92 63.81 1873 81.57 77.83 1873 56.17 49.78 1874 82.44 73.63 1874 83.03 81.73 1874 78.9 68.97 1874 73.95 59.91 1874 90.4 72.95 1874 45.03 83.88 1874 87.05 70.18 1874 61.58 65.13 1875 75.84 83.36 1875 82.46 85.44 1875 60.54 76.33 1875 87.03 64.54 1875 74.5 96.79 1875 73.02 72.62 1875 78.98 69.29 1875 60.17 82.73 1875 69.45 85.39 1875 92.13 90.13 1876 54.23 71.09 1876 73.91 72.8 1876 74.98 76.45 1876 77.45 85.45 1876 84.96 83.96 1876 70.06 70.38 1876 88 72.37 1876 86.84 84.27 1876 85.36 70.56 1876 75.06 65.55 1876 62.34 43.6 1877 70.16 83.3 1877 75.27 77.45 1877 55.24 79.47 1877 85.99 93.05 1877 71.93 42.78 1877 82.76 78.53 1877 82.88 78.12 1877 59.87 61.75 1877 81.08 100.21 1877 75.88 65.99 1877 95.24 81.98 1877 79.83 82.06 1877 82.68 88.58 1878 82.61 78.52 1878 84.87 97.47 1878 81.05 82.03 1878 49.82 66.4 1878 66.34 73.89 1878 57.05 56.55 1878 75.32 66.79 1878 52.67 52.84 1878 41.49 41.18 1879 67.39 90.69 1879 77.1 82.76 1879 67.93 57.95 1879 57.18 78.58 1879 48.9 56.48 1879 88.64 92.37 1879 83.45 68.92 1879 85.25 86.06 1879 74.27 70.72 1879 73.73 84.75 1879 62.39 77.27 1879 86.73 97.64 1879 68.67 76.85 1879 77.26 81.54 1880 43.13 67.34 1880 71.16 76.2 1880 91.26 78.8 1880 41.16 89.39 1880 88.92 100.24 1880 87.1 95.62 1880 88.26 79.17 1880 44.55 83.27 1880 79.24 47.01 1880 93.67 97.87 1880 84.47 90 1880 ) 3)))) (source) (make-reg :data data :data-names names :menu "MZtwins")) (setf pdz (plot-points deathage1 deathage2)) (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 75.85 0)