File: dataframeReduce.r

package info (click to toggle)
hmisc 5.2-4-2
  • links: PTS, VCS
  • area: main
  • in suites: forky
  • size: 4,044 kB
  • sloc: asm: 28,905; f90: 590; ansic: 415; xml: 160; fortran: 75; makefile: 2
file content (17 lines) | stat: -rw-r--r-- 441 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
# Thanks: JoAnn Alvarez
require(Hmisc)
set.seed(3)
NN <- 200
x1 <- rnorm(NN)
x2 <- x1^2
x3 <- runif(NN)
x4 <- factor(NA, levels = c("January", "February", "March"))
x5 <- factor(sample(c(1, 2, 3), size = NN, replace = TRUE), labels = 
             c("January", "February", "March"))
m <- 30
x2[1:m] <- NA
x5[1:m] <- NA
xdat <- data.frame(x1, x2, x3, x4)
combine.levels(xdat$x4)
xdat2 <- dataframeReduce(xdat, minprev=0.05, fracmiss = 0.05)