Nothing
"read.crd" <- function(file, ...) {
## from tools package:
pos <- regexpr("\\.([[:alnum:]]+)$", file)
ext <- ifelse(pos > -1L, substring(file, pos + 1L), "")
if(ext %in% c("crd")) {
class(file)=c("character", "charmm")
}
if(ext %in% c("inpcrd", "rst")) {
class(file)=c("character", "amber")
}
UseMethod("read.crd", file)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.