This page is hosted on AFS file server space, which is being shut down on November 13, 2018.
If you are seeing this message, your service provider needs to take steps now.
Visit afs.unc.edu for more information.

and Statistical Visualization

; ;-=-=-=-=-=-=-= ;Combine plots and regression ;-=-=-=-=-=-=-= ; ;Create a plot and send regression coefficients to it to show the regression line (setf plot (plot-points travel-space separation)) (def bikes (regression-model travel-space separation)) (setf coefs (send bikes :coef-estimates)) (send plot :abline (first coefs) (second coefs)) ;Do the same for quadratic regression (def bikes2 (regression-model (list travel-space (^ travel-space 2)) separation)) (setf coefs2 (send bikes2 :coef-estimates)) (def x (rseq 12 22 50)) (def y (+ (first coefs2) (* (second coefs2) x) (* (third coefs2) (^ x 2)))) (send plot :add-lines x y) ;Look at the residuals of both (send bikes :plot-residuals) (send bikes2 :plot-residuals) ; ;-=-=-=-=-=-=-= ;Dynamic histogram controlled by a slider ;-=-=-=-=-=-=-= ; (def h (histogram (normal-rand 20))) (defmeth h :new-sample () (send self :clear :draw nil) (send self :add-points (normal-rand 20))) (dotimes (i 50) (send h :new-sample)) (defmeth h :new-sample () (send self :add-points (normal-rand 20))) (dotimes (i 50) (send h :new-sample)) (send h :clear) ;-=-=-=-=-=-=-= (defun bc (x p) (let* ((bcx (if (< (abs p) .0001) (log x) (/ (^ x p) p))) (min (min bcx)) (max (max bcx)) ) (/ (- bcx min) (- max min)))) (def precip (sort-data precipitation)) (def nq (normal-quant (/ (iseq 1 30) 31))) (plot-points (iseq 1 30) nq) (def plot (plot-points nq (bc precip 1))) (defun change-power (p) (send plot :clear :draw nil) (send plot :add-points nq (bc precip p))) (change-power .5) (sequence-slider-dialog (rseq -5 5 71) :action #'change-power)