diff --git a/CleanHospitalData.csv b/CleanHospitalData.csv
new file mode 100644
index 0000000..43b251d
--- /dev/null
+++ b/CleanHospitalData.csv
@@ -0,0 +1,223 @@
+"Date","id","Time","Age","Sex","ConsultingDoctor","Specialty","Procedure","TotalCharges","AmountReceived","AmountBalance","AmountReceivedBy","AmountinHospital","ReceptionistName","NextApt"
+2017-01-01,101,"11:00",40,"F","Dr Kinza Alam","Gynae","C Section",30000,30000,NA,"Mrs Shamsa",NA,"Hamza",NA
+2017-01-02,150,"10:45AM",26,"M","Nursing Staff",NA,"Dressing",1500,1500,NA,"Dr Saniya",NA,"Haris",NA
+2017-01-02,58,"12:38PM",30,"F","Dr Riffat Naheed","Psychotherapist","Consultation",1000,1000,NA,"Mrs Shamsa",300,"Fiza",NA
+2017-01-02,75,"1:00PM",40,"M","Dr Riffat Naheed","Psychotherapist","Consultation",1500,1500,NA,"Mrs Shamsa",450,"Zaheer",NA
+2017-01-02,97,"2:45PM",27,"M","Dr Riffat Naheed","Psychotherapist","Consultation",2000,2000,NA,"Mrs Shamsa",600,"Haris",NA
+2017-01-02,101,"3:00PM",40,"F","Dr Kinza Alam","Gynae","C Section",35000,35000,NA,"Dr Saniya",NA,"Haris",NA
+2017-01-02,26,"3:28PM",43,"M","Dr Saniya","M/o","Consultation",2000,2000,NA,"Dr Saniya",NA,"Fiza",NA
+2017-01-02,149,"3:45PM",28,"F","Dr Fakiha","Dentist","Consultation",500,500,NA,"Mrs Shamsa",500,"Haris",NA
+2017-01-02,20,"3:45PM",2,"F","Dr Fakiha","Dentist","Consultation",NA,NA,NA,NA,NA,NA,NA
+2017-01-02,72,"5:00PM",40,"M","Dr Fakiha","Dentist","Consultation",500,500,NA,"Mrs Shamsa",500,"Fiza",NA
+2017-01-02,54,"5:00PM",32,"F","Dr Saniya","M/o","Consultation",2000,2000,NA,"Dr Saniya",NA,"Fiza",NA
+2017-01-02,149,"5:30PM",28,"F","Dr Fakiha","Dentist","Filling",2000,2000,NA,"Mrs Shamsa",2000,"Fiza","In case of pain"
+2017-01-03,120,"1:00PM",76,"F","Dr Saniya","M/o","Laboratory Test",NA,NA,NA,NA,NA,"Haris",NA
+2017-01-03,120,"3:25PM",75,"F","Dr Saniya","M/o",NA,NA,NA,NA,NA,NA,NA,NA
+2017-01-03,20,"6:10PM",36,"F","Dr Kinza Alam","Gynae","Consultation",1500,1500,NA,"Mrs Shamsa",450,"Haris",NA
+2017-01-04,40,"11:45PM",42,"F","Dr Alaf Khan","Dentist","Consultation+Denture",1500,1500,NA,"Brig Farrukh",NA,"Fiza",NA
+2017-01-04,134,"12:40PM",23,"F","Dr Alaf Khan","Dentist","Consultation",500,500,NA,"Brig Farrukh",500,"Fiza",NA
+2017-01-04,86,"8:10PM",48,"F","Dr Kinza Alam","Gynae","Consultation",1500,1500,NA,"Brig Farrukh",450,"Haris",NA
+2017-01-04,114,"8:30PM",25,"F","Dr Kinza Alam","Gynae","Consultation",1000,1000,NA,"Brig Farrukh",300,"Haris",NA
+2017-01-05,155,"12:40PM",50,"F","Dr Alaf Khan","Dentist","Extraction",2000,2000,NA,"Brig Farrukh",2000,"Fiza",NA
+2017-01-05,45,"2:00PM",60,"F","Dr Alaf Khan","Dentist","R.P.D + Crown",4000,4000,NA,"Brig Farrukh",4000,"Haris",NA
+2017-01-05,4,"2:00PM",NA,"M","Dr Irfan","General Surgeon","Consultation + Dressing",5000,5000,NA,"Brig Farrukh",4000,"Haris",NA
+2017-01-06,38,"12:30PM",NA,"M","Dr Riffat Naheed","Psychotherapist","Consultation",1000,1000,NA,"Mrs Shamsa",300,"Haris",NA
+2017-01-06,130,"1:00PM",26,"M","Dr Riffat Naheed","Psychotherapist","Consultation",1000,1000,NA,"Mrs Shamsa",300,"Haris",NA
+2017-01-06,97,"1:30PM",27,"M","Dr Riffat Naheed","Psychotherapist","Consultation",1000,1000,NA,"Mrs Shamsa",300,"Haris",NA
+2017-01-06,50,NA,NA,"M","Dr Alaf Khan","Dentist","Consultation",500,500,NA,"Mrs Shamsa",500,"Haris",NA
+2017-01-06,78,"8:15PM",57,"F","Dr Ali","Orthopedic","Consultation",6000,6000,NA,"Mrs Shamsa",3000,"Haris",NA
+2017-01-07,1,NA,NA,NA,"Nursing Staff",NA,"Pharmacy",NA,NA,NA,NA,NA,NA,NA
+2017-01-09,48,"12:36PM",39,"F","Dr Alaf Khan","Dentist","Consultation",500,500,NA,"Mrs Shamsa",500,"Fiza",NA
+2017-01-09,79,"1:30PM",6,"F","Dr Alaf Khan","Dentist","Consultation",500,500,NA,"Mrs Shamsa",500,"Fiza",NA
+2017-01-09,116,"2:30PM",26,"M","Dr Alaf Khan","Dentist","X Ray",300,300,NA,"Mrs Shamsa",300,"Haris",NA
+2017-01-09,45,"3:15PM",60,"F","Dr Alaf Khan","Dentist","R.P.D + Crown",7000,7000,NA,"Mrs Shamsa",7000,"Fiza",NA
+2017-01-09,67,"5:20PM",26,"M","Dr Alaf Khan","Dentist","Consultation+X Ray",800,800,NA,"Mrs Shamsa",800,"Fiza",NA
+2017-01-09,36,"5:30PM",5,"F","Dr Alaf Khan","Dentist","Consultation",250,250,NA,"Mrs Shamsa",250,"Fiza",NA
+2017-01-10,17,"3:50PM",40,"M","Dr Alaf Khan","Dentist","RCT (4 teeth) Bridge (9 teeth)",10000,10000,NA,"Mrs Shamsa",NA,"Fiza","1/16/2017"
+2017-01-10,84,"6:00PM",9,"F","Dr Irfan","General Surgeon","Consultation +   X Ray",3000,3000,NA,"Mrs Shamsa",3000,"Mona",NA
+2017-01-10,1,NA,NA,NA,"Nursing Staff",NA,"Pharmacy",NA,NA,NA,NA,NA,NA,NA
+2017-01-11,57,NA,30,"F","Dr Alaf Khan","Dentist","Laboratory Test",NA,NA,NA,"Mrs Shamsa",NA,NA,NA
+2017-01-11,119,"3:00PM",40,"F","Dr Ammara","Gynae","Consultation + USG",1500,1500,NA,"Mrs Shamsa",500,"Fiza",NA
+2017-01-11,145,"4:30PM",29,"M","Dr Alaf Khan","Dentist","Crown",3000,3000,NA,"Mrs Shamsa",NA,"Fiza",NA
+2017-01-11,92,"4:30PM",39,"F","Dr Alaf Khan","Dentist","Consultation",500,500,NA,"Mrs Shamsa",500,"Fiza",NA
+2017-01-12,63,"10:45AM",50,"M","Dr Alaf Khan","Dentist","Consultation",500,500,NA,"Mrs Shamsa",500,"Fiza",NA
+2017-01-12,63,"02:00PM",50,"M","Dr Alaf Khan","Dentist","Scalling",3000,3000,NA,"Mrs Shamsa",3000,"Fiza",NA
+2017-01-12,63,"02:00PM",50,"M","Brig Asif","Medical Specialist","Consultation",500,500,NA,"Mrs Shamsa",150,"Fiza",NA
+2017-01-13,45,"11:20AM",60,"F","Dr Alaf Khan","Dentist","Polishing",500,500,NA,"Mrs Shamsa",500,"Haris",NA
+2017-01-13,145,"3:00PM",29,"M","Dr Fakiha","Dentist","Crown",1500,1500,NA,"Mrs Shamsa",1500,"Fiza",NA
+2017-01-13,70,"8:00PM",48,"M","Brig Farrukh","Anaesthetist","Consultation",3750,3750,NA,"Dr Ammad",3750,"Mona",NA
+2017-01-14,88,"4:30PM",45,"F","Dr Fakiha","Dentist","Filling + X Rays",2600,2600,NA,"Dr Ammad",2600,"Haris",NA
+2017-01-14,40,"6:30PM",42,"F","Dr Fakiha","Dentist","Denture+Scalling+Filling",5500,5500,NA,"Dr Ammad",5500,"Haris",NA
+2017-01-15,42,"9:00PM",29,"F","Nursing Staff",NA,"Pharmacy",900,900,NA,"Dilshad",900,"Zaheer",NA
+2017-01-16,7,NA,26,"M","Nursing Staff",NA,"Laboratory Test",NA,NA,NA,NA,NA,NA,NA
+2017-01-16,106,"1:30PM",34,"M","Dr Alaf Khan","Dentist","Crown",5000,5000,NA,"Dr Ammad",5000,"Fiza",NA
+2017-01-16,22,"6:00PM",50,"F","Dr Zubair","M/o","Consultation",1000,1000,NA,"Dr Ammad",400,"Haris",NA
+2017-01-16,88,"6:20PM",45,"F","Dr Fakiha","Dentist","Extraction",2500,2500,NA,"Dr Ammad",2500,"Haris","1/23/2017"
+2017-01-17,52,"11:25AM",30,"M","Dr Alaf Khan","Dentist","RCT",3000,3000,NA,"Mrs Shamsa",3000,"Fiza","1/20/2017"
+2017-01-17,17,"11:15AM",40,"M","Dr Alaf Khan","Dentist","RCT (4 teeth) Bridge (9 teeth)",38000,38000,NA,"Mrs Shamsa",38000,"Fiza",NA
+2017-01-17,17,"1:10PM",40,"M","Brig Asif","Medical Specialist","Consultation",1000,1000,NA,"Mrs Shamsa",300,"Haris",NA
+2017-01-17,136,"3:30PM",29,"M","Dr Fakiha","Dentist","Scalling",4000,4000,NA,"Mrs Shamsa",4000,"Fiza",NA
+2017-01-17,27,"6:15PM",27,"M","Dr Fakiha","Dentist","Filling",2000,2000,NA,"Mrs Shamsa",2000,"Sohaib","1/19/2017"
+2017-01-18,71,"9:40PM",23,"M","Dr Alaf Khan","Dentist","X Ray",300,300,NA,NA,300,"Haris",NA
+2017-01-18,12,"12:00PM",60,"F","Dr Alaf Khan","Dentist","22 Unit Bridge",25500,25500,NA,NA,25500,"Haris",NA
+2017-01-18,127,"2:00PM",52,"F","Dr Alaf Khan","Dentist","Extraction",1000,1000,NA,NA,1000,"Haris",NA
+2017-01-18,82,"5:00PM",21,"M","Dr Zubair","M/o","Consultation",500,500,NA,NA,500,"Haris",NA
+2017-01-19,103,NA,32,"M","Nursing Staff",NA,"Laboratory Test",NA,NA,NA,NA,NA,NA,NA
+2017-01-19,31,"11:00AM",58,"F","Dr Alaf Khan","Dentist","Consultation",500,500,NA,"Mrs Shamsa",500,"Haris",NA
+2017-01-19,1,NA,NA,NA,"Nursing Staff",NA,"Pharmacy",NA,NA,NA,NA,NA,NA,NA
+2017-01-19,1,NA,NA,NA,"Nursing Staff",NA,"Pharmacy",NA,NA,NA,NA,NA,NA,NA
+2017-01-20,1,NA,NA,NA,"Nursing Staff",NA,"Pharmacy",NA,NA,NA,NA,NA,NA,NA
+2017-01-21,131,"10:15AM",26,"F","Dr Alaf Khan","Dentist","X Ray",300,300,NA,"Mrs Shamsa",300,"Haris",NA
+2017-01-21,101,"1:20PM",40,"F","Dr Kinza Alam","Gynae","Consultation",1200,1200,NA,"Mrs Shamsa",360,"Haris",NA
+2017-01-21,145,"1:30PM",29,"M","Dr Fakiha","Dentist","Crown",500,500,NA,"Mrs Shamsa",500,"Haris",NA
+2017-01-23,144,"12:15PM",33,"M","Dr Riffat Naheed","Psychotherapist","Consultation",1000,1000,NA,"Mrs Shamsa",300,"Haris",NA
+2017-01-23,37,"1:00PM",30,"F","Dr Riffat Naheed","Psychotherapist","Consultation",1000,1000,NA,"Mrs Shamsa",300,"Haris",NA
+2017-01-23,135,"1:15PM",28,"F","Dr Riffat Naheed","Psychotherapist","Consultation",2000,2000,NA,"Mrs Shamsa",600,"Haris",NA
+2017-01-23,59,"4:50PM",10,"M","Dr Ali","Child Specialist","Consultation+ER Retain",2800,2800,NA,"Mrs Shamsa",1600,"Haris",NA
+2017-01-24,130,"1:00PM",26,"M","Dr Riffat Naheed","Psychotherapist","Consultation",800,800,NA,"Mrs Shamsa",240,"Haris",NA
+2017-01-24,104,"1:15PM",19,"M","Dr Riffat Naheed","Psychotherapist","Consultation",2000,2000,NA,"Mrs Shamsa",600,"Haris",NA
+2017-01-24,98,"2:10PM",53,"F","Dr Saad","Orthopedic","Consultation",1000,1000,NA,"Mrs Shamsa",600,"Haris",NA
+2017-01-24,102,"1:30PM",30,"M","Dr Riffat Naheed","Psychotherapist","Consultation",1000,1000,NA,"Mrs Shamsa",300,"Haris",NA
+2017-01-25,59,NA,10,"M","Nursing Staff",NA,"Laboratory Test",NA,NA,NA,NA,NA,NA,NA
+2017-01-25,1,NA,NA,NA,"Nursing Staff",NA,"Pharmacy",NA,NA,NA,NA,NA,NA,NA
+2017-01-26,73,"12:50PM",55,"M","Dr Alaf Khan","Dentist","Consultation+X Ray",700,700,NA,NA,700,"Haris",NA
+2017-01-26,116,"3:30PM",26,"M","Dr Alaf Khan","Dentist","X Ray",300,300,NA,NA,300,"Haris",NA
+2017-01-26,125,"5:40PM",30,"F","Dr Alaf Khan","Dentist","Consultation",500,500,NA,NA,500,"Haris",NA
+2017-01-26,1,NA,NA,NA,"Nursing Staff",NA,"Pharmacy",NA,NA,NA,NA,NA,NA,NA
+2017-01-26,1,NA,NA,NA,"Nursing Staff",NA,"Pharmacy",NA,NA,NA,NA,NA,NA,NA
+2017-01-26,1,NA,NA,NA,"Nursing Staff",NA,"Pharmacy",NA,NA,NA,NA,NA,NA,NA
+2017-01-28,129,NA,28,"M","Dr Ali","Child Specialist","Consultation",1150,1150,NA,"Mrs Shamsa",NA,"Sohaib",NA
+2017-01-28,85,"6:45PM",NA,"F","Dr Irfan","General Surgeon",NA,3000,3000,NA,"Mrs Shamsa",NA,"Sohaib",NA
+2017-01-28,147,"9:45PM",9,"M","Nursing Staff",NA,"Consultation",1000,1000,NA,"Mrs Shamsa",NA,"Sub KB",NA
+2017-01-29,1,NA,NA,NA,"Nursing Staff",NA,"Pharmacy",NA,NA,NA,NA,NA,NA,NA
+2017-01-30,140,"1:00PM",28,"F","Dr Alaf Khan","Dentist","Consultation",500,500,NA,"Dr Ammad",500,"Haris",NA
+2017-01-30,39,"1:30PM",47,"M","Dr Alaf Khan","Dentist","X Ray",300,300,NA,"Dr Ammad",300,"Haris",NA
+2017-01-30,124,"5:40PM",49,"F","Brig Asif","Medical Specialist","Consultation+ECG",1300,1300,NA,"Dr Ammad",600,"Sohaib",NA
+2017-01-30,8,"5:35PM",19,"M","Dr Qurat ul Ain","Dentist","Consultation+X Ray",800,800,NA,"Dr Ammad",800,"Sohaib",NA
+2017-01-30,51,"6:00PM",31,"M","Dr Qurat ul Ain","Dentist","Consultation",500,500,NA,"Dr Ammad",500,"Sohaib",NA
+2017-01-31,152,"5:30PM",7,"F","Dr Fakiha","Dentist","Filling",1000,1000,NA,"Mrs Shamsa",1000,"Haris",NA
+2017-01-31,21,"6:30PM",26,"M","Dr Zubair","M/o","Consultation",200,200,NA,"Mrs Shamsa",200,"Mona",NA
+2017-01-31,115,"6:50PM",8,"F","Dr Qurat ul Ain","Dentist","Extraction",1500,1500,NA,"Mrs Shamsa",1500,"Haris",NA
+2017-02-01,109,"2:10PM",28,"F","Dr Alaf Khan","Dentist","R.C.T",2000,2000,NA,"Dr Ammad",2000,"Haris","2/6/2017"
+2017-02-01,153,"2:10PM",17,"F","Dr Alaf Khan","Dentist","Orthodontics",10000,10000,NA,"Dr Ammad",10000,"Haris","2/6/2017"
+2017-02-01,62,"1:00PM",54,"M","Dr Alaf Khan","Dentist","Scalling",2000,2000,NA,"Dr Ammad",2000,"Haris",NA
+2017-02-01,111,"1:40PM",35,"F","Col Ulfat Ellahi","ENT","Consultation",1000,1000,NA,"Dr Ammad",300,"Haris",NA
+2017-02-01,142,"6:00PM",45,"M","Dr Qurat ul Ain","Dentist","Extraction",2000,2000,NA,"Dr Ammad",2000,"Haris",NA
+2017-02-02,117,"12:00PM",30,"F","Dr Shireen","M/o","Consultation",500,500,NA,"Dr Ammad",500,"Haris",NA
+2017-02-02,140,"1:00PM",30,"F","Dr Alaf Khan","Dentist","Extraction",1000,1000,NA,"Dr Ammad",1000,"Haris",NA
+2017-02-02,100,"1:25PM",23,"F","Dr Alaf Khan","Dentist","Consultation",500,500,NA,"Dr Ammad",500,"Haris",NA
+2017-02-03,133,"4:45PM",27,"F","Dr Alaf Khan","Dentist","X Ray",500,500,NA,"Dr Ammad",500,"Haris",NA
+2017-02-03,44,"8:00PM",6,"M","Dr Ali","Child Specialist","Consultation",1000,1000,NA,"Dr Ammad",300,"Haris",NA
+2017-02-04,35,"4:00PM",2,"F","Dr Qurat ul Ain","Dentist","Consultation",500,500,NA,"Dr Ammad",500,"Haris",NA
+2017-02-04,150,"4:00PM",30,"M","Dr Qurat ul Ain","Dentist","Consultation",500,500,NA,"Dr Ammad",500,"Haris",NA
+2017-02-06,118,"7:30PM",32,"F","Dr Kinza Alam","Gynae","Consultation+USG",1500,1500,NA,"Dr Ammad",800,"Haris",NA
+2017-02-06,114,"7:45PM",25,"F","Dr Kinza Alam","Gynae","Consultation",1000,1000,NA,"Dr Ammad",300,"Haris",NA
+2017-02-06,49,"1:30PM",80,"M","Dr Ali","Child Specialist","Consultation+Retain",3500,3500,NA,"Dr Ammad",2000,"Haris",NA
+2017-02-06,126,"1:30PM",70,"F","Dr Alaf Khan","Dentist","Scalling",3000,3000,NA,"Dr Ammad",3000,"Haris",NA
+2017-02-06,141,"4:00PM",20,"M","Dr Riffat Naheed","Psychotherapist","Consultation",2000,2000,NA,"Dr Ammad",600,"Haris",NA
+2017-02-06,17,"6:15PM",23,"M","Dr Ammad","M/o","Consultation",200,200,NA,"Dr Ammad",200,"Haris",NA
+2017-02-07,12,"12:00PM",60,"F","Dr Alaf Khan","Dentist","22 Unit Bridge",44000,30000,"14,000.00","Dr Ammad",30000,"Haris","2/14/2017"
+2017-02-07,60,"1:10PM",50,"M","Dr Alaf Khan","Dentist","Consultation",500,500,NA,"Dr Ammad",500,"Haris",NA
+2017-02-07,140,"2:15PM",30,"F","Dr Alaf Khan","Dentist","4 Unit Bridge",3000,3000,NA,"Dr Ammad",3000,"Haris",NA
+2017-02-07,41,"6:00PM",13,"M","Dr Qurat ul Ain","Dentist","X Ray",500,500,NA,"Dr Ammad",500,"Haris",NA
+2017-02-07,87,"8:00PM",30,"F","Dr Qurat ul Ain","Dentist","Consultation",500,500,NA,"Dr Ammad",500,"Haris",NA
+2017-02-08,132,"10:13AM",13,"M","Dr Alaf Khan","Dentist","Consultation",500,500,NA,"Dr Ammad",500,"Haris","2/17/2017"
+2017-02-08,132,"12:00PM",13,"M","Dr Alaf Khan","Dentist","R.C.T",3500,3500,NA,"Dr Ammad",3500,"Haris",NA
+2017-02-08,13,"12:00PM",39,"F","Dr Saad","Orthopedic","Consultation",1000,1000,NA,"Dr Ammad",300,"Haris",NA
+2017-02-08,109,"2:40PM",28,"F","Dr Alaf Khan","Dentist","R.C.T",2000,2000,NA,"Dr Ammad",2000,"Haris",NA
+2017-02-08,109,"2:40PM",28,"F","Dr Alaf Khan","Dentist","Crown",3000,NA,"3,000.00","Dr Ammad",NA,"Haris","2/16/2017"
+2017-02-08,153,"2:40PM",17,"F","Dr Alaf Khan","Dentist","Orthodontics",110000,20000,"90,000.00","Dr Ammad",20000,"Haris","2/16/2017"
+2017-02-08,43,"10:00AM",27,"M","Dr Alaf Khan","Dentist","Consultation+X Ray",800,800,NA,"Dr Ammad",800,"Haris","2/9/2017"
+2017-02-10,5,"9:30AM",57,"M","Dr Alaf Khan","Dentist","X Ray",300,300,NA,"Dr Ammad",300,"Haris",NA
+2017-02-10,14,"6:30PM",6,"M","Nursing Staff",NA,"X Ray",300,300,NA,"Dr Ammad",300,"Haris",NA
+2017-02-10,123,"7:00PM",18,"M","Dr Qurat ul Ain","Dentist","Filling",1500,1500,NA,"Dr Ammad",1500,"Haris",NA
+2017-02-11,137,"12:00PM",25,"M","Dr Ali","Child Specialist","Consultation",1000,1000,NA,"Mrs Shamsa",300,"Mona",NA
+2017-02-11,91,"4:20PM",50,"F","Dr Qurat ul Ain","Dentist","Scalling",2500,2500,NA,"Mrs Shamsa",2500,"Mona",NA
+2017-02-11,23,"5:57PM",NA,"F","Dr Qurat ul Ain","Dentist","Consultation",1000,1000,NA,"Mrs Shamsa",1000,"Mona",NA
+2017-02-11,154,"6:15PM",19,"F","Dr Qurat ul Ain","Dentist","Scalling",2000,2000,NA,"Mrs Shamsa",2000,"Mona",NA
+2017-02-12,112,"7:15PM",39,"M","Dr Saad","Orthopedic","Operation",35000,35000,NA,"Mrs Shamsa",35000,"Haris",NA
+2017-02-12,81,"12:00PM",6,"F","Dr Alaf Khan","Dentist","Consultation+X Ray",700,700,NA,"Mrs Shamsa",700,"Mona",NA
+2017-02-13,15,"11:20AM",40,"M","Dr Waqar Azeem","Radiologist","USG Abdomen",1000,1000,NA,"Dr Ammad",300,"Haris",NA
+2017-02-13,112,"3:40PM",39,"M","Dr Saad","Orthopedic","Operation",15000,15000,NA,"Dr Ammad",15000,"Haris",NA
+2017-02-13,9,"7:00PM",20,"F","Dr Qurat ul Ain","Dentist","Consultation",500,500,NA,"Dr Ammad",500,"Haris",NA
+2017-02-13,2,NA,NA,NA,"Dr Ali","Child Specialist","Consultation",1500,1500,NA,"Dr Ammad",500,"Haris",NA
+2017-02-14,113,"2:30PM",14,"M","Dr Saad Riaz","Orthopedic","Pop",3700,3700,NA,"Dr Ammad",1700,"Haris",NA
+2017-02-14,4,"3:00PM",NA,"M","Nursing Staff",NA,"Er Retain",300,300,NA,"Dr Ammad",300,"Haris",NA
+2017-02-14,19,"7:02PM",6,"F","Dr Waqar Azeem","Radiologist","USG",2000,2000,NA,"Dr Ammad",1300,"Haris",NA
+2017-02-15,118,"11:40AM",24,"F","Dr Alaf Khan","Dentist","X Ray",400,400,NA,"Mrs Shamsa",400,"Mona",NA
+2017-02-15,94,"4:45PM",3,"M","Dr Ali","Child Specialist","Consultation + Nebulize",1150,1150,NA," 150 Mrs Shamsa, 300 Dr Ammad ",450,"Haris",NA
+2017-02-15,64,"6:15PM",23,"M","Dr Ammad","M/o","Consultation",200,200,NA,"Dr Ammad",200,"Haris",NA
+2017-02-17,29,"4:10PM",29,"M","Dr Alaf Khan","Dentist","X Ray",200,200,NA,"Dr Ammad",200,"Haris",NA
+2017-02-17,66,"5:30PM",55,"M","Dr Alaf Khan","Dentist","Extraction",1000,1000,NA,"Dr Ammad",1000,"Haris",NA
+2017-02-17,107,"6:30PM",30,"F","Nursing Staff",NA,"X Ray",1000,1000,NA,"Dr Ammad",1000,"Haris",NA
+2017-02-18,108,"6:20PM",NA,"M","Dr Ali","Child Specialist","Consultation",3000,3000,NA,"Dr Ammad",1600,"Saima",NA
+2017-02-18,30,"6:10PM",30,"F","Dr Qurat ul Ain","Dentist","Extraction",1500,1500,NA,"Dr Ammad",1500,"Mona",NA
+2017-02-18,94,"11:30AM",3,"M","Nursing Staff",NA,"Injection",300,300,NA,"Dr Ammad",300,"Saima",NA
+2017-02-19,55,"2:45PM",NA,"M","Dr Qurat ul Ain","Dentist","X Ray",300,300,NA,"Dr Ammad",300,"Saima",NA
+2017-02-20,132,NA,13,"M","Dr Alaf Khan","Dentist","Crown",5000,5000,NA,"Dr Ammad",5000,NA,"2/24/2017"
+2017-02-20,68,"1:25PM",10,"M","Dr Shireen","M/o","Stiches",700,700,NA,"Dr Ammad",700,"Saima",NA
+2017-02-20,80,"2:00PM",30,"F","Dr Shireen","M/o","Consultation",1200,1200,NA,"Dr Ammad",1200,"Saima",NA
+2017-02-20,99,"7:00PM",45,"F","Dr Saima Shams","Radiologist","USG",1500,1500,NA,"Dr Ammad",900,"Mona",NA
+2017-02-20,94,"10:15PM",3,"M","Nursing Staff",NA,"Injection",300,300,NA,"Dr Ammad",300,"Ashfaq",NA
+2017-02-21,151,"1:00PM",38,"M","Dr Alaf Khan","Dentist","R.C.T+Scalling+Crown",5000,5000,NA,"Dr Ammad",5000,"Saima","2/28/2017"
+2017-02-21,53,"6:00PM",20,"F","Dr Waqar Azeem","Radiologist","USG",1000,1000,NA,"Dr Ammad",400,"Mona",NA
+2017-02-21,11,"7:11PM",2,"F","Dr Ali","Child Specialist","Consultation",1000,1000,NA,"Dr Ammad",300,"Saima",NA
+2017-02-21,94,"10:10PM",3,"M","Nursing Staff",NA,"Injection",300,300,NA,"Dr Ammad",300,"Sub KB",NA
+2017-02-21,64,NA,NA,NA,"Nursing Staff",NA,"Medicine",100,100,NA,NA,100,"Saima",NA
+2017-02-22,100,"3:00PM",23,"F","Dr Alaf Khan","Dentist","Orthodontics",120000,30000,"90,000.00","Dr Ammad",30000,"Mona",NA
+2017-02-22,16,"4:30PM",26,"M","Dr Mumtaz","General Surgeon","Consultation",1000,1000,NA,"Dr Ammad",500,"Mona",NA
+2017-02-22,6,"5:00PM",35,"M","Dr Waqar Azeem","Radiologist","USG",1000,1000,NA,"Dr Ammad",400,"Mona",NA
+2017-02-23,33,"1:55PM",22,"M","Dr Alaf Khan","Dentist","R.C.T",3000,3000,NA,"Dr Ammad",3000,"Saima",NA
+2017-02-23,89,"1:50PM",65,"F","Dr Saad Riaz","Orthopedic","Consultation",1000,1000,NA,"Dr Ammad",500,"Saima",NA
+2017-02-23,13,"2:00PM",45,"F","Dr Saad Riaz","Orthopedic","Consultation",1000,1000,NA,"Dr Ammad",300,"Saima",NA
+2017-02-23,47,"3:00PM",21,"F","Dr Riffat Naheed","Psychotherapist","Consultation",1500,1500,NA,"Dr Ammad",700,"Saima",NA
+2017-02-24,80,"9:30PM",30,"F","Dr Mehwish","Gynae","Consultation",1000,1000,NA,"Dr Ammad",500,"Saima",NA
+2017-02-25,128,"3:45PM",64,"F","Dr Qurat ul Ain","Dentist","Consultation",500,500,NA,"Dr Ammad",500,"Saima",NA
+2017-02-25,93,"4:00PM",40,"F","Dr Ali","Child Specialist",NA,3000,3000,NA,"Dr Ammad",1600,"Saima",NA
+2017-02-27,143,"11:30AM",52,"F","Dr Alaf Khan","Dentist","Consultation",500,500,NA,"Dr Ammad",500,"Saima",NA
+2017-02-27,56,"12:20PM",55,"F","Dr Alaf Khan","Dentist","Extraction",600,600,NA,"Dr Ammad",600,"Saima",NA
+2017-02-27,96,NA,54,"M","Dr Qurat ul Ain","Dentist","Consultation",500,500,NA,"Dr Ammad",500,"Saima",NA
+2017-02-28,65,"10:30PM",30,"M","Nursing Staff",NA,"BSR",50,50,NA,"Dr Ammad",50,"Haris",NA
+2017-02-28,96,"12:40PM",53,"M","Dr Alaf Khan","Dentist","8 Unit Bridge+2 R.C.T",30000,8000,"22,000.00","Dr Ammad",8000,"Haris",NA
+2017-02-28,90,NA,NA,"F","Dr Alaf Khan","Dental","Consultation",1000,1000,NA,"Dr Ammad",1000,"Saima",NA
+2017-02-28,151,"3:00PM",38,"F","Dr Alaf Khan","Dentist","R.C.T+Scalling+Crown",4500,4500,NA,"Dr Ammad",4500,"Haris",NA
+2017-02-28,139,"8:00PM",30,"M","Nursing Staff",NA,"X Ray",500,500,NA,"Dr Ammad",500,"Saima",NA
+2017-03-01,107,"5:00PM",17,"F","Dr Qurat ul Ain","Dentist","Extraction",1500,1500,NA,"Dr Ammad",1500,"Saima",NA
+2017-03-01,28,"6:00PM",3,"F","Dr Qurat ul Ain","Dentist","Consultation",500,500,NA,"Dr Ammad",500,"Saima",NA
+2017-03-01,46,NA,17,"M","Nursing Staff",NA,"Dressing",500,500,NA,"Dr Ammad",200,"Saima",NA
+2017-03-01,25,"7:00PM",NA,"F","Dr Kinza Alam","Gynae","Consultation",1500,1500,NA,"Dr Ammad",500,"Saima",NA
+2017-03-01,24,"7:10PM",NA,"M","Dr Ammad","M/o","Consultation",500,500,NA,"Dr Ammad",500,"Saima",NA
+2017-03-02,140,"12:48PM",30,"F","Dr Alaf Khan","Dentist","4 Unit Bridge",8000,8000,NA,"Dr Ammad",8000,"Saima",NA
+2017-03-02,46,"3:00PM",17,"M","Nursing Staff",NA,"Injection",50,50,NA,"Dr Ammad",50,"Saima",NA
+2017-03-02,114,"7:05PM",26,"F","Dr Kinza Alam","Gynae","Consultation",1000,1000,NA,"Dr Ammad",300,"Saima",NA
+2017-03-02,3,NA,NA,NA,"Nursing Staff",NA,"Dressing",100,100,NA,"Dr Ammad",100,"Saima",NA
+2017-03-03,138,"11:20AM",45,"F","Dr Alaf Khan","Dentist","Consultation",500,500,NA,"Dr Ammad",500,"Saima",NA
+2017-03-03,107,"12:30PM",17,"F","Dr Alaf Khan","Dentist","R.C.T+Crown",8000,8000,NA,"Dr Ammad",8000,"Saima","3/9/2017"
+2017-03-03,34,"1:30PM",22,"M","Dr Alaf Khan","Dentist","Crown",2000,2000,NA,"Dr Ammad",2000,"Saima","3/8/2017"
+2017-03-03,133,"4:10PM",30,"F","Dr Ali","Child Specialist","Consultation",1000,1000,NA,"Dr Ammad",300,"Saima",NA
+2017-03-03,46,"5:45PM",17,"M","Nursing Staff",NA,"Dressing",300,300,NA,"Dr Ammad",300,"Saima",NA
+2017-03-03,74,"2:40PM",38,"M","Dr Waqar Azeem","Radiologist","USG KUB",1000,1000,NA,"Dr Ammad",300,"Sub KB",NA
+2017-03-05,46,NA,17,"M","Nursing Staff",NA,"Dressing",300,300,NA,"Dr Ammad",200,"Saima",NA
+2017-03-06,83,"1:20PM",34,"M","Dr Alaf Khan","Dentist","Consultation",500,500,NA,"Dr Ammad",500,"Saima",NA
+2017-03-06,61,"5:30PM",28,"F","Dr Qurat ul Ain","Dentist","Consultation+X Ray",950,950,NA,"Dr Ammad",950,"Haris",NA
+2017-03-06,122,"7:00PM",78,"M","Nursing Staff",NA,"Injection",100,100,NA,"Dr Ammad",100,"Saima",NA
+2017-03-07,95,NA,56,"M","Dr Alaf Khan","Dentist","X Ray",300,300,NA,"Dr Ammad",300,"Saima",NA
+2017-03-07,69,"3:00PM",53,"M","Dr Alaf Khan","Dentist",NA,15000,15000,NA,"Dr Ammad",15000,"Mona",NA
+2017-03-07,146,NA,21,"M","Dr Ammad","M/o","Consultation",500,500,NA,"Dr Ammad",500,"Saima",NA
+2017-03-07,46,"7:40PM",17,"M","Nursing Staff",NA,"Dressing",200,200,NA,"Dr Ammad",200,"Saima",NA
+2017-03-07,32,"2:00PM",NA,"F","Nursing Staff",NA,"Coupety",300,300,NA,"Dr Ammad",300,"Saima",NA
+2017-03-07,122,"9:35PM",78,"M","Nursing Staff",NA,"Injection",100,100,NA,"Dr Ammad",100,"Sub KB",NA
+2017-03-08,148,"8:30PM",3,"F","Nursing Staff",NA,"Injection",100,100,NA,"Dr Ammad",100,"Ashfaq",NA
+2017-03-08,122,"10:00PM",76,"M","Nursing Staff",NA,"Injection",100,100,NA,"Dr Ammad",100,"Ashfaq",NA
+2017-03-08,10,"4:45PM",9,"F","Dr Qurat ul Ain","Dentist","Consultation+x Ray",650,650,NA,"Dr Ammad",650,"Saima",NA
+2017-03-08,76,"6:55PM",32,"M","Dr Paul","Dermatologist","Consultation",1500,1000,"500","Dr Ammad",300,"Mona",NA
+2017-03-08,1,"12:00PM",NA,"F","Nursing Staff",NA,"Injection",150,150,NA,"Dr Ammad",150,"Mona",NA
+2017-03-08,25,"7:30PM",NA,"F","Dr Kinza Alam","Gynae","Consultation",1500,1500,NA,"Dr Ammad",500,"Mona",NA
+2017-03-09,77,"12:00PM",24,"M","Dr Alaf Khan","Dentist","R.C.T",5000,2000,"3,000.00","Dr Ammad",2000,"Haris","3/16/2017"
+2017-03-09,121,"9:00AM",3,"F","Nursing Staff",NA,"Injection",100,100,NA,"Dr Ammad",100,"Mona",NA
+2017-03-09,122,NA,76,"M","Nursing Staff",NA,"Injection",100,100,NA,"Dr Ammad",100,"Mona",NA
+2017-03-09,1,NA,NA,NA,"Nursing Staff",NA,"Cancelled",NA,NA,NA,"Dr Ammad",NA,"Saima",NA
+2017-03-09,18,"3:30PM",39,"M","Dr Alaf Khan","Dentist","Scalling+Polishing",4000,4000,NA,"Dr Ammad",4000,"Saima",NA
+2017-03-09,110,"6:00PM",30,"M","Dr Qurat ul Ain","Dentist","Consultation",200,200,NA,"Dr Ammad",200,"Saima",NA
+2017-03-10,122,"10:20AM",76,"M","Nursing Staff",NA,"Injection",100,100,NA,"Dr Ammad",100,"Zaheer",NA
+2017-03-10,105,"11:20PM",45,"F","Dr Shireen","M/o","Consultation",800,800,NA,"Dr Ammad",800,"Mona",NA
diff --git a/Q1.R b/Q1.R
new file mode 100644
index 0000000..7fd26bd
--- /dev/null
+++ b/Q1.R
@@ -0,0 +1,23 @@
+library("ggplot2")
+library("lubridate")
+library("dplyr")
+library("tidyr")
+library("DataCombine")
+
+bufferedDataFrame <- read.csv("C:/Users/umair.hanif/Desktop/Learning Outcomes/AR/hospitaldata.csv", strip.white = T, na.strings = c("-",""," ","\t","\n",NA), stringsAsFactors = F)
+dataf <- tbl_df(bufferedDataFrame)
+View(dataf)
+glimpse(dataf)
+
+#removing character from age M
+dataf$Age <- as.numeric(gsub("[^0-9]",'',dataf$Age))
+class(dataf$Age)
+unique(dataf$Age)
+
+
+# Question #1 
+#Changing Datatypes from factor to their required formats
+names(dataf) <- gsub("\\.",'',names(dataf))
+
+#now lets play with date
+dataf$Date <- as.Date(strptime(dataf$Date, "%a, %B %d, %Y"))
diff --git a/Q10.R b/Q10.R
new file mode 100644
index 0000000..cfd5028
--- /dev/null
+++ b/Q10.R
@@ -0,0 +1,8 @@
+#Question 10
+repeated_visitors <- select(dataf,id) %>%
+  group_by(id) %>%
+  summarise(visits=length(id)) %>%
+  arrange(desc(visits)) %>%
+  filter(visits > 1) %>%
+  print   # printing repeated visitors along with their ids
+
diff --git a/Q11.R b/Q11.R
new file mode 100644
index 0000000..cfd5028
--- /dev/null
+++ b/Q11.R
@@ -0,0 +1,8 @@
+#Question 10
+repeated_visitors <- select(dataf,id) %>%
+  group_by(id) %>%
+  summarise(visits=length(id)) %>%
+  arrange(desc(visits)) %>%
+  filter(visits > 1) %>%
+  print   # printing repeated visitors along with their ids
+
diff --git a/Q12.R b/Q12.R
new file mode 100644
index 0000000..f63c6b2
--- /dev/null
+++ b/Q12.R
@@ -0,0 +1,30 @@
+library("ggplot2")
+library("lubridate")
+library("dplyr")
+library("tidyr")
+library("DataCombine")
+
+bufferedDataFrame <- read.csv("hospitaldata.csv", strip.white = T, na.strings = c("-",""," ","\t","\n",NA), stringsAsFactors = F)
+dataf <- tbl_df(bufferedDataFrame)
+View(dataf)
+glimpse(dataf)
+
+#removing character from age M
+dataf$Age <- as.numeric(gsub("[^0-9]",'',dataf$Age))
+class(dataf$Age)
+unique(dataf$Age)
+
+
+# Question #1 
+#Changing Datatypes from factor to their required formats
+names(dataf) <- gsub("\\.",'',names(dataf))
+
+#now lets play with date
+dataf$Date <- as.Date(strptime(dataf$Date, "%a, %B %d, %Y"))
+
+
+dataf %>% 
+  count(id, Procedure) %>%
+  slice(which(n>1))%>%
+  filter(!is.na(Procedure))%>%
+  select(id,Procedure)
\ No newline at end of file
diff --git a/Q13.R b/Q13.R
new file mode 100644
index 0000000..b8a7c08
--- /dev/null
+++ b/Q13.R
@@ -0,0 +1,7 @@
+#Question 13
+medianAge <- dataf %>% 
+  select(Sex,Age) %>%
+  group_by(Sex) %>%
+  summarise(median(Age, na.rm = TRUE)) %>%
+  print
+
diff --git a/Q14.R b/Q14.R
new file mode 100644
index 0000000..fdb231b
--- /dev/null
+++ b/Q14.R
@@ -0,0 +1,5 @@
+#Question 14
+dataf$TotalCharges<-as.numeric(as.character(dataf$TotalCharges))
+sum_of_charges <- sum(dataf$TotalCharges, na.rm = TRUE)
+print(sum_of_charges)
+
diff --git a/Q15.R b/Q15.R
new file mode 100644
index 0000000..ecaa37f
--- /dev/null
+++ b/Q15.R
@@ -0,0 +1,10 @@
+#Question 15
+dataf$TotalCharges<-as.numeric(as.character(dataf$TotalCharges))
+consult_amount <- dataf%>%
+  select(Procedure,TotalCharges) %>%
+  group_by(Procedure) %>%
+  filter(Procedure == 'Consultation') %>%
+  summarise(sum(TotalCharges,na.rm=TRUE)) %>%
+  print
+
+
diff --git a/Q16.R b/Q16.R
new file mode 100644
index 0000000..ec67024
--- /dev/null
+++ b/Q16.R
@@ -0,0 +1,3 @@
+#Question 16
+cor(dataf$Age,dataf$Age)
+
diff --git a/Q17.R b/Q17.R
new file mode 100644
index 0000000..28a74ef
--- /dev/null
+++ b/Q17.R
@@ -0,0 +1,35 @@
+#Question 17
+library("ggplot2")
+library("lubridate")
+library("dplyr")
+library("tidyr")
+library("DataCombine")
+
+bufferedDataFrame <- read.csv("C:/Users/umair.hanif/Desktop/Learning Outcomes/AR/hospitaldata.csv", strip.white = T, na.strings = c("-",""," ","\t","\n",NA), stringsAsFactors = F)
+dataf <- tbl_df(bufferedDataFrame)
+View(dataf)
+glimpse(dataf)
+
+#removing character from age M
+dataf$Age <- as.numeric(gsub("[^0-9]",'',dataf$Age))
+class(dataf$Age)
+unique(dataf$Age)
+
+
+# Question #1 
+#Changing Datatypes from factor to their required formats
+names(dataf) <- gsub("\\.",'',names(dataf))
+
+#now lets play with date
+dataf$Date <- as.Date(strptime(dataf$Date, "%a, %B %d, %Y"))
+
+visits_by_age <- dataf %>%
+  select(id,Age) %>%
+  group_by(Age) %>%
+  summarize(visits=length(Age)) %>%
+  arrange(desc(visits)) %>%
+  filter(!is.na(Age)) %>%
+  print
+
+ggplot(data=visits_by_age,aes(x=as.numeric(Age),y=visits))+geom_bar(stat='identity',fill='slate blue')+ggtitle("Visits By Age")+labs(x='Age',y='Visits')
+
diff --git a/Q18.R b/Q18.R
new file mode 100644
index 0000000..354932f
--- /dev/null
+++ b/Q18.R
@@ -0,0 +1,3 @@
+#Question 18
+dataf$Total_Charges<-as.numeric(dataf$Total_Charges)
+sum(dataf$Total_Charges[dataf$Procedure=="X Ray" | dataf$Procedure=="Scalling"],na.rm = TRUE)
diff --git a/Q2.R b/Q2.R
new file mode 100644
index 0000000..6c057df
--- /dev/null
+++ b/Q2.R
@@ -0,0 +1,10 @@
+#Question 2
+day_visits <-  dataf %>%
+  mutate(Day=weekdays(dataf$Date),label=TRUE) %>%
+  group_by(Day) %>%
+  summarize(visits=length(Day)) %>%
+  print
+
+ggplot(day_visits,aes(x=Day,y=visits))+geom_bar(stat="identity",fill="slateblue")+ggtitle("Visits per Weekday")+labs(x="Day",y="Visits")
+
+
diff --git a/Q3.R b/Q3.R
new file mode 100644
index 0000000..78927de
--- /dev/null
+++ b/Q3.R
@@ -0,0 +1,2 @@
+#Question 3
+mean(dataf$Age, na.rm = TRUE)
diff --git a/Q4.R b/Q4.R
new file mode 100644
index 0000000..3b02d7f
--- /dev/null
+++ b/Q4.R
@@ -0,0 +1,7 @@
+#Question 4
+child <- filter(dataf, Age > 1 & Age < 13) %>%
+  select(-(Date:Time)) %>%
+  select(-(Sex:NextApt)) %>%
+  count() %>%
+  print
+
diff --git a/Q5.R b/Q5.R
new file mode 100644
index 0000000..6d5aaf2
--- /dev/null
+++ b/Q5.R
@@ -0,0 +1,31 @@
+#Question 5
+#Repeating previous code snippet
+
+library("ggplot2")
+library("lubridate")
+library("dplyr")
+library("tidyr")
+library("DataCombine")
+
+bufferedDataFrame <- read.csv("C:/Users/umair.hanif/Desktop/Learning Outcomes/AR/hospitaldata.csv", strip.white = T, na.strings = c("-",""," ","\t","\n",NA), stringsAsFactors = F)
+dataf <- tbl_df(bufferedDataFrame)
+View(dataf)
+glimpse(dataf)
+
+#removing character from age M
+dataf$Age <- as.numeric(gsub("[^0-9]",'',dataf$Age))
+class(dataf$Age)
+unique(dataf$Age)
+
+
+# Question #1 
+#Changing Datatypes from factor to their required formats
+names(dataf) <- gsub("\\.",'',names(dataf))
+
+#now lets play with date
+dataf$Date <- as.Date(strptime(dataf$Date, "%a, %B %d, %Y"))
+
+
+dataf$Sex <- gsub("f","F",dataf$Sex)
+dataf$Sex<-gsub("\\s|-",NA,dataf$Sex)
+qplot(data=dataf, Sex, fill=Procedure)+ggtitle("Procedure vs Gender")+labs(x='Gender',y='Procedure')
diff --git a/Q6.R b/Q6.R
new file mode 100644
index 0000000..e011615
--- /dev/null
+++ b/Q6.R
@@ -0,0 +1,29 @@
+#Question 6
+#Repeating previous code snippet
+
+library("ggplot2")
+library("lubridate")
+library("dplyr")
+library("tidyr")
+library("DataCombine")
+
+bufferedDataFrame <- read.csv("C:/Users/umair.hanif/Desktop/Learning Outcomes/AR/hospitaldata.csv", strip.white = T, na.strings = c("-",""," ","\t","\n",NA), stringsAsFactors = F)
+dataf <- tbl_df(bufferedDataFrame)
+View(dataf)
+glimpse(dataf)
+
+#removing character from age M
+dataf$Age <- as.numeric(gsub("[^0-9]",'',dataf$Age))
+class(dataf$Age)
+unique(dataf$Age)
+
+
+# Question #1 
+#Changing Datatypes from factor to their required formats
+names(dataf) <- gsub("\\.",'',names(dataf))
+
+#now lets play with date
+dataf$Date <- as.Date(strptime(dataf$Date, "%a, %B %d, %Y"))
+
+
+qplot(data=dataf, fill=ConsultingDoctor, as.numeric(TotalCharges))+ggtitle("Highest Earning")+labs(x='TotalCharges',y='ConsultingDoctor')
diff --git a/Q7.R b/Q7.R
new file mode 100644
index 0000000..320154a
--- /dev/null
+++ b/Q7.R
@@ -0,0 +1,28 @@
+#Question 7
+#Repeating previous code snippet
+
+library("ggplot2")
+library("lubridate")
+library("dplyr")
+library("tidyr")
+library("DataCombine")
+
+bufferedDataFrame <- read.csv("C:/Users/umair.hanif/Desktop/Learning Outcomes/AR/hospitaldata.csv", strip.white = T, na.strings = c("-",""," ","\t","\n",NA), stringsAsFactors = F)
+dataf <- tbl_df(bufferedDataFrame)
+View(dataf)
+glimpse(dataf)
+
+#removing character from age M
+dataf$Age <- as.numeric(gsub("[^0-9]",'',dataf$Age))
+class(dataf$Age)
+unique(dataf$Age)
+
+
+# Question #1 
+#Changing Datatypes from factor to their required formats
+names(dataf) <- gsub("\\.",'',names(dataf))
+
+#now lets play with date
+dataf$Date <- as.Date(strptime(dataf$Date, "%a, %B %d, %Y"))
+
+qplot(data=dataf, as.numeric(TotalCharges), fill=Procedure)+ggtitle("Highest Procedure")+labs(x='TotalCharges',y='Procedure')
diff --git a/Q8.R b/Q8.R
new file mode 100644
index 0000000..006f8da
--- /dev/null
+++ b/Q8.R
@@ -0,0 +1,10 @@
+#Question 8
+hour_visits <-  dataf %>%
+  select(Time) %>%
+  mutate(Hour = hour(hm(format(strptime(dataf$Time, "%I:%M %p"), "%H:%M")))) %>%
+  group_by(Hour) %>%
+  summarize(visits=length(Hour)) %>%
+  arrange(desc(visits)) %>%
+  print     # printing 13 the highest hour, i.e. actaully 1 AM/PM in 12 hour format
+
+