Please see attached zip folder. Script has instructions.

####################################################################
####################################################################
## temperature logger data
## notice all the 'buttonX.txt' files
## these are outputs from ibutton temperature loggers
## placed at different points within a forest,
## including within the soil, on the soil and on tree branches
## have a look at the 'button1.txt' data file using a text editor such as notepad
## notice the two columns
## the first column shows a date-time stamp in the format day:hour:minute
## the second column shows the temperature recorded at that time
## read it in and have a look
## notice we have to use 'read.table' instead of 'read.csv' because it is a text file
tempdata <- read.table('button1.txt',header=TRUE)
head(tempdata)
## we could try plotting time against temp
plot(tempdata$time,tempdata$temp,t='l')
## it kind of works, but it looks a bit strange
## this is because time is a character string, not a number
## so it has been read in as a factor
tempdata$time
## we could just plot by index and get a fairly good plot
plot(tempdata$temp,t='l')
## and now the second button
tempdata2 <- read.table('button2.txt',header=TRUE)
head(tempdata2)
## we use lines instead of plot, so that we keep the first plot
lines(tempdata2$temp,t='l',col='red')
## looks easy, but notice the logger is starting from a different time,
## so the x-axis is not comparable
## we need to process the time stamp to make it numerically meaningful
## see if you can follow what each of these lines is doing - ask if in any...