R variables globales locales

Question

Je suis en train de mettre à jour une variable globale (noms de matrice: "confusion.mat") dans une fonction

register.hit <-function(categ){ 
    confusion.mat[categ,categ] = confusion.mat[categ,categ] + 1 
    } 
sapply(intersection.list,register.hit) 

données:

confusion.mat <- structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0), .Dim = c(3L, 3L)) 
intersection.list <- c(1, 2) 

cependant, la confusion variable globale .mat n'est pas mis à jour (en mode débogage, j'ai remarqué que la variable locale confusion.mat dans la fonction register.hit est mise à jour correctement). Toute aide appréciée

Answer 1

après de longues recherches sur Google, je trouve que l'opérateur < < - assigne une variable globale dans un champ de fonction donc je change ma code en conséquence:

register.hit <-function(categ){ 
    confusion.mat[categ,categ] <<- confusion.mat[categ,categ] + 1 
    } 

et il fonctionne

Answer 2

Voici une manière vectorisée d'obtenir le même résultat:

confusion.mat <- structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0), .Dim = c(3L, 3L)) 
confusion.mat[cbind(intersection.list, intersection.list)] <- 
    confusion.mat[cbind(intersection.list, intersection.list)] + 1 
#  [,1] [,2] [,3] 
#[1,] 1 0 0 
#[2,] 0 1 0 
#[3,] 0 0 0