x<-c(21,4,13,6,12,7,4,25,22)
y<-c(-2,4,-3,8,-7,8,-2,-6,5)
x;y
cov(x,y)
cor(x,y)
summary(x);summary(y)
cumsum(1:10);cumprod(1:10)