Summary of EM tracts connecting to the LH.

emlhtractsummary.R

library(xtable)

#Sheet 6 from LHN Tract summary spreadsheet
data <- as.data.frame(read.csv("~/Desktop/lhntractdata.csv"))

#remove total row
data<- data[1:(nrow(data)-1),]

#cols_wanted for table & round
cols_wanted <- c(1,2,3,4,19,20)
table_data <- data[,cols_wanted]

table_data[,c(5,6)] <- round(table_data[,c(5,6)])

#Make range column
rangecol <- c()
for (i in 1:nrow(table_data)) {
    rangecol <- c(rangecol, paste0(table_data$Lowest.estimate...LHNs.[i],
                     " - ", table_data$Highest.Estimate....LHNs.[i]))
}

table_data <- cbind(table_data[,1:4],rangecol)
colnames(table_data) <- c("PNT", "EM Tract", "Est. Type", "Total Profiles", "LHN Est. Range") 

#Latex Table Stored here
latex_table <- xtable(table_data)
align(latex_table) <- rep("r", 6)
latex_table

#---------------------------------
#NB - Reqd. LaTeX boilerplate:

#\documentclass[11pt]{article}
#\begin{document}

#latex_table

#\end{document}