Nothing
round2str <-
function (x, r = 12)
{
is.vector2 <- function(a) {
c(class(a)[1] == "vector" | class(a)[1] == "numeric")
}
is.wholenumber <- function(x, tol = .Machine$double.eps^0.5) abs(x -
round(x)) < tol
find.text <- function(ch, str) {
n <- nchar(str)
text <- "t"
for (i in 1:n) {
text <- c(text, substring(str, i, i))
}
vt <- c(0:n) * (text == ".")
vt <- vt[vt != 0]
vt
}
round2 <- function(x, r) {
if (!is.numeric(x))
stop("'x'consit non-numeric variable!")
if (is.null(x) | missing(x) | is.na(x))
kq <- x
else {
x <- as.character(x)
vt.cham <- find.text(".", x)
if (length(vt.cham) != 0)
kq <- substring(x, 1, vt.cham + r)
if (length(vt.cham) == 0)
kq <- x
}
kq
}
round2s <- function(x, r) {
if (is.vector2(x) & length(x) == 1)
kq <- round2(x, r)
if (is.vector2(x) & length(x) > 1) {
n <- length(x)
kq <- rep(0, n)
for (i in 1:n) kq[i] <- round2(x[i], r)
}
if (is.matrix(x) | is.data.frame(x)) {
m <- dim(x)[1]
n <- dim(x)[2]
kq <- matrix(rep(0, m * n), ncol = n)
for (j in 1:n) for (i in 1:m) kq[i, j] <- round2(x[i,
j], r)
}
kq
}
if (!is.wholenumber(r))
stop("'r' must be a integer number!")
if (class(x)[1] == "table") {
if (length(dim(x)) == 1)
x <- as.vector(x)
if (length(dim(x)) == 2)
x <- as.matrix(x)
}
if (is.vector2(x) | is.matrix(x) | is.data.frame(x))
kq <- round2s(x, r)
if (class(x)[1] == "list")
stop("'x' must not be a list!")
kq
}
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.