1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| x <- matrix(rnorm(10), nrow=5)
y <- data.frame(a=letters[1:10], b=rnorm(10), c=runif(10))
write.table.rd <- function(x, ndec=3,...)
{
## Purpose: écrire un tableau dans un fichier en arrondissant les valeurs
## numériques
## ----------------------------------------------------------------------
## Arguments: x: une data.frame ou quelque chose qui peut être converti
## en data.frame
## ndec: nombre de décimales
## ...: arguments passés à la fonction write.table()
## ----------------------------------------------------------------------
## Author: pitipoisson
x <- as.data.frame(x) # transformation en data.frame
numcol <- which(sapply(x, class) == "numeric") # sélection des colonnes numériques
x[ , numcol] <- round(x[, numcol], digits=ndec) # elles sont ensuite arrondies
write.table(x,...) # et enfin on écrit le résultat dans un fichier
}
write.table.rd(x, file="")
write.table.rd(y, file="") |
Partager