#importing the CSV file

data<-read.csv("D:/Work/Jan 2019/first work/kHVq5fx8QqXxzQ9lQsaJ.csv", sep=";")
data<-data[data$diagnosis !="",]#removing missing diagnosis

#changing date variable format from factor to date

data$date<-as.character(data$date)#converting the date variable from factor to character
data$new_date<-as.Date(data$date, format = "%d/%m/%Y")#converting new date variable from character to DATE

#defining the categories for group

data$cat[data$new_date>as.Date('15/10/2016', format = "%d/%m/%Y")]<-"Group 1"#after the war
data$cat[data$new_date<=as.Date('15/10/2016', format = "%d/%m/%Y")]<-"Group 2"#before the war

#analysis for gender

table(data$cat, data$gender)#creating the table containing frequency counts
##
##       Female Male
## Group 1 590 468
## Group 2 333 260
prop.table(table(data$cat, data$gender))#creating the table percentages
##
##          Female    Male
## Group 1 0.3573592 0.2834646
## Group 2 0.2016959 0.1574803
chisq.test(data$cat, data$gender)#conducting chi-square test
##
## Pearson's Chi-squared test with Yates' continuity correction
##
## data: data$cat and data$gender
## X-squared = 0.010259, df = 1, p-value = 0.9193

Problem 4. Suppose that two fair six-sided dice are rolled. Run th...