mydata = read.csv("lqmt_6month.csv");
names(mydata)

n = length(mydata$High);
myday = c(1:n)
plot(myday, rev(mydata$High))
title(main="Daily High Price of LQMT stock", col.main="red", font.main=4)

x = myday;
y = rev(mydata$High);

sx = sd(x);
sy = sd(y);

xbar = mean(x);
ybar = mean(y);

z = ((x - xbar)/sx)*((y - ybar)/sy)
corval = sum(z)/(length(x) - 1);

print("correlation coefficient between price and day number is:")
print(corval)