get_bile_data = function(){ ## ## xpdf .. /EBook/Applied_Linear Models_with_R.pdf -z 200 348 & ## fn = '../../BookCode/bile.sas' DF = read.table(fn, header=FALSE, skip=4, nrows=47, col.names=c('Time','Censored','Treatment')) DF }