################################################### ### Preliminaries ################################################### source("data_set.R") data(JQL_references) ################################################### ### Table ################################################### appendix_rankings <- cbind( rankings, JQL_references[rankings, ] ) colnames(appendix_rankings) <- c("Abbreviation", "Institution", "Country", "Source") ## fix names too long appendix_rankings["Bjm04", "Institution"] <- "Business and Management 2001 RAE/UK" appendix_rankings ## HTML: ## xt_rankings <- xtable(appendix_rankings[order(rownames(appendix_rankings)),], ## caption = "Table 1: Journal rankings and corresponding abbreviations", ## label = "tab:journal_rankings", ## display = c("d", rep("s", 4))) ## print( xt_rankings, include.rownames = FALSE, type = "HTML")