comple <- function(allele){
ifelse(allele == "A","T", ifelse(allele == "T","A", ifelse(allele == "G","C", ifelse(allele == "C","G", allele)) ))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.