Communication VBA & R, pour regression

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:

---

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:

---

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

Bonjour,

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

Code:

---

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:

---

Summary(fct)

---

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

Quelqu'un aurait il une petite idee?

Merci

Bonjour,

Tu peux exécuter un fichier .exe avec VBA

Code:

---

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:

---

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

---

Cordialement.

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:

---

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:

---

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:

---

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

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

Code:

---

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:

---

names(fct)

---

Cordialement.

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

Sur Google, je viens de trouver cela.

Code:

---

summary(fct)$r.squared

---

Cordialement.

Merci infiniment, je viens de tester, je ne l'avais pas trouvé.

C'est parfait.

Tres bonne journée a toi.

Georges