From deleeuw@stat.ucla.edu  Thu Aug 22 07:59:03 2002
From: deleeuw@stat.ucla.edu (Jan de Leeuw)
Date: Wed, 21 Aug 2002 23:59:03 -0700
Subject: More XLisp in R
In-Reply-To: <84DDFE37-B594-11D6-9066-000393860F3C@stat.ucla.edu>
Message-ID: <A48CB4E9-B59C-11D6-9066-000393860F3C@stat.ucla.edu>

Clearly the beauty of Lisp sort of gets lost. Also RXLisp
cannot return logicals, strings, lists, characters (no convertors
yet). Still, none of that is essential, and all of this is exciting.

 > .XLisp("mean",.XLisp("list",1,2))
[1] 1.5
 > .XLisp("iseq",as.integer(10))
  [1] 0 1 2 3 4 5 6 7 8 9
 > x<-1:10
 > .XLisp("elt",x,as.integer(1))
[1] 2
 > .XLisp("sample",1:20,as.integer(10),T)
  [1]  9 18  7  4 13 19  9  7  9  3
 > .XLisp("repeat",1:10,as.integer(2))
  [1]  1  2  3  4  5  6  7  8  9 10  1  2  3  4  5  6  7  8  9 10
 > .XLisp("uniform-rand",as.integer(10))
  [1] 0.33747593 0.69355427 0.97968865 0.39687786 0.81754441 0.59710673
  [7] 0.02034651 0.48217749 0.29217949 0.05538188
 > .XLisp("princ",3)
3.0[1] 3
 > .XLisp("order",c(1,3,2,5,4))
[1] 0 2 1 4 3
 > .XLisp("sort-data",c(1,3,2,5,4))
[1] 1 2 3 4 5
 > .XLisp("bivnorm-cdf",.3,.2,.6)
[1] 0.4551159
 > y<-"abcd"
 > .XLisp("length",y)
[1] 4
 > sapply(-9:9/10,function(x) .XLisp("bivnorm-cdf",0,0,x))
  [1] 0.07178343 0.10241662 0.12659185 0.14758378 0.16666680 0.18450516
  [7] 0.20150674 0.21795294 0.23405789 0.25000000 0.26594211 0.28204706
[13] 0.29849326 0.31549484 0.33333320 0.35241622 0.37340815 0.39758338
[19] 0.42821657
===
Jan de Leeuw; Professor and Chair, UCLA Department of Statistics;
US mail: 9432 Boelter Hall, Box 951554, Los Angeles, CA 90095-1554
phone (310)-825-9550;  fax (310)-206-5658;  email: deleeuw@stat.ucla.edu
homepage: http://gifi.stat.ucla.edu
   
------------------------------------------------------------------------ 
-------------------------
           No matter where you go, there you are. --- Buckaroo Banzai
                    http://gifi.stat.ucla.edu/sounds/nomatter.au
   
------------------------------------------------------------------------ 
-------------------------

-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-devel mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-devel-request@stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._


More XLisp in R
Jan de Leeuw