R
r
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
u <- matrix(1:3) # column vector
v <- t(matrix(u)) # row vector
cat("# column vector\n")
print(u)
cat("# row vector\n")
print(v)
cat("# row vec * column vec => outer product")
print(u %*% v)
cat("# row vec * column vec => dot product, \"inner product\"\n")
print(v %*% u) # v and u have the same length
cat("\n\n\n")
# compare to
v <- t(matrix(u[1:2]))
cat("# column vector\n")
print(u)
cat("# row vector\n")
print(v)
print(u %*% v)
Enter to Rename, Shift+Enter to Preview
OUTPUT
Run