Linkedin_df<-read.table("./ex1_2_4.txt",sep = "",header = TRUE)
