CW 2/20/25

# Step 1: Create the Genes data frame
Genes <- data.frame(
  Gene1 = c(5, 3, 9, 7),
  Gene2 = c(8, 2, 6, 4),
  Gene3 = c(7, 4, 8, 5),
  Gene4 = c(6, 1, 5, 3)
)

# Add row names
rownames(Genes) <- c("Sample1", "Sample2", "Sample3", "Sample4")

# Step 2: Compute Manhattan (L1) Distance
manhattan_dist <- dist(Genes, method = "manhattan")

# Step 3: Compute Euclidean (L2) Distance
euclidean_dist <- dist(Genes, method = "euclidean")

# Print the dataset
print("Genes Data:")

## [1] "Genes Data:"

print(Genes)

##         Gene1 Gene2 Gene3 Gene4
## Sample1     5     8     7     6
## Sample2     3     2     4     1
## Sample3     9     6     8     5
## Sample4     7     4     5     3

# Print the Manhattan distances
print("Manhattan Distances:")

## [1] "Manhattan Distances:"

print(manhattan_dist)

##         Sample1 Sample2 Sample3
## Sample2      16                
## Sample3       8      18        
## Sample4      11       9       9

# Print the Euclidean distances
print("Euclidean Distances:")

## [1] "Euclidean Distances:"

print(euclidean_dist)

##          Sample1  Sample2  Sample3
## Sample2 8.602325                  
## Sample3 4.690416 9.165151         
## Sample4 5.744563 5.000000 4.582576