getwd()
library(csv)
adultraw <- read.csv("C:/Users/User/OneDrive - University of Macau/200814 Macao COVID-19 survey/datasets/Raw data.csv")