get_pro_bowl_data = function(){ ## ## xpdf ../EBook/Applied_Linear_Models_with_R.pdf -z 200 247 & ## con = file('~/Projects/Reading/N_Z/Zelterman/Data/Pro_Bowl.txt', open='r') names = c() data = c() while( TRUE ){ line = readLines(con, n=1) if( length(line)==0 || nchar(line)==0 ){ break } T = read.table(text=line, stringsAsFactors=FALSE) name = paste(T[1:2], collapse='_') number_columns = 3:5 df = as.matrix(T[, number_columns]) names = c(names, name) if( length(data)==0 ){ data = df }else{ data = rbind(data, df) } } close(con) data = data.frame(data) data$name = names data = data[, c(4, 1:3)] colnames(data) = c('name', 'active', 'yards_rushing', 'n_probowls') data$active = as.factor(data$active) return(data) }