If I understand your question, this may work for you:
dat <- matrix(as.logical(sample(T:F, 30, T)),5,6)
colnames(dat) <- letters[1:6]
rownames(dat) <- paste(letters[1:5],1:5, sep="")
dat1 <- matrix(NA,5,6)
colnames(dat1) <- colnames(dat)
rownames(dat1) <- rownames(dat)
dat1[dat] <- unlist(sapply
Sorry, I noticed my previous code does not work if a column has all NAs. Try
this instead:
dat <- matrix(as.logical(sample(T:F, 30, T)),5,6)
colnames(dat) <- letters[1:6]
rownames(dat) <- paste(letters[1:5],1:5, sep="")
dat1 <- matrix(NA,5,6)
colnames(dat1) <- colnames(dat)
rownames(dat1) <- row
Hello !!
I have this problem:
A matrix on True/False
and as many numerical vectors as columns,
but of different length. What I 'd like to get is this:
set.seed(12)
> dat <- as.data.frame(matrix(as.logical(sample(T:F, 30, T)),5,6))
> colnames(dat) <- letters[1:6]
> rownames(dat) <- paste(letters[1:
3 matches
Mail list logo