Merge branch 'master' of https://github.com/PerryXDeng/wheatyeeters

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)