mustafaascha

---
title: "Customer Service Survey EDA"
author: Brad Lindblad, MBA
output: 
  pdf_document: 
    number_sections: yes
    toc: yes
  html_notebook: 
    number_sections: yes
    theme: journal

mustafaascha

pubmed_cv <- function(fl_nm) {
  library(tidyverse)

  readLines("pubmed_result.txt") %>% 
  (function(z) z[z != ""]) %>%
  (function(cv) {
    grep("^[0-9]+?:", trimws(cv)) %>% 
    list(
      beginnings = ., 

mustafaascha

Nvim-R-Tmux: Neovim-based IDE for R

---

Table of Content

1. Overview
2. Installation
   1. Neovim
3. Tmux

mustafaascha

library(tidyverse)

rm_rownames <- function(z) {
  rownames(z) <- NULL
  z
}

sz_message <- function(sz, p_nm, ttl, bs) {
  p_mn <- round(mean(sz[[p_nm]], na.rm = T))

mustafaascha

#' Notes from Clinical Information Systems, October 2 2018
#' 
# Contents ========================================
#' 
#' From 2018
#' 1. Human immunodeficiency status versus white 
#'    blood cell counts, visualization and modeling
#' 2. Body mass index versus dietary habits (salt intake 
#'    and salmon consumption)
#' 3. Income and fast-food consumption

mustafaascha

#' Notes from Clinical Information Systems, October 2 2018
#' 
# Contents ========================================
#' 
#' From 2018
#' 1. Human immunodeficiency status versus white 
#'    blood cell counts, visualization and modeling
#' 2. Body mass index versus dietary habits (salt intake 
#'    and salmon consumption)
#' 

mustafaascha

#Notes from Clinical Information Systems, October 3 2017

# Contents ===================================================================

# 1. HPV frequencies, model

# 2. Vitamin D and depression

# Setup =====================================================================

mustafaascha

09:27 ~: ssh -vv -i ./.ssh/dataincubator vagrant@XXX.XXX.XX.XXX
OpenSSH_7.5p1, OpenSSL 1.0.2l  25 May 2017
debug1: Reading configuration data /Users/mustafaascha/.ssh/config
debug1: Reading configuration data /usr/local/etc/ssh/ssh_config
debug2: resolving "XXX.XXX.XX.XXX" port 22
debug2: ssh_connect_direct: needpriv 0
debug1: Connecting to XXX.XXX.XX.XXX [XXX.XXX.XX.XXX] port 22.
debug1: Connection established.
debug1: identity file ./.ssh/dataincubator type 1
debug1: key_load_public: No such file or directory

mustafaascha

#’ Create a Kaplan-Meier plot using ggplot2
#’
#’ @param sfit a \code{\link[survival]{survfit}} object
#’ @param returns logical: if \code{TRUE}, return an ggplot object
#’ @param xlabs x-axis label
#’ @param ylabs y-axis label
#’ @param ystratalabs The strata labels. \code{Default = levels(summary(sfit)$strata)}
#’ @param ystrataname The legend name. Default = “Strata”
#’ @param timeby numeric: control the granularity along the time-axis
#’ @param main plot title

mustafaascha

set.seed(12121212)

library(network)

nw_random <-  function(prob, size_net) { 
    network(x = matrix(rbinom(size_net ^ 2, 1, prob = prob), ncol = size_net, nrow = size_net))
}

library(ggnetwork)