In marleneweinauer/iatools:

library(knitr)
knitr::opts_chunk$set(echo = F, warning = F)
options(width = 10000)

In diesem Report geht es um Interviewer r interviewer.

# Achtung! Dieses RMD kann nur in Kombination mit render_specific.r laufen. 
# Dort werden die benötigten Daten erstellt. 
# TODO: wahrscheinilch noch zu ändern 

R Answer Shares

if (exists("shares_rmd")) {
kable(shares_rmd, row.names = T)
} else {
  cat("This method was not applied!")
}

Time Patterns

Quantile Method

#if (exists("split_DT")) {
#kable(split_DT)
#} else {
#  cat("This method was not applied!")
#}

if (exists("split_DT")) {
for (el in names(split_DT)) {
 # cat("### ", el, "\n")
print(kable(split_DT[names(split_DT) == el][[1]], topn = 100, row.names = T) )
  #cat("\n\n")}
}
} else {
  cat("This method was not applied!")
}

20%-Quantile Method

if (exists("q20_conspi_rmd")) {
kable(q20_conspi_rmd, row.names = T)
} else {
  cat("This method was not applied!")
}

Median

if (exists("median_conspi_rmd")) {
kable(median_conspi_rmd, row.names = T)
} else {
  cat("This method was not applied!")
}

marleneweinauer/iatools documentation built on Jan. 13, 2020, 3:24 p.m.