Re: [R] QQ plot

2019-11-13 Thread Ana Marija
Hi Michael, Thank you so much for that valuable idea! I will try first to clump or remove SNPs in LD and maybe the situation would improve. But this procedure of yours is definitely something that would come handy in future! Cheers, Ana On Wed, Nov 13, 2019 at 5:47 AM Michael Dewey wrote: > > D

Re: [R] data load from excel files

2019-11-13 Thread Rui Barradas
Hello, Try which.max? Hope this helps, Rui Barradas Às 14:10 de 13/11/19, ani jaya escreveu: Thank you very much Mr. Rui, but for delete the duplicated row I use: ... library(tidyverse) alldata<-data.frame(Reduce(rbind, pon1)) c<-(which(duplicated(alldata$Tanggal))) #duplicate alldata<-allda

Re: [R] data load from excel files

2019-11-13 Thread ani jaya
Thank you very much Mr. Rui, but for delete the duplicated row I use: ... library(tidyverse) alldata<-data.frame(Reduce(rbind, pon1)) c<-(which(duplicated(alldata$Tanggal))) #duplicate alldata<-alldata[-c,] attach(alldata) because not every last row from every df is bad one. Another problem

[R] [Rd] R 3.6.2 scheduled for December 12

2019-11-13 Thread Peter Dalgaard via R-help
Full schedule is available on developer.r-project.org. -- Peter Dalgaard, Professor, Center for Statistics, Copenhagen Business School Solbjerg Plads 3, 2000 Frederiksberg, Denmark Phone: (+45)38153501 Office: A 4.23 Email: pd@cbs.dk Priv: pda...@gmail.com __

Re: [R] QQ plot

2019-11-13 Thread Michael Dewey
Dear Ana As others have commented this is getting a bit off-topic but here are some hints. It is helpful to distinguish two sorts of plot: archival plots and impact plots. If you want to have an impact plot which gives you a picture but possibly at the cost of completeness and accuracy then

Re: [R] data load from excel files

2019-11-13 Thread Rui Barradas
Hello, Maybe the following will get you close to what you want. # remove the last row from every df pon1 <- lapply(pon1, function(DF){ DF[[1]] <- as.Date(DF[["Tanggal"]], "%d-%m-%Y") DF[-nrow(DF), ] }) # order the list by year-month inx_ym <- sapply(pon1, function(DF){ format(DF[["Tangg