Linear Models

xxxxxxxxxx

 

1

print(r.eval("""

2

svg(filename='Rplots.svg',widt=5,height=5,pointsize=12,

3

    onefile=TRUE,family='times',bg='ghostwhite',

4

    antialias=c('default','none','gray','subpixel'))

5

model<-lm(weight~height,data=women)

6

plot(women$height,women$weight,col='violet',pch=10)

7

abline(model,col='purple'); grid(); dev.off()

8

"""))

Language: Sage Gap GP HTML Macaulay2 Maxima Octave Python R Singular

---

Messages