#' $Id: SeaBird.string.to.vector.of.words.R 1747 2007-11-12 21:01:38Z adunn $
#'
#' @export
#'
"SeaBird.string.to.vector.of.words"<-
function(string)
{
temp <- SeaBird.unpaste(string, sep = " ")
return(temp[temp != ""])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.