Hi babtiste,
thank you very much for your fast answer. your solution is very good,
but i also need the dimnames as in the for-loop for further calculations.
best regards
Andreas
baptiste auguie wrote:
Hi,
Is the following close enough?
apply(set2, 2, function(x) x[is.na(x)])
HTH,
baptiste
2009/12/10 Andreas Wittmann <andreas_wittm...@gmx.de>:
Dear R-users,
after several tries with lapply and searching the mailing list, i want to
ask, wheter and how it is possibly to avoid the for-loop in the following
piece of code?
set2<-as.data.frame(matrix(rnorm(9),ncol=3))
set2[1,1] <- NA
set2[3,2] <- NA
set2[2,1] <- NA
dimnames(set2)[1] <- list(c("A","B","C"))
r <- !is.na(set2)
imp <- vector("list", ncol(set2))
for (j in 1:dim(set2)[2])
{
imp[[j]] <- as.data.frame(matrix(NA, nrow = sum(!r[,j]), ncol = 1))
dimnames(imp[[j]]) <- list(row.names(set2)[r[,j] == FALSE], 1)
}
many thanks and best regards
Andreas
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.