This is my program so far. I need to ask the user to input their own bindwidth next and i can't figure out how to do it.
file.name <- readline('Please enter name and file location: ') has.header <- readline('Does your data file contain a header (Y/N)? ') if (has.header == 'Y') { file.df <- read.table( file = file.name, sep=',', header = TRUE) }else { file.df <- read.table ( file = file.name, sep=',', header = FALSE) } cat('\n') print(file.df) cat('\n') #Histogram print(head(file.df)) column <- as.numeric(readline('What column do you want to graph (enter number)? ')) print(hist(file.df[ ,column])) #New bin width binsize <- readline("Enter a new bin width for your graph: ") 1 Answer
binsize <- as.integer(readline("Enter a new bin width for your graph: ")) xt <- readline("Enter x axis title: ") yt <- readline("Enter y axis title: ") binwidth <- as.integer(nrow(file.df)/binsize)) hist(file.df[, column], breaks = binwidth, xlab = xt, ylab = yt) 
