Изоморфизм графа: доступ к локальной переменной глобально

Question

Я хочу напечатать окончательный ответ R вне цикла. А также я хочу получить доступ только к тем объектам графа, которые являются изоморфными. Может ли кто-нибудь помочь?

g1 <- graph.ring(10 , directed = FALSE) 
g2 <- graph.ring(5 , directed = FALSE) 
g3 <- graph.ring(7 , directed = FALSE) 
g4 <- graph.ring(6 , directed = FALSE) 
g5 <- graph.ring(8 , directed = FALSE) 

g <- list(g1,g2,g3,g4,g5) 
g 


iso = function(g,i,j) 
{ 

    r <- graph.isomorphic(g[[i]],g[[j]]) 
    return(r) 
    print(g[[i]]) 
    print(g[[j]]) 

}

for(i in 1:5) 
{ 
    for(j in 1:5) 
    { 
     r= iso(g , i , j) 
     print(r) 
     print(g[[i]]) 
     print(g[[j]]) 
    } 

} 

Answer 1

Ваш вопрос не очень понятно, но я постараюсь ответить на эту часть:

я хочу, чтобы напечатать окончательный ответ г вне цикла.

То, что вы хотите сделать, это установить переменную в родительском фрейме цикла. Это может быть сделано с помощью оператора <<-:

r <<- iso(g , i , j) 

Затем после цикла вы можете позвонить:

print(r)