CW22025

Genes <- data.frame(
  IRX4 = c(11,13,2,1),
  OCT4 = c(10,13,4,3),
  PAX6 = c(1,3,10,9),
  row.names = c("patient1", "patient2", "patient3", "patient4")
)

print(Genes)

##          IRX4 OCT4 PAX6
## patient1   11   10    1
## patient2   13   13    3
## patient3    2    4   10
## patient4    1    3    9

?dist

manhattan_dist <- dist(Genes, method = "manhattan")
print(manhattan_dist)

##          patient1 patient2 patient3
## patient2        7                  
## patient3       24       27         
## patient4       25       28        3

euclidian_dist <- dist(Genes, method = "euclidian")
print(euclidian_dist)

##           patient1  patient2  patient3
## patient2  4.123106                    
## patient3 14.071247 15.842980          
## patient4 14.594520 16.733201  1.732051