Bonjour,

J'ai un soucis car je n'arrive pas à faire passer mes deux objets data et modele dans une fonction que j'ai écrite.

Alors qu'en copiant les lignes de la fonction dans la commande, tout marche.

Voici le main :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
source("mon chemin de la fonction backtest")	
 
data_modelisation=read.table("mon chemin",header=TRUE, sep="\t", na.strings="NA", dec=",", strip.white=TRUE)	
modele=glm(RA ~ varA varB ,family=binomial(logit), data=data_modelisation)
 
data=read.table("chemin",header=TRUE, sep="\t", na.strings="NA", dec=",", strip.white=TRUE)
backtest(data,modele)
Et la fonction :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Backtest = function (modele,data)
{
 
		#Prévision des probabilités
		prevision=predict(modele,newdata=data,type="response")
		data$prevision <- with(data, prevision)
		summary(data)
 
		#Prévision des modalités
		pred.moda <- factor(ifelse(prevision > 0.5,1,0))
		data$pred.moda <- with(data, pred.moda)
 
		RA_nb_model=sum(data$prevision)/(12*length(data$prevision)) 
		RA_nb_reel=sum(data$RA)/length(data$prevision)
 
		resultat =c(RA_nb_model,RA_nb_reel)
		return(resultat)
 
 
 
}
Merci à ceux qui pourront m'aider