Repository navigation
Expand file tree
/
Copy pathscript5.R
More file actions
91 lines (81 loc) · 4.2 KB
/
Copy pathscript5.R
File metadata and controls
91 lines (81 loc) · 4.2 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
#
# script5.R
#
# Performs step 5 in the Code Book.
#
# This script massages the raw data tables so they can be
# indexed by experiment ID. We do this for each of the 9 tables
# total_acc, body_acc, and body_gyro for x, y, and z axes.
#
body_acc_x_names = names(body_acc_x)
body_acc_x_prefixes = rep("body_acc_x", times=129)
new_names = paste(body_acc_x_prefixes, ".", body_acc_x_names, sep="")
names(body_acc_x) <- new_names
body_acc_x <- rename(body_acc_x, "experiment_id"=body_acc_x.experiment_id)
body_acc_x_names <- names(body_acc_x)
new_order <- append(setdiff(body_acc_x_names, "experiment_id"), "experiment_id", after=0)
body_acc_x <- body_acc_x[, new_order]
body_acc_y_names = names(body_acc_y)
body_acc_y_prefixes = rep("body_acc_y", times=129)
new_names = paste(body_acc_y_prefixes, ".", body_acc_y_names, sep="")
names(body_acc_y) <- new_names
body_acc_y <- rename(body_acc_y, "experiment_id"=body_acc_y.experiment_id)
body_acc_y_names <- names(body_acc_y)
new_order <- append(setdiff(body_acc_y_names, "experiment_id"), "experiment_id", after=0)
body_acc_y <- body_acc_y[, new_order]
body_acc_z_names = names(body_acc_z)
body_acc_z_prefixes = rep("body_acc_z", times=129)
new_names = paste(body_acc_z_prefixes, ".", body_acc_z_names, sep="")
names(body_acc_z) <- new_names
body_acc_z <- rename(body_acc_z, "experiment_id"=body_acc_z.experiment_id)
body_acc_z_names <- names(body_acc_z)
new_order <- append(setdiff(body_acc_z_names, "experiment_id"), "experiment_id", after=0)
body_acc_z <- body_acc_z[, new_order]
body_gyro_x_names = names(body_gyro_x)
body_gyro_x_prefixes = rep("body_gyro_x", times=129)
new_names = paste(body_gyro_x_prefixes, ".", body_gyro_x_names, sep="")
names(body_gyro_x) <- new_names
body_gyro_x <- rename(body_gyro_x, "experiment_id"=body_gyro_x.experiment_id)
body_gyro_x_names <- names(body_gyro_x)
new_order <- append(setdiff(body_gyro_x_names, "experiment_id"), "experiment_id", after=0)
body_gyro_x <- body_gyro_x[, new_order]
body_gyro_y_names = names(body_gyro_y)
body_gyro_y_prefixes = rep("body_gyro_y", times=129)
new_names = paste(body_gyro_y_prefixes, ".", body_gyro_y_names, sep="")
names(body_gyro_y) <- new_names
body_gyro_y <- rename(body_gyro_y, "experiment_id"=body_gyro_y.experiment_id)
body_gyro_y_names <- names(body_gyro_y)
new_order <- append(setdiff(body_gyro_y_names, "experiment_id"), "experiment_id", after=0)
body_gyro_y <- body_gyro_y[, new_order]
body_gyro_z_names = names(body_gyro_z)
body_gyro_z_prefixes = rep("body_gyro_z", times=129)
new_names = paste(body_gyro_z_prefixes, ".", body_gyro_z_names, sep="")
names(body_gyro_z) <- new_names
body_gyro_z <- rename(body_gyro_z, "experiment_id"=body_gyro_z.experiment_id)
body_gyro_z_names <- names(body_gyro_z)
new_order <- append(setdiff(body_gyro_z_names, "experiment_id"), "experiment_id", after=0)
body_gyro_z <- body_gyro_z[, new_order]
total_acc_x_names = names(total_acc_x)
total_acc_x_prefixes = rep("total_acc_x", times=129)
new_names = paste(total_acc_x_prefixes, ".", total_acc_x_names, sep="")
names(total_acc_x) <- new_names
total_acc_x <- rename(total_acc_x, "experiment_id"=total_acc_x.experiment_id)
total_acc_x_names <- names(total_acc_x)
new_order <- append(setdiff(total_acc_x_names, "experiment_id"), "experiment_id", after=0)
total_acc_x <- total_acc_x[, new_order]
total_acc_y_names = names(total_acc_y)
total_acc_y_prefixes = rep("total_acc_y", times=129)
new_names = paste(total_acc_y_prefixes, ".", total_acc_y_names, sep="")
names(total_acc_y) <- new_names
total_acc_y <- rename(total_acc_y, "experiment_id"=total_acc_y.experiment_id)
total_acc_y_names <- names(total_acc_y)
new_order <- append(setdiff(total_acc_y_names, "experiment_id"), "experiment_id", after=0)
total_acc_y <- total_acc_y[, new_order]
total_acc_z_names = names(total_acc_z)
total_acc_z_prefixes = rep("total_acc_z", times=129)
new_names = paste(total_acc_z_prefixes, ".", total_acc_z_names, sep="")
names(total_acc_z) <- new_names
total_acc_z <- rename(total_acc_z, "experiment_id"=total_acc_z.experiment_id)
total_acc_z_names <- names(total_acc_z)
new_order <- append(setdiff(total_acc_z_names, "experiment_id"), "experiment_id", after=0)
total_acc_z <- total_acc_z[, new_order]