From 6d25e735c5d520767aa31d35bf5ee4c4f08b6359 Mon Sep 17 00:00:00 2001
From: jrtechs <jxr8142@rit.edu>
Date: Fri, 29 Mar 2019 20:12:43 -0400
Subject: [PATCH] Added basic data input for gps data to git.

---
 data_preparation/dataPrep.R | 77 +++++++++++++++++++++++++++++++++++++
 1 file changed, 77 insertions(+)
 create mode 100644 data_preparation/dataPrep.R

diff --git a/data_preparation/dataPrep.R b/data_preparation/dataPrep.R
new file mode 100644
index 0000000..a27a239
--- /dev/null
+++ b/data_preparation/dataPrep.R
@@ -0,0 +1,77 @@
+# Look at data
+
+
+
+library(tidyverse)
+
+gpsData <- read.csv("data/gps.csv")
+
+
+gpsDataTibble <- as_tibble(gpsData)
+
+
+
+
+workingTibble <- head(gpsDataTibble, 100000)
+
+
+playerIds <-unique(workingTibble$PlayerID)
+
+
+gameIds <- unique(workingTibble$GameID)
+
+
+playerIDMetrics <- c()
+gameIDMetrics <- c()
+averageSpeed <- c()
+
+accelDistance <- c()
+
+
+for(playerID in playerIds)
+{
+  for(gameID in gameIds)
+  {
+    cat(playerID, gameID , '\n', sep=" ")
+    speedTibble <- subset(workingTibble, GameID == gameID & PlayerID == playerID)
+    
+    
+    # crunch average speed    
+    averageSpeed <- c(averageSpeed, mean(speedTibble$Speed))
+    
+    # average for accel value  
+    
+    accelDistance <- c(accelDistance, mean(sqrt(speedTibble$AccelX^2 + speedTibble$AccelY^2 + speedTibble$AccelZ^ 2)))
+    
+    
+    #xAccel <- c(xAccel, mean(speedTibble$AccelX))
+    #yAccel <- c(yAccel, mean(speedTibble$AccelY))
+    #zAccel <- c(zAccel, mean(speedTibble$AccelZ))
+    
+  
+    # game and player id to vector
+    playerIDMetrics <- c(playerIDMetrics, playerID)
+    gameIDMetrics <- c(gameIDMetrics, gameID)
+  }
+}
+
+
+plot(accelDistance, averageSpeed)
+
+
+
+
+
+
+rpeData <- read.csv("./data/rpe.csv")
+rpeDataTibble <- as_tibble(rpeData)
+
+
+gameData <- read.csv("./data/game.csv")
+gameDataTibble <- as_tibble(gameData)
+
+
+wellnessData <- read.csv("./data/wellness.csv")
+wellnessDataTibble <- as_tibble(wellnessData)
+
+head(gpsData)
\ No newline at end of file