price1 price2 price3 price4
0       1       1      0
1       0       1      1
0       0       0      0
1       0       1      0

stock1 stock2
1        1
0        1
1        0
1        1

stock 1- price 1
stock 1- price 2
stock 1- price 3
stock 1- price 4
stock 2- price 1
stock 2- price 2
stock 2- price 3
stock 2- price 4

library(proxy)
  distanceMatrix <- proxy::dist(t(df), method = "Kulczynski1")
  heatmap(as.matrix(distanceMatrix))