Nothing
"pca.pdbs" <- function(pdbs, core.find=FALSE, fit=FALSE, ...) {
## Log the call
cl <- match.call()
if(core.find & fit) {
warning("incompatible arguments- neglecting 'fit=TRUE'")
fit=FALSE
}
if(core.find) {
core <- core.find(pdbs)
pdbs$xyz = pdbfit(pdbs, core$c0.5A.xyz)
} else if(fit) {
pdbs$xyz = pdbfit(pdbs)
}
gaps.pos <- gap.inspect(pdbs$xyz)
pc <- pca.xyz(pdbs$xyz[,gaps.pos$f.inds], ...)
pc$call=cl
return(pc)
}
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.