Discussion :

[Georges23]

Bonjour à toute la communauté R !

Je suis actuellement en train de développer un outil de régression multilinéaire, afin d'expliquer les variations d'une variable en fonction de plusieurs autres.

Pour ce faire, je souhaite utiliser R, que je piloterais par VBA. C'est-à-dire que j'extrais mes données dans VBA, je les traite (de façon à ce qu'elles soient homogènes en termes de date, d'unité, etc..) et je les envoie (à l'aide d'un variant) dans R.
Puis R me retourne mes coefficients.

Premier problème, pour envoyer le variant dans R grace a la fonction :

Code :

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

RInterface.PutArrayFromVBA("DatasReg", var_datas)

En effet, si je set le variant comme un Range("A1").CurrentRegion, alors là pas de problème. Seulement, quand je "fabrique" moi-même le variant, en determinant moi-même toutes les données, j'ai un message d'erreur par la suite dans mon tableau de retour :

Code :

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

1
2
Var_Coefficients = RInterface.GetArrayToVBA("lm(REG~A16+A17+A18+A19+A20+A21+A22,data=DatasReg)$coefficients")
-->"#RError"

A priori, le variant que je fabrique est exactement le même ! Savez-vous d'où vient le problème?

2ème probleme :
Comment faire pour extraire le R2 de mes coefficients retournés par R?

Merci infiniment de votre aide !

Georges

[Georges23]

Bonjour,

Juste pour faire simple, j'aimerai exécuter les lignes de codes suivantes dans R, de facon automatique / pilotee par VBA:

Code :

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

1
2
3
> table=read.csv("Y:\\Admin\\DataReg.csv",header=TRUE,sep=",")
> fct=lm(REG~A16+A17+A18+A19+A20+A21+A22,data=table)
> summary(fct)

et récuperer les données renvoyées par

Code :

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

Summary(fct)

idéalement dans un variant / csv produit par R.

Quelqu'un aurait il une petite idee?

Merci

[dev_ggy]

Bonjour,

Tu peux exécuter un fichier .exe avec VBA

Code :

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

RetVal = Shell("C:\Program Files\R\R-2.15.2\bin\Rscript.exe", 1)

et il existe sous R dans le repertoire bin un fichier exe Rscript.exe que tu peux lancer et exécuter du code R à partir d'un fichier.

Cela répond a ta question ?

Pour la création d'un cvs tu peux avoir ce type de code

Code :

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

write.table(MyData, "out.dat", sep = ";")

Cordialement.

[Georges23]

Merci beaucoup pour ta reponse dev_ggy,

en fait, en exécutant le .exe, j'ai une fenêtre ms-dos qui s'ouvre, puis qui se ferme immediatement.

En cherchant une alternative, je suis tombé sur

Code :

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

RInterface.RunRFile "Y:\\Admin\\Test.txt"

Dans le fichier Test.txt en question, dois-je mettre exactement le code que je souhaite exécuter comme ceci, brut?

Code :

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

1
2
3
table=read.csv("Y:\\Admin\\DataReg.csv",header=TRUE,sep=",")
fct=lm(REG~A16+A17+A18+A19+A20+A21+A22,data=table)
summary(fct)

Ensuite, pour la génération du CSV, j'ai essayé à partir de la console R, mais j'ai le message d'erreur suivant :

Code :

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

1
2
3
> write.table(summary(fct), "Y:\\Admin\\DataOut.csv", sep = ";")
Error in as.data.frame.default(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors) : 
  cannot coerce class '"summary.lm"' into a data.frame

Je pense que je ne suis pas trop loin...

Merci

Georges

[dev_ggy]

Tu ne peux pas exécuter ce type de code :

Code :

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

write.table(summary(fct), "Y:\\Admin\\DataOut.csv", sep = ";")

La raison en est que la fonction summary ne renvoie pas un tableau. Tu dois extraire les données que tu souhaites de ta régression et faire un fichier par tableau extrait.

Pour connaitre tous les paramètres que tu peux extraire de la fonction lm tu peux taper :

Code :

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

names(fct)

Cordialement.

[Georges23]

Super, merci infiniment.

Ca marche très bien quand effectivement, je génère / récupère le tableau de données.

Cependant, en essayant d'extraire tous les paramètres de ma régression names(fct), je n'ai rien trouvé qui ressemble de près ou de loin a mon R2.

Saurais-tu quelle est la commande à exécuter pour extraire cette data?

Merci encore.

Georges