library(psych) library(tidyverse) library(NeoRun) # rmarkdown::html_vignette #vignette: > # %\VignetteIndexEntry{Vignette Title} # %\VignetteEngine{knitr::rmarkdown} # %\VignetteEncoding{UTF-8}
"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)
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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.