9
modificacions
Lixiaoxu
Membre des de 6 jul 2009
cap resum d'edició
Cap resum de modificació |
Cap resum de modificació |
||
| Línia 7: | Línia 7: | ||
<Rform name="owndata"> | <Rform name="owndata"> | ||
Enter your own data for a scatterplot:<br> | Enter your own data for a scatterplot:<br> | ||
You can use <a href="https://spreadsheets.google.com/ccc?key=0Aic4pmEZm32xclhJZm9hNWFyZlZOV1RSV19xWXRlbmc&hl=en">the free online spreadsheet </a> of Google Docs to edit your data before pasting | You can use <a href="https://spreadsheets.google.com/ccc?key=0Aic4pmEZm32xclhJZm9hNWFyZlZOV1RSV19xWXRlbmc&hl=en">the free online spreadsheet </a> of Google Docs to edit your data before pasting. Just click the link, need NO login.<br> | ||
<textarea name="mydata" rows="8"> | <textarea name="mydata" rows="8"> | ||
1.262954285 3.8739569 | 1.262954285 3.8739569 | ||
| Línia 36: | Línia 36: | ||
pdf(rpdf, width=6, height=6) | pdf(rpdf, width=6, height=6) | ||
lm.m<-lm(x[,2]~x[,1]); | |||
main<-paste(main,'\nV2 =',round(lm.m$coefficients[1],3),'+',round(lm.m$coefficients[2],3),'*V1 + ',round(summary(lm.m)$sigma,3),'*e') | |||
plot(x, cex=2, main=main) | plot(x, cex=2, main=main) | ||
abline(lm | abline(lm.m) | ||
</R> | </R> | ||