Re: [R] Remove empty list from list - remove only one row and make as matrix
Dear all, Dimitris, thanks for your great help and quick response. Best, Muhammad Subianto > dff[sapply(dff, is.matrix)] [[1]] [,1] [,2] [,3] [,4] [,5] [1,]16 11 161 [2,]49 14 191 [3,]5 10 15 201 [[2]] [,1] [,2] [,3] [,4] [,5] [1,]38 13 18 -1 [2,]5 10 15 20 -1 > lapply(dff, function(x) if(!is.matrix(x)) rbind(x) else x) [[1]] [,1] [,2] [,3] [,4] [,5] [1,]16 11 161 [2,]49 14 191 [3,]5 10 15 201 [[2]] [,1] [,2] [,3] [,4] [,5] x16 11 161 [[3]] [,1] [,2] [,3] [,4] [,5] [1,]38 13 18 -1 [2,]5 10 15 20 -1 > On this day 29/08/2006 13:34, Dimitris Rizopoulos wrote: > try the following: > > # a > dff[sapply(dff, is.matrix)] > > # b > lapply(dff, function(x) if(!is.matrix(x)) rbind(x) else x) > > > I hope it helps. > > Best, > Dimitris > > > Dimitris Rizopoulos > Ph.D. Student > Biostatistical Centre > School of Public Health > Catholic University of Leuven > > Address: Kapucijnenvoer 35, Leuven, Belgium > Tel: +32/(0)16/336899 > Fax: +32/(0)16/337015 > Web: http://med.kuleuven.be/biostat/ > http://www.student.kuleuven.be/~m0390867/dimitris.htm > > > - Original Message - > From: "Muhammad Subianto" <[EMAIL PROTECTED]> > To: > Sent: Tuesday, August 29, 2006 1:22 PM > Subject: Re: [R] Remove empty list from list - remove only one row and > make as matrix > > >> Dear all, >> After I work around, I found in my list of data with only one row >> which >> need to remove or make it as matrix. >> Here I write again my other toy example: >> x <- list(matrix(1:20, 5, 4),matrix(1:20, 5, 4),matrix(1:20, 5, >> 4),matrix(1:20, 5, 4),matrix(1:20, 5, 4)) >> y <- list(c(1, -1, -1, 1, 1),c(1, -1, -1, -1, -1),c(1, 1, 1, 1, >> 1),c(1, >> 1, -1, 1, -1),c(-1, -1, -1, -1, -1)) >> ## Thanks to Gabor Grothendieck for this trick. >> ## SIMPLIFY? SIMPLIFY >< simplify >> xy.list <- mapply(cbind, x, y, SIMPLIFY=FALSE) >> >> point.class <- >> t(cbind(c(10,20,15,4,-1),c(21,10,15,34,-1),c(11,13,6,3,1),c(7,5,5,2,1),c(8,9,5,12,-1))) >> class.diffsame <- points.neighb(as.matrix(point.class), xy.list, 5) >> pd.class <- points.diff(class.diffsame,xy.list) >> >> nc.test <- vector("list",length(pd.class)) >> for (i in 1:length(pd.class)) { >> nc.test[[i]] <- pd.class[[i]]$point.diff >> } >> nc.test >> >> # delete null/empty entries in a list >> dff <- delete.NULLs(nc.test) >> dff; str(dff) >>> dff >> [[1]] >> [,1] [,2] [,3] [,4] [,5] >> [1,]16 11 161 >> [2,]49 14 191 >> [3,]5 10 15 201 >> >> [[2]] >> [1] 1 6 11 16 1 >> >> [[3]] >> [,1] [,2] [,3] [,4] [,5] >> [1,]38 13 18 -1 >> [2,]5 10 15 20 -1 >> >> lapply(dff, nrow) >>> lapply(dff, nrow) >> [[1]] >> [1] 3 >> >> [[2]] >> NULL >> >> [[3]] >> [1] 2 >> >> #I can use >> #dff[unlist(lapply(dff, nrow) == 1)] #2,3, etc >> >> I have two questions here: >> a. I need to remove dff[[2]] >> b. How to make it as matrix (in list). I mean the result something >> like >> >> [[1]] >> [,1] [,2] [,3] [,4] [,5] >> [1,]16 11 161 >> [2,]49 14 191 >> [3,]5 10 15 201 >> >> [[2]] >> [,1] [,2] [,3] [,4] [,5] >> [1]1611 161 >> >> [[3]] >> [,1] [,2] [,3] [,4] [,5] >> [1,]38 13 18 -1 >> [2,]5 10 15 20 -1 >> >> >> Best, Muhammad Subianto >> >> >> points.neighb <- function(p.class, list.nc, class.col) { >>ntuples <- nrow(p.class) >>instvec <- vector("list",length=ntuples) >>for (i in 1:ntuples) { >> # Thanks to Petr Pikal for this trick >> instvec[[i]]$class.diff <- (p.class[i,class.col] - >> list.nc[[i]][,class.col])!=0 >> instvec[[i]]$class.same <- (p.class[i,class.col] - >> list.nc[[i]][,class.col])==0 >>} >>instvec >> } >> >> points.diff <- function(p.class, list.nc) { >>ntuples <- length(list.nc) >>instvec <- vector("list",ntuples) >>for (i in 1:ntuples) { >> instvec[[i]]$point.diff <- >> list.nc[[i]][p.class[[i]]$class.diff,] >> instvec[[i]]$point.same <- >> list.nc[[i]][p.class[[i]]$class.same,] >>} >>instvec >> } >> >> # Thanks to Jim Holtman for this trick >> delete.NULLs <- function(x.list){ >> x.list[unlist(lapply(x.list, length) != 0)] >> } >> __ R-help@stat.math.ethz.ch 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.
Re: [R] Remove empty list from list - remove only one row and make as matrix
try the following: # a dff[sapply(dff, is.matrix)] # b lapply(dff, function(x) if(!is.matrix(x)) rbind(x) else x) I hope it helps. Best, Dimitris Dimitris Rizopoulos Ph.D. Student Biostatistical Centre School of Public Health Catholic University of Leuven Address: Kapucijnenvoer 35, Leuven, Belgium Tel: +32/(0)16/336899 Fax: +32/(0)16/337015 Web: http://med.kuleuven.be/biostat/ http://www.student.kuleuven.be/~m0390867/dimitris.htm - Original Message - From: "Muhammad Subianto" <[EMAIL PROTECTED]> To: Sent: Tuesday, August 29, 2006 1:22 PM Subject: Re: [R] Remove empty list from list - remove only one row and make as matrix > Dear all, > After I work around, I found in my list of data with only one row > which > need to remove or make it as matrix. > Here I write again my other toy example: > x <- list(matrix(1:20, 5, 4),matrix(1:20, 5, 4),matrix(1:20, 5, > 4),matrix(1:20, 5, 4),matrix(1:20, 5, 4)) > y <- list(c(1, -1, -1, 1, 1),c(1, -1, -1, -1, -1),c(1, 1, 1, 1, > 1),c(1, > 1, -1, 1, -1),c(-1, -1, -1, -1, -1)) > ## Thanks to Gabor Grothendieck for this trick. > ## SIMPLIFY? SIMPLIFY >< simplify > xy.list <- mapply(cbind, x, y, SIMPLIFY=FALSE) > > point.class <- > t(cbind(c(10,20,15,4,-1),c(21,10,15,34,-1),c(11,13,6,3,1),c(7,5,5,2,1),c(8,9,5,12,-1))) > class.diffsame <- points.neighb(as.matrix(point.class), xy.list, 5) > pd.class <- points.diff(class.diffsame,xy.list) > > nc.test <- vector("list",length(pd.class)) > for (i in 1:length(pd.class)) { > nc.test[[i]] <- pd.class[[i]]$point.diff > } > nc.test > > # delete null/empty entries in a list > dff <- delete.NULLs(nc.test) > dff; str(dff) > > dff > [[1]] > [,1] [,2] [,3] [,4] [,5] > [1,]16 11 161 > [2,]49 14 191 > [3,]5 10 15 201 > > [[2]] > [1] 1 6 11 16 1 > > [[3]] > [,1] [,2] [,3] [,4] [,5] > [1,]38 13 18 -1 > [2,]5 10 15 20 -1 > > > > > lapply(dff, nrow) > > lapply(dff, nrow) > [[1]] > [1] 3 > > [[2]] > NULL > > [[3]] > [1] 2 > > > > > #I can use > #dff[unlist(lapply(dff, nrow) == 1)] #2,3, etc > > I have two questions here: > a. I need to remove dff[[2]] > b. How to make it as matrix (in list). I mean the result something > like > > [[1]] > [,1] [,2] [,3] [,4] [,5] > [1,]16 11 161 > [2,]49 14 191 > [3,]5 10 15 201 > > [[2]] > [,1] [,2] [,3] [,4] [,5] > [1]1611 161 > > [[3]] > [,1] [,2] [,3] [,4] [,5] > [1,]38 13 18 -1 > [2,]5 10 15 20 -1 > > > Best, Muhammad Subianto > > > points.neighb <- function(p.class, list.nc, class.col) { >ntuples <- nrow(p.class) >instvec <- vector("list",length=ntuples) >for (i in 1:ntuples) { > # Thanks to Petr Pikal for this trick > instvec[[i]]$class.diff <- (p.class[i,class.col] - > list.nc[[i]][,class.col])!=0 > instvec[[i]]$class.same <- (p.class[i,class.col] - > list.nc[[i]][,class.col])==0 >} >instvec > } > > points.diff <- function(p.class, list.nc) { >ntuples <- length(list.nc) >instvec <- vector("list",ntuples) >for (i in 1:ntuples) { > instvec[[i]]$point.diff <- > list.nc[[i]][p.class[[i]]$class.diff,] > instvec[[i]]$point.same <- > list.nc[[i]][p.class[[i]]$class.same,] >} >instvec > } > > # Thanks to Jim Holtman for this trick > delete.NULLs <- function(x.list){ > x.list[unlist(lapply(x.list, length) != 0)] > } > > __ > R-help@stat.math.ethz.ch 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. > Disclaimer: http://www.kuleuven.be/cwis/email_disclaimer.htm __ R-help@stat.math.ethz.ch 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.
Re: [R] Remove empty list from list - remove only one row and make as matrix
Dear all, After I work around, I found in my list of data with only one row which need to remove or make it as matrix. Here I write again my other toy example: x <- list(matrix(1:20, 5, 4),matrix(1:20, 5, 4),matrix(1:20, 5, 4),matrix(1:20, 5, 4),matrix(1:20, 5, 4)) y <- list(c(1, -1, -1, 1, 1),c(1, -1, -1, -1, -1),c(1, 1, 1, 1, 1),c(1, 1, -1, 1, -1),c(-1, -1, -1, -1, -1)) ## Thanks to Gabor Grothendieck for this trick. ## SIMPLIFY? SIMPLIFY >< simplify xy.list <- mapply(cbind, x, y, SIMPLIFY=FALSE) point.class <- t(cbind(c(10,20,15,4,-1),c(21,10,15,34,-1),c(11,13,6,3,1),c(7,5,5,2,1),c(8,9,5,12,-1))) class.diffsame <- points.neighb(as.matrix(point.class), xy.list, 5) pd.class <- points.diff(class.diffsame,xy.list) nc.test <- vector("list",length(pd.class)) for (i in 1:length(pd.class)) { nc.test[[i]] <- pd.class[[i]]$point.diff } nc.test # delete null/empty entries in a list dff <- delete.NULLs(nc.test) dff; str(dff) > dff [[1]] [,1] [,2] [,3] [,4] [,5] [1,]16 11 161 [2,]49 14 191 [3,]5 10 15 201 [[2]] [1] 1 6 11 16 1 [[3]] [,1] [,2] [,3] [,4] [,5] [1,]38 13 18 -1 [2,]5 10 15 20 -1 > lapply(dff, nrow) > lapply(dff, nrow) [[1]] [1] 3 [[2]] NULL [[3]] [1] 2 > #I can use #dff[unlist(lapply(dff, nrow) == 1)] #2,3, etc I have two questions here: a. I need to remove dff[[2]] b. How to make it as matrix (in list). I mean the result something like [[1]] [,1] [,2] [,3] [,4] [,5] [1,]16 11 161 [2,]49 14 191 [3,]5 10 15 201 [[2]] [,1] [,2] [,3] [,4] [,5] [1]1611 161 [[3]] [,1] [,2] [,3] [,4] [,5] [1,]38 13 18 -1 [2,]5 10 15 20 -1 Best, Muhammad Subianto points.neighb <- function(p.class, list.nc, class.col) { ntuples <- nrow(p.class) instvec <- vector("list",length=ntuples) for (i in 1:ntuples) { # Thanks to Petr Pikal for this trick instvec[[i]]$class.diff <- (p.class[i,class.col] - list.nc[[i]][,class.col])!=0 instvec[[i]]$class.same <- (p.class[i,class.col] - list.nc[[i]][,class.col])==0 } instvec } points.diff <- function(p.class, list.nc) { ntuples <- length(list.nc) instvec <- vector("list",ntuples) for (i in 1:ntuples) { instvec[[i]]$point.diff <- list.nc[[i]][p.class[[i]]$class.diff,] instvec[[i]]$point.same <- list.nc[[i]][p.class[[i]]$class.same,] } instvec } # Thanks to Jim Holtman for this trick delete.NULLs <- function(x.list){ x.list[unlist(lapply(x.list, length) != 0)] } __ R-help@stat.math.ethz.ch 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.