ser <- fread("Serology.tsv", na = "")
for (col in names(ser)[-1]) ser[[col]] <- as.integer(factor(ser[[col]], levels = c("N", "P"))) - 1
write.table(ser, "Serology_ref.tsv", sep = "\t", quote = F, row.names = F)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.