demand-manager-data/simulation.R at master · i13DR/demand-manager-data · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Sys.setlocale("LC_TIME", "C")

setwd("~/exports")

mean.windows.normal = mean(merged.windows.normal$real_power)
mean.windows.save = mean(merged.windows.save$real_power)

mean.ubuntu.normal = mean(merged.ubuntu.normal$real_power)
mean.ubuntu.save = mean(merged.ubuntu.save$real_power)

# attach(mtcars)
# par(mfrow=c(3,1))

plot(
  x = merged.windows.normal$power_rate_w,
  y = merged.windows.normal$real_power,
  main = "Windows Normal",
  xlab = "App Measured Power (watts)",
  ylab = "Meter Measured Power (watts)",
  pch="*",
  col="blue"
)

plot(
  x = merged.windows.save$power_rate_w,
  y = merged.windows.save$real_power,
  main = "Windows Save",
  xlab = "App Measured Power (watts)",
  ylab = "Meter Measured Power (watts)",
  pch="*",
  col="blue"
)

plot(
  x = merged.ubuntu.normal$power_rate_w,
  y = merged.ubuntu.normal$real_power,
  main = "Ubuntu Normal",
  xlab = "App Measured Power (watts)",
  ylab = "Meter Measured Power (watts)",
  pch="*",
  col="blue"
)

plot(
  x = merged.ubuntu.save$power_rate_w,
  y = merged.ubuntu.save$real_power,
  main = "Ubuntu Save",
  xlab = "App Measured Power (watts)",
  ylab = "Meter Measured Power (watts)",
  pch="*",
  col="blue"
)