Как включить р <0,05 и установить пороговое значение r Пирсона в q-графе?

Question

Я пробую соотношение и qgraph и почти готово ... (см .: Как включить p-значения <0,05 в q-графы? </a>) Как сразу фильтровать r и p-значения Пирсона вqgraph?

#Thanks to Calvin Whealton, he gave us a very useful syntax       
 several years ago.
# see https://stackoverflow.com/users/4916708/calvin-whealton 
#looping through all elements and setting values to NA when p-    
  values is greater than 0.05

>for(i in 1:nrow(cor_d100_partition_all3)){
  for(j in 1:nrow(cor_d100_partition_all3)){
    if(p.mat[i,j] > 0.05){cor_d100_partition_all3_mod[i,j] <- NA}}}

# For instance
#pick up r value
occor.r = occor$r 
#pick up p value
occor.p = occor$p 
# filtered r value and p value at once
occor.r[occor.p>0.05|abs(occor.r)<0.15] = 0 

Мне интересно, могу ли я отфильтровать значение r Пирсона и значение p одновременно, с помощью цикла или другого метода.