######################################## ## LAB 1 - LOADING DATA INTO R ## ######################################## #Q1 working_directory=''#give path to your R script e.g. 'D:/CITS4009/LABS/lab1/' setwd(working_directory) #Q3 Write the answer here as a comment. #Q4 Write the answer here as a comment #Q5 uciCar=read.table(file = 'path_to_your_data_folder/car.data.csv', sep=',',header=TRUE) #Q6 No need write an answer (observation only) #Q7 Write the code and execute it. Give answer as a comment #Q8 Write the code and execute it. Give answer as a comment #Q9 Write the code and execute it. Give answer as a comment #Q10 Write the code and execute it. Give answer as a comment #Q11 Write the code and execute it. Give answer as a comment #Q12 No need write an answer #Q13 Write the code and execute it. Give answer as a comment #Q14 Write the code and execute it. Give answer as a comment #Q15 Write the code and execute it. Give answer as a comment #Q16 Either you write the data provonence document here as comments or you can create a separate document. #Q17 Write the answer here as a comment. #Q18 Write the code and execute it. Give answer as a comment # you can uncomment the following code using 'CTRL+Shift+C' (first select the region to uncomment) # require(DBI) # require(RSQLite) # # DBFILENAME<-'path_to_your_working_folder\\data\\db\\julyclimate.db' # # thisdb <- dbConnect(RSQLite::SQLite(), DBFILENAME) # start_date <-'01-07-2016' # end_date <-'31-07-2016' # query = sprintf("SELECT * FROM july16 WHERE Date BETWEEN '%s' AND '%s'",start_date,end_date) # rawdata<-dbGetQuery(thisdb,query) # dbDisconnect(thisdb) # # View(rawdata) #Q19 Write the code and execute it. Give answer as a comment #Q20 Uncomment the following code and execute it. # mintemp_jul16<-head(sort(jul16$`Minimumtemperature(�C)`)) # mintemp_jul16 #Q21 Write the code and execute it. Give answer as a comment #Q22 Write the code and execute it. Give answer as a comment