oldwash dataframe has 49 rows and 8 columns.
The data are from the start up of a wash still considering the amount of time it takes to heat up to a specified temperature and possible influencing factors.
A data frame with 49 observations on the following 8 variables.
character, the date of the run
degrees Celsius, numeric, initial temperature
degrees Celsius, numeric, final temperature
in minutes, numeric, amount of time to reach final temperature
in litres, numeric, amount of liqiud in the tank (max 2000L)
numeric, the percentage of alcohol present in the liquid
character, relates to the person who ran the still
factor with levels 1 = first time through, 2 = second time through
The purpose of the wash still is to increase the percentage of alcohol and strip out unwanted particulate. It can take a long time to heat up and this can lead to problems in meeting production time limits.
Charisse Woods, Endless Summer Distillery (2014)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
oldwash.lm<-lm(log(time)~startT+endT+Vol+alc+who+batch,data=oldwash) summary(oldwash.lm) par(mfrow=c(2,2)) plot(oldwash.lm) data2<-subset(oldwash,batch==2) hist(data2$time) data1<-subset(oldwash,batch==1) hist(data1$time) oldwash.lmc<-lm(time~startT+endT+Vol+alc+who+batch,data=data1) summary(oldwash.lmc) plot(oldwash.lmc) oldwash.lmd<-lm(time~startT+endT+Vol+alc+who+batch,data=data2) summary(oldwash.lmd) plot(oldwash.lmd)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.