# Create some example data
raw <- c("1000", "1000", "1100", "1100", "1100", "1110",
"0110", "0110", "0111", "0101", "0010", "0011", "0001")
ch1 <- ch2matrix(raw) # character vector
cbind(raw, ch1)
ch <- ch2matrix(factor(raw)) # factor
all(ch == ch1)
ch <- ch2matrix(as.numeric(raw)) # numeric
all(ch == ch1)
ch <- ch2matrix(matrix(raw, ncol=1)) # 1 column matrix
all(ch == ch1)
ch <- ch2matrix(data.frame(raw=raw)) # 1 column data frame
all(ch == ch1)
# Error messages:
try(ch2matrix(matrix(rep(raw, 2), ncol=2))) # 2 column matrix -> error
try(ch2matrix(data.frame(raw=raw, dummy=raw))) # 2 column data frame -> error
raw[2] <- "11000" # wrong length
try(ch2matrix(raw)) # error
ch2matrix(as.numeric(raw)) # this works, leading zeros not expected.
Run the code above in your browser using DataLab