(def multi2-school (read-data-columns "multi2-school.dat" 8))
 (def SCHOOL_ID (select multi2-school 0))
 (def G8CTRL (select multi2-school 1))
 (def BYSC47D (select multi2-school 2))
 (def BYSCENRL (select multi2-school 3))
 (def G8URBAN (select multi2-school 4))
 (def G8REGON (select multi2-school 5))
 (def G8MINOR (select multi2-school 6))
 (def BYRATIO (select multi2-school 7))


(def  multi2-school-code-miss (mapcar #'code-missing (list '() '() '8 
                             '() '() '8 '8 ()) multi2-school))
 
 (def multi2-school-miss-ind (make-indicator multi2-school-code-miss))

 (defun sum-list (x)
       (let ((sum 0))
         (dolist (i x sum)
                 (setf sum (+ sum i)))))

 (def num-miss-sch (mapcar #'sum-list multi2-school-miss-ind))    

;;;;;;     Note: number missing for each variable.

  (load "casep")

  (def multi2-school-comp (select-observed multi2-school-code-miss))