| @ -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) | |||