(defun theta_lst(sch_id num_resam weight_lst g b bootstrap)
"Args: Returns a list of thetas according to Rao and Wu's paper."
   (let* ((t_lst nil)))
   (dotimes (i b)
      (let* (
              (x (bootstrap sch_id num_resam weight_lst g))
              (t_lst (append t_lst (list (copy-list x))))
            )
      )
   )

)
*************************************************
(defun theta_lst(sch_id num_resam weight_lst b)
   (setf t_lst nil)
   (dotimes (i b)
       (setf x (nai_boo1 sch_id num_resam weight_lst))
       (setf t_lst (combine t_lst x))
   )
(rest t_lst)                     
)