Inner Product Of Two Vectors In R