R Notebook

input method and a plot to check if it looks realistic…

print("Please input the names...")
names <- scan(what = character())
names <- as.character(names)
#not too bad but scan does appear to allow numbers as characters.

print("Please input the ages...")
ages <- scan(what = integer())

peopleDataToday <- data.frame(names, ages)
peopleDataToday

barplot(height = peopleDataToday$ages, names.arg = peopleDataToday$names, xlab = "Names", ylab = "Age", main = "Example plot \nNames and ages")

quick save data…

dataQuickSave <- peopleDataToday

ONLY RUN THIS TO GET DATA STARTED

dataBaseOfPeople <- dataQuickSave
#just start the database once manually then bind them. 

Bind the data…

dataBaseOfPeople <- rbind(dataBaseOfPeople, dataQuickSave)