Hi chen,
avoid naming the function with specific expressions (:,;.....) and try 
this code as follow

Scripranksum<- function(a){
   g1<- c(1, 2, 3)
   g2<- c(4, 5, 6, 7, 8, 9, 10, 11, 12)
   c<- wilcox.test(a[g1], a[g2])
   return (c$p.value)
}

Best
Mohamed

Le 17/02/11 08:15, Mr rong chen a écrit :
> Scrip:ranksum<- function(a){
>    g1<- c(1, 2, 3)
>    g2<- c(4, 5, 6, 7, 8, 9, 10, 11, 12)
>    c<- wilcox.test(a[g1], a[g2])
>    return c$p.value
> }


-- 
####################################
Mohamed Lajnef,IE INSERM U955 eq 15#
Pôle de Psychiatrie 		   #	
Hôpital CHENEVIER                  #
40, rue Mesly                      #
94010 CRETEIL Cedex FRANCE         #
Mohamed.lajnef@inserm.fr           #
tel : 01 49 81 31 31 (poste 18467) #
Sec : 01 49 81 32 90               #
fax : 01 49 81 30 99               #
####################################



	[[alternative HTML version deleted]]

