Deck Day

[1] "title: 'Deck Day' \noutput: \n  html_notebook: \n    code_folding: show \ndate: '2024-05-08'"

---

Customized Table

First Table

	Col1	Col2	Col3
Row1	A	B	C
Row2	D	E	F
Row3	G	H	I
Row4	J	K	L
Row5	M	N	O

Second Table

	Col1	Col2	Col3
Row1	A	C	D
Row2	E	F	G
Row3	H	I	J
Row4	K	L	M
Row5	N	O	P

# Comparing three tables
different_entries <- (data1 != data2) 

# Showing the differences
differences <- cbind(data.frame(different_entries))
colnames(differences) <- c()

# Displaying the differences
print(differences)

# Create data for the second table
data3 <- matrix(c("A", "C", "D", "E", "F",
                  "G", "H", "I", "J", "K",
                  "L", "M", "N", "O", "P"), 
                nrow = 5, ncol = 3, byrow = TRUE)
colnames(data3) <- c("Col1", "Col2", "Col3")
rownames(data3) <- c("Row1", "Row2", "Row3", "Row4", "Row5")

knitr::kable(data3, caption = "Third Table")

Third Table

	Col1	Col2	Col3
Row1	A	C	D
Row2	E	F	G
Row3	H	I	J
Row4	K	L	M
Row5	N	O	P

# Comparing three tables
different_entries <- (data1 != data2) | (data1 != data3) | (data2 != data3) 

# Showing the differences
differences <- cbind(data.frame(different_entries))
colnames(differences) <- c()

# Displaying the differences
print(differences)

---

Series Table

This is the first table

	Column1	Column2	Column3
Row1	1	2	3
Row2	4	5	6
Row3	7	8	9
Row4	10	11	12
Row5	13	14	15

This is the second table

	Column1	Column2	Column3
Row1	1	0	-1
Row2	-2	-3	-4
Row3	-5	-6	-7
Row4	-8	-9	-10
Row5	-11	-12	-13

# Comparing two tables
different_entries <- table1 != table2

# Showing the differences
differences <- cbind(data.frame(different_entries))
colnames(differences) <- c()

# Displaying the differences
print(differences)

NA

# Creating the third table
table3 <- matrix(1:15, nrow = 5, ncol = 3, byrow = TRUE)
colnames(table3) <- c("Column1", "Column2", "Column3")
rownames(table3) <- c("Row1", "Row2", "Row3", "Row4", "Row5")

knitr::kable(table3, caption = "This is the third table")

This is the third table

	Column1	Column2	Column3
Row1	1	2	3
Row2	4	5	6
Row3	7	8	9
Row4	10	11	12
Row5	13	14	15

# Comparing three tables
different_entries <- (table1 != table2) | (table1 != table3) | (table2 != table3)

# Showing the differences
differences <- cbind(data.frame(different_entries))
colnames(differences) <- c()

# Displaying the differences
print(differences)

NA