print(getwd())
data <- read.csv("reportclean.csv")

colnames(data)[1] <- "date"
colnames(data)[2] <- "interest"

x <- integer(0)
class(x) <- "Date"

i_n <- toString(data[1, "date"])
vector1 <- c(as.Date(i_n))




for (row in 2:nrow(data)) {
	
	i_n <- toString(data[row, "date"])
	vector1 <- c(vector1, as.Date(i_n))
	
	
	#vector[row] <- as.Date(i_n)
			
}

data["date"] <- vector1

weekday <- c(weekdays(data[1, "date"]))

for (row in 2:nrow(data)) {
	weekday <- c(weekday,weekdays(data[row, "date"]))
			
}
data["weekday"] <- weekday 
weekdays1 <- c('Monday', 'Tuesday', 'Wednesday', 'Thursday', 'Friday')
print("Monday")
mean(data.matrix(data[data$weekday=='Monday',"interest"]))
print("Weekends")
mean(data.matrix(data[!is.element(data$weekday,weekdays1),"interest"]))
print("Weekdays")
mean(data.matrix(data[is.element(data$weekday,weekdays1),"interest"]))

print("Median")
median(data$interest)
print("Minimum")
min(data$interest)
print("Maximum")
max(data$interest)

first <- c(data[1,"interest"])
second <- c(data[2,"interest"])
first_ <- TRUE
for (row in 3:nrow(data)) {
	if(first_==TRUE){
		first_ <- FALSE
		first <- c(first,data[row,"interest"])
	}
	else{
		first_ <- TRUE
		second <- c(second ,data[row,"interest"])

	}
		

}



print("Correlation")

print(cor(first,second))