Commit fe5c2dc1 authored by Weigert, Andreas's avatar Weigert, Andreas
Browse files

changed time periods

parent 3e1ecb5c
......@@ -89,13 +89,13 @@ calcFeatures.smd <- function(SMD){
dm15=matrix(as.numeric(SMD),ncol=7)
# define some times
weekday <- 1:(5*4*24)
weekday <- 1:(5*4*24)
weekend <- (5*4*24+1):672
night <- ( 1*4+1):(6*4)
morning <- ( 6*4+1):(10*4)
night <- 1:(6*4)
morning <- (6*4+1):(10*4)
noon <- (10*4+1):(14*4)
afternoon <- (14*4+1):(18*4)
evening <- (18*4+1):(22*4)
evening <- (18*4+1):(24*4)
#data.frame for the results
D=data.frame(c_week=mean(dm15, na.rm = T))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment