---
pagetitle: hbiostat
output: html_document
---

<!-- Usage: knitrg index -->

<style>
body {
  background-color: cornsilk;
}
</style>

# hbiostat

| | | |
|:--|:--|:--|
|Frank E Harrell Jr PhD<br><small>Professor of Biostatistics<br>Department of Biostatistics<br>Vanderbilt University School of Medicine<br>Nashville TN USA&emsp;[\@f2harrell](https://twitter.com/f2harrell) [Contacts](fh/contacts.html)</small>|Frank Harrell Consulting<br><br><img src="img/consultlogo.jpg" width="100px">| <img src="bbr/logo.png" width="300px">||
|||

<br>
```{r setup,echo=FALSE,results='asis'}
cat(readLines('~/doc/html/hanalytics.html'), sep='\n')
maketab <- function(headings, ...) {
  w <- list(...)
  nc <- length(w)
  if(length(headings) != nc) stop('wrong number of columns')
  r <- max(sapply(w, length))
  top <- paste0('|', paste0(headings, collapse='|'), '|')
  top2 <- paste0('|', paste0(rep(':---', nc), collapse='|'), '|')
  z <- rep('|', r)
  for(u in w) {
    url   <- u
    label <- names(url)
    plus <- substring(label, 1, 1) == '+'
    label <- ifelse(plus, substring(label, 2), label)
    # If url starts with ! remove the ! and assume the rest is preformatted
    leave <- substring(url, 1, 1) == '!'
    url   <- ifelse(leave, paste0(' ', substring(url, 2)), paste0('(', url, ')'))
    label <- ifelse(leave, label, paste0('[', label, ']'))
    label <- ifelse(plus, paste0('&emsp;', label), label)
    m     <- length(url)
    if(m < r) {
      url  <- c(url, rep('', r - m))
      label <- c(label, rep('', r - m))
    }
    z <- paste0(z, label, url, '|')
  }
  cat(top, top2, z, sep='\n')
}
```

```{r table,results='asis',echo=FALSE}
head <- c('Teaching', 'R Packages', 'Discussion Boards', 'F Harrell&emsp; [Contacts](fh/contacts.html)')

bbr <- '!<a href="bbr"><img src="img/home.png" width=20></a> <a href="bbr"><img src="img/notebook.png" width=20></a> <a href="https://bit.ly/yt-bbr"><img src="img/yt.png" width=20></a>'
rms <- '!<a href="rms"><img src="img/home.png" width=20></a> <a href="rmsc"><img src="img/notebook.png" width=20></a> <a href="https://www.youtube.com/channel/UC2qvW5vuAZm91-KIV4Y83MQ"><img src="img/yt.png" width=20></a> <a href="https://discourse.datamethods.org/t/rms-discussions"><img src="img/discourse.png" width=20></a>'

teach <- c('<a title="Biostatistics for Biomedical Research">BBR</a>'=bbr,
           '<a title="Regression Modeling Strategies">RMS</a>'=rms,
#           '+Course notes'='bbr',
#           '+YouTube channel'='https://bit.ly/yt-bbr',
#           RMS='rms',
#           '+Course notes'='rmsc',
#           '+Discussion #board'='https://discourse.datamethods.org/t/rms-discussions',
#           '+YouTube channel'='https://www.youtube.com/channel/UC2qvW5vuAZm91-KIV4Y83M',
           Bayes='bayes',
           'Ordinal Regression'='ordinal',
					 'R Workflow'='rflow',
           Graphics='doc/graphscourse.pdf',
					 'Reproducible research'='rr',
           'Author checklist'='https://discourse.datamethods.org/t/author-checklist',
           Glossary='glossary')

r <- c(Hmisc='R/Hmisc',
       rms='R/rms',
			 rmsb='R/rmsb',
       hreport='R/hreport',
       greport='R/greport',
			 qreport='R/qreport',
       'R scripts'='https://github.com/harrelfe/rscripts',
			 'Report template'='rr/index.html#template',
       Github='https://github.com/harrelfe')

disc <- c('datamethods.org <img src="img/discourse.png" width=20>'='https://discourse.datamethods.org',
          stats.stackexchange.com='https://stats.stackexchange.com',
          stackoverflow.com='https://stackoverflow.com/questions/tagged/r',
					'',
					'Recommended blogs'='blogs.html')

fh <- c('Statistical Thinking News'='/news',
				Blog='https://fharrell.com',
        Bio='fh',
        Publications='https://www.zotero.org/groups/feh/items/q/Harrell',
        'Bibliographic database'='bib',
        'Talks:'='![<small>Main</small>](https://fharrell.com/#talks) [<small>Others</small>](https://hbiostat.org/talks) [<small>Older</small>](/talks/Older)',
#        '+Others'='https://hbiostat.org/talks',
        'Stackexchange posts'='http://stats.stackexchange.com/users/4253',
        'Computing tools'='fh/tools.html')
#        Hobbies='fh/hobbies.html')

maketab(head, teach, r, disc, fh)
```