| Moderator:Nobody (see all) Click here to sign up. |
| This page is a stub. You may improve it into a full page. |
| Upload data
|
dropall pudottaa data.framesta pois kaikki faktorien sellaiset levelit, joita ei käytetä.
library(OpasnetBaseUtils)
library(xtable)
n <- 5
# DROPALL #####################################
## dropall pudottaa data.framesta pois kaikki faktorien sellaiset levelit, joita ei käytetä.
## parametrit: x = data.frame
dropall <- function(x){
isFac <- NULL
for (i in 1:dim(x)[2]){
isFac[i] = is.factor(x[ , i])
}
for (i in 1:length(isFac)){
x[, i] <- x[, i][ , drop = TRUE]
}
return(x)
}
|