library("Hmisc")
library(Hmisc)
install.packages("Hmisc")
library(Hmisc)
setwd("~/Documents/enliten/mss_study/data/sd")
?tryCatch
data <- read.csv('./sn_bedroom/13072401.CSV', head=T)
catDate <- function(df, start) {
start <- as.numeric(as.POSIXct(start, "%Y-%m-%d %H:%M:%S", tz="BST"))
df <- data.frame(utime=0,df)
df$utime[1] <- start
for(i in c(2:nrow(df))) {
diff <- as.numeric(difftime(strptime(df[i,3], "%H:%M:%S"),strptime(df[i-1,3], "%H:%M:%S")))
tryCatch(diff < 0, error=function(e) print(i))
if(diff < 0)
diff <- diff + 24
df$utime[i] <- df$utime[i-1] + 60*diff
}
df$utime <- sapply(df$utime, function(x) x - x%%60)
return(df)
}
dave <- sort(levels(data[,2]))
dave[1:10]
cr.data <- data
rm(data)
cr.data <- cr.data[,substr(colnames(cr.data),1,5) != "Units"]
s.year <- "2013"
s.month <- substr(colnames(cr.data)[1],5,6)
s.day <- substr(colnames(cr.data)[1],2,3)
dave[35040]
dave[35000:350040]
dave[35000:35040]
?table
table(cr.data[,2])
titty<-table(sort(cr.data[,2]))
titty[35000:35040]
"23" > "22"
"23:23" > "23:22"
"23:23" > "23:25"
cr.data <- cr.data[cr.data[,2] < "24:00:00",]
rond <- cr.data[,2] < "24:00:00"
rond <- as.character(cr.data[,2]) < "24:00:00"
cr.data <- cr.data[as.character(cr.data[,2] < "24:00:00"),]
s.year <- "2013"
cr.data <- cr.data[as.character(cr.data[,2]) < "24:00:00",]
df <- read.csv('../analysis_datasets/wide/sn_bedroom.csv', head=T)
df[1:10,]
df$utime <- df$utime + 3600
write.table(df, file="../analysis_datasets/wide/sn_bedroom.csv", quote=F,sep=",",row.names=F)
df[1:10,]
cr.data <- read.csv('../sd/sn_living_room/sn_living_room.csv', head=T)
dave <- sort(levels(cr.data[,2]))
dave[33300:33312]
dave[1:10]
"0" > "00:00:00"
"-0.000" > "00:00:00"
