[R-SIG-Mac]how fast is R on Mac

[Jan de Leeuw]

I am assuming you want the difference between the two date()
(before and after) returned.

This is on a single-processor 733 Mhz G4.

R-1.3.0 Carbon running natively in OS X: 32 seconds
R-1.3.0 Darwin: 35 seconds
R-2.0.0 Darwin: 34 seconds

This suggests that the two implementations have about the
same speed, and that they are about twice as fast as a PIII/600
(which happens to be equal to the Steve Jobs Demo Factor).


On Thursday, July 26, 2001, at 12:19 PM, Jason Liao wrote:

> I am interested in knowing the speed of R on Mac OS X. Can anyone run
> the following code? It runs on a Pentium III 600 MH with 57 seconds.
> Please indicate the hardware configration. Thanks in advance.
>
> Jason Liao
>
>    hyper <- function(n1,n2,m1,psi)
>    {
>       mode.compute <- function()
> 	  {
> 	     a <- psi - 1;
> 		 b <- (m1+n1+2)*psi + n2-m1 ;
> 		 b <- -b;
> 		 c <- psi*(n1+1)*(m1+1);
> 		 q <- b + sign(b)*sqrt(b*b-4*a*c);
> 		 q <- -q/2;
> 		
> 		 return(c/q);
> 	  }	
> 	
>       N <- n1+n2;	
>       l <- max(0, m1-n2);
> 	  u <- min(n1, m1);
>
> 	  mode <- mode.compute()
>
> 	  return(mode);
>     }	
> 	
> 	print(date());
> 	sum <- 0;
> 	for(i in 1:100000)
> 	{
> 	  odds.ratio <- exp(runif(1));
> 	  sum <- sum + hyper(50, 50, 50, odds.ratio);
> 	}
> 	print(date());
> 	print(date());
> 		
> 		
>
> =====
> Jason G. Liao
> Department of Biometry and Epidemiology
> Medical University of South Carolina
> 135 Rutledge Ave., STE 1148, Charleston, SC 29425
> phone (843) 876-1114, fax (843) 876-1126
>
> http://www.geocities.com/jg_liao/index.html
>
> __________________________________________________
> Do You Yahoo!?
> Make international calls for as low as $.04/minute with Yahoo! Messenger
> http://phonecard.yahoo.com/
> _______________________________________________
> R-SIG-Mac mailing list
> R-SIG-Mac@stat.math.ethz.ch
> http://www.stat.math.ethz.ch/mailman/listinfo/r-sig-mac
>

===
Jan de Leeuw; Professor and Chair, UCLA Department of Statistics;
US mail: 9432 Boulter Hall, Box 951554, Los Angeles, CA 90095-1554
phone (310)-825-9550;  fax (310)-206-5658;  email: deleeuw@stat.ucla.edu
homepage: http://www.stat.ucla.edu/~deleeuw
========================================================
           No matter where you go, there you are. --- Buckaroo Banzai
                    http://www.stat.ucla.edu/~deleeuw/sounds/nomatter.au
========================================================