Off topic:Question about ifelse in R

Question

[mms140130]

Hello,

I have a loop code where I find the linear regression of several variables, and I report the F test and the P-value and the code stope when the regression with intercept only

so I wrote in the loop the following

>  mymodel=lm(gene ~ . ,data=mydata)
 mm=(summary(mymodel))
> 
> ifelse(mm$fstatistic==NULL,NA,pvalue)
>  pvalue= pf(mm$fstatistic[1],mm$fstatistic[2],mm$fstatistic[3],lower.tail=FALSE)

but it doesn't work as I get the following error

Error in pf(mm$fstatistic[1], mm$fstatistic[2], mm$fstatistic[3], lower.tail = FALSE) : 
  Non-numeric argument to mathematical function

any help ?