tmp should be replaced with S above, also, an alternative solution below

## data is in a file that looks like this
  3266.46
  1343.97  721.91
  731.54  324.25  179.28
  1175.5  537.35  281.17  474.98
  162.68  80.17  39.15  63.73  9.95
  238.37  117.73  56.8  94.85  13.88  21.2

## R code
data <- scan("./P8-23.dat")
S <- matrix(0,6,6)
S[upper.tri(S,diag=TRUE)] <- data
S <- S + t(S)
diag(S) <- diag(S) - 0.5*diag(S)