Discussion :

[flavii1]

Bonjour,

J'ai actuellement un souci lorsque je veux appliquer un randomForest sur un data frame. Pour pouvoir passer mes larges données par référence, je créé un environnement de cette façon:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
GetEnvironment <- function(data)
{
	if(!class(data) == "data.frame")
	{
		stop("data must be a data frame")
	}
	else
	{
		object <- new.env(parent = globalenv())
		class(object) <- 'pointer'
		return(object)
	}
}

Je fais ensuite appel à randomForest sur le data frame contenu dans l'objet "pointer":

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Error.rf <- randomForest(update(attr(classif, "formula"), Error ~ .),  data = object$data , subset = object$data$Validated)

J'obtiens alors cette erreur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Erreur dans eval(expr, envir, enclos) : objet 'object' introuvable

Je ne sais pas du tout comment régler ce problème. Pourriez-vous m'aider.

D'avance merci.

[A. D.]

Bonjour,

Je ne suis pas sûre de bien avoir compris ce que vous souhaitez faire, mais avez-vous bien pensé à lancer votre fonction "GetEnvironment" avant de faire appel à l'élément "object" dans la fonction "randomForest" ?

Bonne continuation


Cordialement,

A.D.

[flavii1]

En fait je possède un data frame assez important sur lequel j'effectue pas mal de traitement.
Étant donné que les fonctions en R passe les arguments par valeur, j'encapsule mon data frame dans un environnement car ceux-ci ont l'avantage d'être passé par référence et cela évite ainsi de copier à chaque fois l'entièreté du dataset en mémoire lorsque j'applique mes propres fonctions. J'effectue donc:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
object <- GetEnvironment(data)
# ... Plusieurs appels de fonctions pour traiter object$data puis:
Error.rf <- randomForest(update(attr(classif, "formula"), Error ~ .),  data = object$data , subset = object$data$Validated)