1### R code from vignette source 'unknown.Rnw' 2 3################################################### 4### code chunk number 1: ex01 5################################################### 6library("gdata") 7xNum <- c(0, 6, 0, 7, 8, 9, NA) 8isUnknown(x=xNum) 9 10 11################################################### 12### code chunk number 2: ex02 13################################################### 14isUnknown(x=xNum, unknown=0) 15 16 17################################################### 18### code chunk number 3: ex03 19################################################### 20isUnknown(x=xNum, unknown=c(0, NA)) 21 22 23################################################### 24### code chunk number 4: ex04 25################################################### 26(xNum2 <- unknownToNA(x=xNum, unknown=0)) 27 28 29################################################### 30### code chunk number 5: ex05 31################################################### 32NAToUnknown(x=xNum2, unknown=999) 33 34 35################################################### 36### code chunk number 6: ex06 37################################################### 38NAToUnknown(x=xNum2, unknown=7, force=TRUE) 39 40 41################################################### 42### code chunk number 7: ex07 43################################################### 44(xFac <- factor(c(0, "BA", "RA", "BA", NA, "NA"))) 45isUnknown(x=xFac) 46isUnknown(x=xFac, unknown=0) 47isUnknown(x=xFac, unknown=c(0, NA)) 48isUnknown(x=xFac, unknown=c(0, "NA")) 49isUnknown(x=xFac, unknown=c(0, "NA", NA)) 50 51(xFac <- unknownToNA(x=xFac, unknown=0)) 52(xFac <- NAToUnknown(x=xFac, unknown=0)) 53 54 55################################################### 56### code chunk number 8: ex08 57################################################### 58(xList <- list(a=xNum, b=xFac)) 59isUnknown(x=xList, unknown=0) 60 61 62################################################### 63### code chunk number 9: ex09 64################################################### 65isUnknown(x=xList, unknown=c(0, NA)) 66 67 68################################################### 69### code chunk number 10: ex10 70################################################### 71(xList1 <- unknownToNA(x=xList, 72 unknown=list(b=c(0, "NA"), 73 a=0))) 74 75 76################################################### 77### code chunk number 11: ex11 78################################################### 79NAToUnknown(x=xList1, 80 unknown=list(b="no", a=0)) 81 82 83################################################### 84### code chunk number 12: ex12 85################################################### 86df <- data.frame(col1=c(0, 1, 999, 2), 87 col2=c("a", "b", "c", "unknown"), 88 col3=c(0, 1, 2, 3), 89 col4=c(0, 1, 2, 2)) 90 91 92################################################### 93### code chunk number 13: ex13 94################################################### 95tmp <- list(.default=0, 96 col1=999, 97 col2="unknown") 98(df2 <- unknownToNA(x=df, 99 unknown=tmp)) 100 101 102################################################### 103### code chunk number 14: ex14 104################################################### 105df2 <- df 106cols <- c("col1", "col2") 107tmp <- list(col1=999, 108 col2="unknown") 109df2[, cols] <- unknownToNA(x=df[, cols], 110 unknown=tmp) 111df2 112 113 114