iccsa-21-wind

commit 39c7a388abf35e1f90074d2151d6c1d695806f57
parent b01df3952464949a914cb211effff1f21bf59758
Author: Ivan Gankevich <i.gankevich@spbu.ru>
Date:   Mon, 26 Apr 2021 14:22:26 +0300

add mean speed values

Diffstat:
R/vtestbed.R
 | 
6
++++++

1 file changed, 6 insertions(+), 0 deletions(-)
diff --git a/R/vtestbed.R b/R/vtestbed.R
@@ -7,6 +7,12 @@ time_end = time_start
 time_delta = 60*60*2
 
 data <- read.table("samples/vtestbed/statistics.log", sep=",", header=TRUE)
+x_mean = -2.439
+y_mean = -2.158
+z_mean = -1.367
+data$wind_velocity_x = data$wind_velocity_x + x_mean
+data$wind_velocity_y = data$wind_velocity_y + y_mean
+data$wind_velocity_z = data$wind_velocity_z + z_mean
 #data <- data[c("time","wind_velocity_x","wind_velocity_y","wind_velocity_z")]
 #plot(data$time, data$wind_velocity_x)
 #plot(data$time, data$wind_velocity_y)