R : Copyright 2004, The R Foundation for Statistical Computing

Version 2.0.1 (2004-11-15), ISBN 3-900051-07-0

R is free software and comes with ABSOLUTELY NO WARRANTY.

You are welcome to redistribute it under certain conditions.

Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.

Type 'contributors()' for more information and

'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or

'help.start()' for a HTML browser interface to help.

Type 'q()' to quit R.

[Previously saved workspace restored]

> local({fn<-choose.files(filters=Filters[c('R','txt','All'),],index=4)

+ file.show(fn,header=fn,title='')})

> local({fn<-choose.files(filters=Filters[c('R','txt','All'),],index=4)

+ file.show(fn,header=fn,title='')})

> chemostat<-raed.table('chemostat.txt',header=T)

Error: couldn't find function "raed.table"

> chemostat<-read.table('chemostat.txt',header=T)

Error in file(file, "r") : unable to open connection

In addition: Warning message:

cannot open file `chemostat.txt'

> chemostat<-read.table("chemostat.txt",header=T)

Error in file(file, "r") : unable to open connection

In addition: Warning message:

cannot open file `chemostat.txt'

> local({fn<-choose.files(filters=Filters[c('R','txt','All'),],index=4)

+ file.show(fn,header=fn,title='')})

> chemostat<-read.table("chemostat.txt",header=T)

Error in file(file, "r") : unable to open connection

In addition: Warning message:

cannot open file `chemostat.txt'

> Attach(chemostat)

Error: couldn't find function "Attach"

> attach(chemostat)

Error in attach(chemostat) : Object "chemostat" not found

> local({fn<-choose.files(filters=Filters[c('R','txt','All'),],index=4)

+ file.show(fn,header=fn,title='')})

> attach(chemostat.dat.txt)

Error in attach(chemostat.dat.txt) : Object "chemostat.dat.txt" not found

> chemostat<-read.table("chemostat.dat.txt",header=T)

> attach(chemostat)

> par(mfrow = c(2,2))

> bakt1 <-lm(fjoldi~timi, data=chemostat)

> bakt!

Error: syntax error

> bakt1

Call:

lm(formula = fjoldi ~ timi, data = chemostat)

Coefficients:

(Intercept) timi

-2423.31 29.17

> >

> summary(bakt1)

Call:

lm(formula = fjoldi ~ timi, data = chemostat)

Residuals:

Min 1Q Median 3Q Max

-2995.9 -1582.2 326.9 1271.7 2973.2

Coefficients:

Estimate Std. Error t value Pr(>|t|)

(Intercept) -2423.307 1108.486 -2.186 0.060283 .

timi 29.172 4.889 5.967 0.000336 ***

---

Signif. codes: 0 `***' 0.001 `**' 0.01 `*' 0.05 `.' 0.1 ` ' 1

Residual standard error: 2070 on 8 degrees of freedom

Multiple R-Squared: 0.8165, Adjusted R-squared: 0.7936

F-statistic: 35.6 on 1 and 8 DF, p-value: 0.0003355

> Bakt2 <- lm( log( fjoldi ) ~ timi )

> summary( Bakt2)

Call:

lm(formula = log(fjoldi) ~ timi)

Residuals:

Min 1Q Median 3Q Max

-0.42885 -0.08762 0.03371 0.12267 0.33484

Coefficients:

Estimate Std. Error t value Pr(>|t|)

(Intercept) 3.5562794 0.1250076 28.45 2.52e-09 ***

timi 0.0150713 0.0005513 27.34 3.46e-09 ***

---

Signif. codes: 0 `***' 0.001 `**' 0.01 `*' 0.05 `.' 0.1 ` ' 1

Residual standard error: 0.2334 on 8 degrees of freedom

Multiple R-Squared: 0.9894, Adjusted R-squared: 0.9881

F-statistic: 747.3 on 1 and 8 DF, p-value: 3.457e-09

> plot(timi, fjoldi )

> abline(Bakt1)

Error in abline(Bakt1) : Object "Bakt1" not found

> abline(bakt1)

> plot( fitted( bakt1 ), resid( bakt1 ) )

> plot( log(fjoldi)~timi)

> abline(Bakt2)

> plot(resid(Bakt2 )~fitted( Bakt2 ) )