View sf12v2.R
#' SF12v2 questionnaire scoring
library(synapseClient)
synapseLogin()
healthSurveyId <- "syn10278768"
healthSurvey <- synTableQuery(paste("select * from", healthSurveyId))@values
questionCols <- names(healthSurvey)[12:23]
sf <- healthSurvey[c("recordId", "healthCode", "dataGroups", questionCols)] %>%
filter(dataGroups %in% c("beta_thalassemia", "myelodysplastic_syndrome", "myelofibrosis")) %>% na.omit()
sf12v2 <- function( X = NULL ) {
View QC.Rmd
title output date
JourneyPRO - on-going summary
html_document html_notebook pdf_document
default
default
default
`r format(Sys.time(), '%d %B, %Y')`
View exportMD5.py
import bridgeclient
import hashlib
import pandas as pd
import synapseclient as sc
import argparse
SYNAPSE_TABLES = {
'journey-pro': 'syn11439373',
'elevate-ms': 'syn11439398',
'lilly-presence': 'syn11445782'}
View plotHeartRate.py
import synapseclient as sc
import matplotlib.pyplot as plt
import pandas as pd
import argparse
def read_args():
parser = argparse.ArgumentParser(description='Plot camera vs oximeter readings.')
parser.add_argument('medianData')
return parser.parse_args()