jkbest2

{"workoutId":325425615,"ownerId":94187609,"workoutName":"Scott's Killer Core Workout ×2","description":null,"updatedDate":"2021-04-20T03:50:12.0","createdDate":"2021-04-05T21:36:33.0","sportType":{"sportTypeId":5,"sportTypeKey":"strength_training","displayOrder":4},"subSportType":null,"trainingPlanId":null,"author":{"userProfilePk":null,"displayName":null,"fullName":null,"profileImgNameLarge":null,"profileImgNameMedium":null,"profileImgNameSmall":null,"userPro":false,"vivokidUser":false},"sharedWithUsers":null,"estimatedDurationInSecs":null,"estimatedDistanceInMeters":null,"workoutSegments":[{"segmentOrder":1,"sportType":{"sportTypeId":5,"sportTypeKey":"strength_training","displayOrder":4},"workoutSteps":[{"type":"RepeatGroupDTO","stepId":2269055165,"stepOrder":1,"stepType":{"stepTypeId":6,"stepTypeKey":"repeat","displayOrder":6},"childStepId":1,"numberOfIterations":2,"workoutSteps":[{"type":"ExecutableStepDTO","stepId":2269055166,"stepOrder":2,"stepType":{"stepTypeId":3,"stepTypeKey":"interval","displayOrder

jkbest2

> compile("VAST_v8_0_0.cpp")
Note: Using Makevars in /home/jkbest/.R/Makevars 
ccache clang++ -Qunused-arguments -I"/usr/share/R/include" -DNDEBUG -I/home/jkbest/R/x86_64-pc-linux-gnu-library/3.6/TMB/include -I/home/jkbest/R/x86_64-pc-linux-gnu-library/3.6/RcppEigen/include  -DTMB_SAFEBOUNDS -DLIB_UNLOAD=R_unload_VAST_v8_0_0  -DTMB_LIB_INIT=R_init_VAST_v8_0_0     -fpic  -g -O2 -fdebug-prefix-map=/build/r-base-SQC8bE/r-base-3.6.0=. -fstack-protector-strong -Wformat -Werror=format-security -Wdate-time -D_FORTIFY_SOURCE=2 -g  -c VAST_v8_0_0.cpp -o VAST_v8_0_0.o
In file included from VAST_v8_0_0.cpp:1:
In file included from /home/jkbest/R/x86_64-pc-linux-gnu-library/3.6/TMB/include/TMB.hpp:53:
In file included from /home/jkbest/R/x86_64-pc-linux-gnu-library/3.6/RcppEigen/include/Eigen/Dense:1:
In file included from /home/jkbest/R/x86_64-pc-linux-gnu-library/3.6/RcppEigen/include/Eigen/Core:535:
/home/jkbest/R/x86_64-pc-linux-gnu-library/3.6/RcppEigen/include/Eigen/src/Core/util/ReenableStupidWarnings.h:10:30: war

jkbest2

Keybase proof

I hereby claim:

• I am jkbest2 on github.
• I am jkbest (https://keybase.io/jkbest) on keybase.
• I have a public key ASAuN0bTYsWZjQ4LS89Cf69VKSts5R6qaBWVDe38ygQvCwo

To claim this, I am signing this object:

jkbest2

library(tidyverse)
library(shiny)

## Import data from the web so the app doesn't depend on user's working
## directory etc.
kids_raw <- read_csv("http://www.stat.columbia.edu/~gelman/arm/examples/cd4/allvar.csv",
                     col_types = cols(VISIT = col_integer(),
                                      newpid = col_factor(),
                                      VDATE = col_date("%m/%d/%Y"),
                                      CD4PCT = col_double(),

jkbest2

;; packages.el --- zen Layer for Spacemacs
;;
;; Copyright (c) 2018 John Best
;;
;; Author: John Best <jkbest@gmail.com>
;; URL: <github.com/jkbest2/zen-layer>
;;
;; This file is not part of GNU Emacs
;; This file uses `zen-mode', available at
;; <https://github.com/aki237/zen-mode>, but is

jkbest2

jkbest2

count_data_gaps <- function(series) {
  count <- sum(is.na(series) & !is.na(lag(series)))
  
  if (is.na(tail(series, n = 1L)) && any(!is.na(series))) {
    count <- count - 1L
  }
               
  as.integer(count)
}

jkbest2

library(dplyr)
library(tidyr)
library(magrittr)
library(ggplot2)
"http://academic.udayton.edu/kissock/http/Weather/gsod95-current/AKFAIRBA.txt" %>%
	read.table() %>% data.frame %>% tbl_df -> data
names(data) <- c("month", "day", "year", "temp")

data %>%
	group_by(year, month) %>%