delete.gaps <- function(x){
ncha <- dim(x)[2]
hh <- vector()
for (i in 1:ncha){
if ("-" %in% as.character(x[,i]))
hh <- c(hh, i)
}
s <- s[, -hh]
s
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.