Affichage d'une suite de requêtes R ac PHP

Fermé
belzebate Messages postés 17 Date d'inscription vendredi 6 janvier 2012 Statut Membre Dernière intervention 17 février 2012 - 6 janv. 2012 à 16:23
Bonjour,

Voici mon script PHP:

<?php
$row = 1; // variable indiquant le numéro de la ligne traitée
if (($handle = fopen("data_xy.csv", "r+")) !== FALSE) {// si le fichier existe, traitement, sinon stop!
while (($data = fgetcsv($handle, 1000, ";")) !== FALSE) {// tant que l'on n'est pas arrivée à la fin du fichier
$num = count($data);// nombre de variable sur la ligne row
echo "$num champs à la ligne $row:<br />";
$row++;//on passe à la ligne suivante
for ($c=0; $c < $num; $c++) {// tant qu'on a pas atteint la dernière variable de la ligne row
echo $data[$c] . "<br />";
}
}
fclose($handle);// fermeture du fichier
}

?>

<?
echo (exec ("exercice.R"));
?>

mon script R :

# Data reading:
data=read.csv(file.choose(),header=T,sep=";",dec=",")


# Model fitting:
linear.model=lm(y~x,data=data)

# Summary information:
summary(linear.model)

# Graphic:
with(data,plot(x,y))
abline(linear.model,col="red",lwd=2)

Je dois effectuer un exercice "simple" pour mon stage consistant a afficher le traitement par R de mon fichier data_xy.csv avec PHP mais je vois pas où ça cloche ou alors j'ai fait sans nul doute des erreurs ...

Je ne suis pas très fort en PHP, le code R ci dessus m'était déja donné.

data reading ( après que j'ai fait ctrl+r me fait aller dans mes dossier pour prendre mon fichier .csv ), modelfitting n'affiche rien car normalement calcul les paramètres.
summary information me donne les paramètres de la forme:

Call:
lm(formula = y ~ x, data = data)

Residuals:
Min 1Q Median 3Q Max
-0.0131191 -0.0025067 0.0000646 0.0016565 0.0116565

Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 2.004048 0.004196 477.6 < 2e-16 ***
x 2.986734 0.008813 338.9 5.14e-16 ***
---
Signif. codes: 0 `***' 0.001 `**' 0.01 `*' 0.05 `.' 0.1 ` ' 1

Residual standard error: 0.007264 on 7 degrees of freedom
Multiple R-squared: 0.9999, Adjusted R-squared: 0.9999
F-statistic: 1.148e+05 on 1 and 7 DF, p-value: 5.144e-16

with(data .... y))
un graphe affichant les points de coordonées (x,y)

et enfin abline etc...
rajoute sur le graphe une ligne rouge permettant de linéarisé le modèle.

j'espère avoir été le plus précis possible ...







A voir également: