R help - Jun 2013 - return p-value in a t.test function

Hi,
Try this:
set.seed(24)
?b1<- sample(1:40,20,replace=TRUE)
?set.seed(28)
?a1<- sample(30:50,20,replace=TRUE)
t_test_apparie <- function(x,y)
{
t.test(x,y,paired=TRUE,alternative = "greater")$p.value
} 

t_test_apparie(a1,b1)
#[1] 6.571404e-08
A.K.


>Hi, 
>
>I have written this function : 
>
>t_test_apparie <- function(x,y) 
>{ 
>t.test(x,y,paired=TRUE,alternative = "greater") 
>} 
>
>I would like that ONLY the p-value gets returned. How would I do that? 
>
>Thanks.