basic_survey_automation: Automating basic data
In Cyranka/Pollfish-functions: Polish Functions

Function that will run all crosstabs for all specified questions with basic demographic information as rows

1 2	basic_survey_automation(survey_file, single_questions = NULL, multiple_questions = NULL, rank_questions = NULL)

`survey_file:`	Pollfish file to process
`single_questions:`	Do you have a vector of single questions?
`multiple_questions:`	Do you have a vector of multiple questions?
`rank_questions:`	Do you have a vector of rank questions?

#Retrieve sample frequencies for rank choices
rank_choice <- c("Q7","Q8")
multiple_choice <- c("Q2", "Q9")
single_choice <-c("Q1","Q3","Q4","Q5","Q6", "Q11")
basic_survey_automation("Pollfish_Survey.xls",single_questions = single_choice,multiple_questions= multiple_choice,rank_questions = rank_choice)