Displaying 1 result from an estimated 1 matches for "mixnew".
Did you mean:
mixn
2008 Jul 23
1
Calling LISP programs in R
...uot;;
PUT "(setq z (sqrt (/ (* -2 (log w)) w))";
PUT "x (* u z)";
PUT "y (* v z)";
PUT "mix (append (list x) mix)";
PUT "mix (append (list y) mix)))))";
PUT "(setq mix (remove nil mix)";
PUT "mixnew (loop for x in mix append (list(+ Mn (* SD x)))))";
PUT "(print mixnew)";
PUT "(flet(( mean(zlist)";
PUT "(setq sum (loop for x in zlist sum x))";
PUT "(setq m (/ sum (length zlist)))))";
PUT '(pprint (list "The mean is:" (mea...