Nothing
AT.add.trailing.zeros <- function(x, digits = 5){
# Convert 99.1 into "99.10000" etc.
# Library: clan
# Created March 12, 2009, S. Greilich
# corrects for possible round-off error when
# "digits" < number of significant digits in fractional part of "x"
mx <- paste("0.",paste(rep("0",digits),sep="",collapse=""),"1",sep="")
fx <- substring(as.character(x), grep(".", x) + 2)
if (nchar(fx) >= digits){
nx <- round(x, digits = digits)
res <- as.character(nx)
}else{
nx <- as.numeric(mx)+x
res <- substring(nx, 1, nchar(as.character(nx))-1)
}
return(res)
}
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.