library(psych)
library(tidyverse)
library(NeoRun)
# rmarkdown::html_vignette
#vignette: >
#  %\VignetteIndexEntry{Vignette Title}
#  %\VignetteEngine{knitr::rmarkdown}
#  %\VignetteEncoding{UTF-8}

sample data を読み込み、datafarmeに変換する

"20170801-20170801.csv"^[A これはNeoRunのバックアップ機能を用いて保存した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$base %>% str_split(",") %>% unlist %>% .[2] %>% paste(.,"2016") -> title
res$Graph %>% select("GraphDistance","GraphSpeed","GraphPitch","GraphStride","HeartRate") %>%
  pairs.panels(main=title)


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