Started experiment

write.R

@@ -22,7 +22,7 @@ i <- grep("^Room_.*spTemperature__northq", idtags$VarName)
 ## ------------------------------------------------------------------------
 ## Read the single room experiment
 X <- read.table("prbs-singleroom-experiment/outchannels/rooms_temperature.csv", sep=",", header=TRUE)
-X$t <- asp("2019-12-20 11:00") + X$t * 3600
+X$t <- asp("2019-12-20 23:00") + X$t * 3600
 x <- X$x
 X$x <- NULL
 
@@ -103,5 +103,5 @@ names(Xres)[-it] <- unlist(sapply(names(Xres)[-it], function(nm){ idtags$channel
 write.table(Xres, "../buildingctrl/sender/senddata.csv", sep=",", row.names=FALSE)
 
 ## Copy to the server
-##system("scp ../buildingctrl/sender/senddata.csv pbac@vmpbac1.compute.dtu.dk:~/buildingctrl/sender/")
+system("scp ../buildingctrl/sender/senddata.csv pbac@vmpbac1.compute.dtu.dk:~/buildingctrl/sender/")