在R语言中写出以下代码：至少选取5个距离，针对IRIS数据集，给出距离矩阵

以下是答案：

library(datasets)
data(iris)

# Euclidean distance
distEuclid <- dist(iris[,1:4], method="euclidean")

# Manhattan distance
distManhattan <- dist(iris[,1:4], method="manhattan")

# Maximum distance
distMax <- dist(iris[,1:4], method="maximum")

# Canberra distance
distCanberra <- dist(iris[,1:4], method="canberra")

# Minkowski distance
distMinkowski <- dist(iris[,1:4], method="minkowski", p=3)

# Print out the distance matrices
print(distEuclid)
print(distManhattan)
print(distMax)
print(distCanberra)
print(distMinkowski)