-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathclean-both-platform-data.R
More file actions
130 lines (106 loc) · 4.87 KB
/
clean-both-platform-data.R
File metadata and controls
130 lines (106 loc) · 4.87 KB
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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
Sys.setlocale("LC_TIME", "C")
setwd("~/exports")
merged.ubuntu <-
read.csv("merged_my_ubuntu.csv",
header = TRUE,
strip.white = TRUE)
merged.ubuntu$time = as.character(merged.ubuntu$time)
merged.windows <-
read.csv("merged_my_windows.csv",
header = TRUE,
strip.white = TRUE)
merged.windows$time = as.character(merged.windows$time)
merged.ubuntu = merged.ubuntu[merged.ubuntu$ac_connected_bool, ]
merged.windows = merged.windows[merged.windows$ac_connected_bool, ]
merged.windows = merged.windows[!is.na(merged.windows$time), ]
merged.windows = merged.windows[!is.na(merged.windows$charging_bool), ]
merged.windows = merged.windows[!is.na(merged.windows$discharging_bool), ]
merged.windows$cpu_cores <- 4
merged.ubuntu$real_power[merged.ubuntu$real_power < 0] = 0
merged.windows$real_power[merged.windows$real_power < 0] = 0
merged.windows = merged.windows[merged.windows$real_power > 8, ]
merged.ubuntu = merged.ubuntu[merged.ubuntu$real_power > 8, ]
merged.windows = merged.windows[merged.windows$real_power < 66, ]
merged.ubuntu = merged.ubuntu[merged.ubuntu$real_power < 66, ]
merged.windows$charging_bool = as.factor(merged.windows$charging_bool)
merged.ubuntu$charging_bool = as.factor(merged.ubuntu$charging_bool)
merged.windows$discharging_bool = as.factor(merged.windows$discharging_bool)
merged.ubuntu$discharging_bool = as.factor(merged.ubuntu$discharging_bool)
merged.windows$download_upload_kb = merged.windows$download_kb + merged.windows$upload_kb
merged.ubuntu$download_upload_kb = merged.ubuntu$download_kb + merged.ubuntu$upload_kb
merged.windows$read_write_request = merged.windows$read_request_per_s + merged.windows$write_request_per_s
merged.ubuntu$read_write_request = merged.ubuntu$read_request_per_s + merged.ubuntu$write_request_per_s
merged.ubuntu$read_write_request[merged.ubuntu$read_write_request > 1000] = 1000
merged.windows$read_write_request[merged.windows$read_write_request > 1000] = 1000
merged.ubuntu$read_write_request = merged.ubuntu$read_write_request / 10
merged.windows$read_write_request = merged.windows$read_write_request / 10
merged.ubuntu$download_upload_kb[merged.ubuntu$download_upload_kb > 1000] = 1000
merged.windows$download_upload_kb[merged.windows$download_upload_kb > 1000] = 1000
merged.ubuntu$download_upload_kb = merged.ubuntu$download_upload_kb / 10
merged.windows$download_upload_kb = merged.windows$download_upload_kb / 10
names(merged.windows)[names(merged.windows) == 'real_power'] = "real.power"
names(merged.windows)[names(merged.windows) == 'power_rate_w'] = "battery.rate"
names(merged.windows)[names(merged.windows) == 'charging_bool'] = "charging.status"
names(merged.windows)[names(merged.windows) == 'brightness_percent'] = "brightness"
names(merged.windows)[names(merged.windows) == 'remaining_capacity_percent'] = "battery.capacity"
names(merged.windows)[names(merged.windows) == 'cpu_usage_percent'] = "cpu.usage"
names(merged.windows)[names(merged.windows) == 'memory_percent'] = "memory.usage"
names(merged.windows)[names(merged.windows) == 'download_upload_kb'] = "download.upload"
names(merged.windows)[names(merged.windows) == 'read_write_request'] = "read.write"
names(merged.ubuntu)[names(merged.ubuntu) == 'real_power'] = "real.power"
names(merged.ubuntu)[names(merged.ubuntu) == 'power_rate_w'] = "battery.rate"
names(merged.ubuntu)[names(merged.ubuntu) == 'charging_bool'] = "charging.status"
names(merged.ubuntu)[names(merged.ubuntu) == 'brightness_percent'] = "brightness"
names(merged.ubuntu)[names(merged.ubuntu) == 'remaining_capacity_percent'] = "battery.capacity"
names(merged.ubuntu)[names(merged.ubuntu) == 'cpu_usage_percent'] = "cpu.usage"
names(merged.ubuntu)[names(merged.ubuntu) == 'memory_percent'] = "memory.usage"
names(merged.ubuntu)[names(merged.ubuntu) == 'download_upload_kb'] = "download.upload"
names(merged.ubuntu)[names(merged.ubuntu) == 'read_write_request'] = "read.write"
filtered.ubunutu.save <-
merged.ubuntu[merged.ubuntu$dm_enabled, c(
"brightness",
"charging.status",
"cpu.usage",
"memory.usage",
"battery.rate",
"battery.capacity",
"download.upload",
"read.write",
"real.power"
)]
filtered.ubunutu.normal <-
merged.ubuntu[!merged.ubuntu$dm_enabled, c(
"brightness",
"charging.status",
"cpu.usage",
"memory.usage",
"battery.rate",
"battery.capacity",
"download.upload",
"read.write",
"real.power"
)]
filtered.windows.save <-
merged.windows[merged.windows$dm_enabled, c(
"brightness",
"charging.status",
"cpu.usage",
"memory.usage",
"battery.rate",
"battery.capacity",
"download.upload",
"read.write",
"real.power"
)]
filtered.windows.normal <-
merged.windows[!merged.windows$dm_enabled, c(
"brightness",
"charging.status",
"cpu.usage",
"memory.usage",
"battery.rate",
"battery.capacity",
"download.upload",
"read.write",
"real.power"
)]