Nothing
string.blank.omit <-
function (string)
# Suppresses blanks in a string: returns string without blanks
{ k <- 1
str <- ""
for (j in 1:nchar(string))
{ if(substr(string,j,j)!=" ")
{ str <- ifelse (str=="",substr(string,j,j),paste(str,substr(string,j,j),sep=""))
k <- k + 1
}
}
return (str)
}
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.