(make-array (list l1 l1) :initial-element 0)) (ra (mapcar #'(lambda (x y) (mapcar #'(lambda (z w) (setf (aref va x z) (aref smm-1 y w))) missind (iseq (length missind)))) missind (iseq (length missind))))) va)) 22) (list vi smm-1 smo))) (t (cond ((not (not missind)) (list (inverse sig))) (t (list 0 (mapcar #'(lambda (x) (elt x i)) data))))))) (defun impute (params missind presind mu data i) "Ar...