Test_08/12/2016

require(ggplot2)
require(scales)
require(gridExtra)
require(grid)
require(dplyr)
require(reshape2)
require(lubridate)
require(ggthemes)
require(xlsx)
require(zoo)
require(xts)

## [1] "M14.csv" "MV6.csv"

No Signal Value - set to : -200

rm(list=ls())
setwd('/Users/mpetric/Desktop/Avia_wsn/')
load("dat.Rda")

---

• 2016-12-08 13:13:00 CET - Nodes placed at 50 m
  
• 2016-12-08 13:44:00 CET - Nodes placed at 75 m
• 2016-12-08 14:40:00 CET - Nodes placed at 100 m
• 2016-12-08 15:29:00 CET - Nodes placed at 125 m
• 2016-12-08 17:03:00 CET - Nodes placed at Avia

---

g<-g + geom_vline(xintercept=as.numeric(as.POSIXct('2016-12-08 13:13:00 CET')),   linetype=4,show.legend=TRUE)
g<-g+ geom_text(aes(y=0,x=as.POSIXct('2016-12-08 13:13:00 CET')),label='50 m',col='blue')
g<-g + geom_vline(xintercept=as.numeric(as.POSIXct('2016-12-08 13:44:00 CET')), linetype=4,show.legend=TRUE)
g<-g+ geom_text(aes(y=0,x=as.POSIXct('2016-12-08 13:44:00 CET')),label='75 m',col='blue')
g<-g + geom_vline(xintercept=as.numeric(as.POSIXct('2016-12-08 14:40:00 CET')), linetype=4,show.legend=TRUE)
g<-g+ geom_text(aes(y=0,x=as.POSIXct('2016-12-08 14:40:00 CET')),label='100 m',col='blue')
g<-g + geom_vline(xintercept=as.numeric(as.POSIXct('2016-12-08 15:29:00 CET')), linetype=4,show.legend=TRUE)
g<-g+ geom_text(aes(y=0,x=as.POSIXct('2016-12-08 15:29:00 CET')),label='125 m',col='blue')
g<-g + geom_vline(xintercept=as.numeric(as.POSIXct('2016-12-08 17:03:00 CET')), linetype=4,show.legend=TRUE)
g<-g+ geom_text(aes(y=0,x=as.POSIXct('2016-12-08 17:03:00 CET')),label='Avia',col='blue')

g

1. 56 and 63 loose contact already at 75 m - and these we’re the nodes that showed interference on the indoor test as well

gg