From f0cded585df324a8e6eddcb4afc16e47547553f0 Mon Sep 17 00:00:00 2001 From: AJ Rossini Date: Mon, 16 Mar 2009 14:53:20 +0100 Subject: [PATCH] demo cleanup Signed-off-by: AJ Rossini --- ls-demo.lisp | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/ls-demo.lisp b/ls-demo.lisp index f837a75..60be783 100644 --- a/ls-demo.lisp +++ b/ls-demo.lisp @@ -3,7 +3,7 @@ ;;; See COPYRIGHT file for any additional restrictions (BSD license). ;;; Since 1991, ANSI was finally finished. Edited for ANSI Common Lisp. -;;; Time-stamp: <2009-03-10 20:45:49 tony> +;;; Time-stamp: <2009-03-12 23:18:12 tony> ;;; Creation: sometime in 2006... ;;; File: ls-demo.lisp ;;; Author: AJ Rossini @@ -395,8 +395,8 @@ iron ;; rclg-init::*r-started* (rclg-init::check-stack) (r "Cstack_info") -(defparameter *x* (r seq 1 10)) -(defparameter *y* (rnbi rnorm 10)) +(defparameter *x* (r seq 1 11)) +(defparameter *y* (r rnorm 10)) *y* (r plot *x* *y*) *y* @@ -618,7 +618,7 @@ my.lib *y* ) - +(in-package :ls-user) (progn (defparameter *x* (make-vector 5 :initial-contents '((1d0 2d0 3d0 4d0 5d0)))) @@ -636,9 +636,9 @@ my.lib ;; estimating variance, Moments (let ((meanx (mean *x*)) (n (nelts *x*))) - (/ (loop for i from 0 to (- n 1) + (/ (loop for i from 0 to (1- n) summing (* (- (vref *x* i) meanx) - (- (vref *x* i) meanx) )) + (- (vref *x* i) meanx))) n)) ;; estimating variance, Moments -- 2.11.4.GIT