In 419kfj/NeoRun: Convet NeoRun backup format data to dataframe

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "README-"
)

NeoRun

EPSON のSF810 がNeoRunにuploadしたデータのbackup形式をもとに、分析をするツール

Installation

以下のようにしてインストールできます。

# install.packages("devtools")
devtools::install_github("419kfj/NeoRun")

Example

NeoRunから、backup形式でダウンロードしたファイル（csv）を入力としてRのデータフレームに変換します。

library(psych)
library(tidyverse)
library(NeoRun)

# sample data としてついてます。"20170801-20170801.csv"

fname <- "inst/extdata/20170801-20170801.csv"
res <-  NeoRun_data(fname)

res$base # Data Description
names(res$Lap) # 要約されたLapデータ
nrow(res$Lap)
names(res$Graph) # GPS data
nrow(res$Graph)
summary(res$Graph)

names(res$Graph)
res$Graph %>% select("GraphDistance","GraphSpeed","HeartRate") %>%
  pairs.panels(main=res$base)

宇都宮マラソン2016のデータ

fname = "inst/extdata/20151115-20151115.csv"
res <-  NeoRun_data(fname)

names(res$Graph)
res$Graph %>% select("GraphDistance","GraphSpeed","GraphPitch","GraphStride","HeartRate") %>%
  pairs.panels(main=res$base)

res$Graph %>% select("HeartRate") %>% unlist() %>% hist()

Lap Data 表を取得

knitr::kable(lap_table(fname),caption = "宇都宮マラソン2016")

419kfj/NeoRun documentation built on July 13, 2020, 5:27 p.m.