编辑代码

DifferenceMatrix <- function(data)
{
	data <- c(1, 2, 3, 4, 5)
	size <- 1:length(data)

	# 定义结果
	VectorResult  <- c()

	for( i in size)
	{
		for( j in size)
		{
			diff <- data[i] - data[j]
			VectorResult <- c(VectorResult, diff)
		}
	}

	MatrixResult <- matrix(VectorResult, length(data),length(data), 
						   FALSE, dimnames = list(data , data))
	#print(MatrixResult)
	MatrixResult
}

data = c(1, 2, 3, 4, 5)
mr = DifferenceMatrix(data)
print(mr)