gistfile1.txt

nums <- unlist(lapply(dataset, is.numeric))  
datasetnums<-dataset[ , nums]
TSdist::EuclideanDistance(dataset$VCO2i, dataset$Hb)
diss <- TSdist::TSDatabaseDistances(datasetnums, distance="euclidean", diag=T, upper=T) %>% 
  as.matrix()
diss %>% 
  reshape::melt() %>% 
  ggplot2::ggplot()+
  ggplot2::geom_tile(ggplot2::aes(x = X1, y = X2, fill = value))+
  ggplot2::scale_fill_viridis_c()