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 ) )