x = seq(1:20)
y = seq(21:40)
plot(x, y, main="Scatter Plot between Income and Expensiture", col=2, col.main=5,col.sub=9, las=1, xlab="Income",ylab="Expemditure", pch = 19, sub="Figure I")

SIMPLE CORRELATION COEFFICIENT BETWEEN INCOME AND EXPENDITURE

x = seq(1:20)
y = seq(21:40)
cor(x, y, method="pearson") # We use Pearson's Corerelation Method 
## [1] 1
cor(x, y, method="spearman") # We use Spearman's Corerelation Method 
## [1] 1
cor(x, y, method="kendall") # We use Kendall-tau's Corerelation Method 
## [1] 1