get_Anscombe_data = function(choice=1){ if( choice==1 ){ fn = '../../Data/A1.DAT' }else if( choice==2 ){ fn = '../../Data/A2.DAT' }else if( choice==3 ){ fn = '../../Data/A3.DAT' }else if( choice==4 ){ fn = '../../Data/A4.DAT' } con = file(fn, open='r') data = c() while( TRUE ){ line = readLines(con, n=1) line = gsub('\\?\\?', 'NA', line) if( length(line)==0 || nchar(line)==0 ){ break } T = read.table(text=line, stringsAsFactors=FALSE) n = ncol(T) number_columns = 1:2 df = as.matrix(T[, number_columns]) if( length(data)==0 ){ data = df }else{ data = rbind(data, df) } } close(con) data = data.frame(data) colnames(data) = c('X', 'Y') return(data) }