- 1. Re: Generate random numbers knowing median and inter-quartiles only (score: 1)
- Author: "Dimitris Rizopoulos" <dimitris.rizopoulos@med.kuleuven.be>
- Date: Thu, 4 May 2006 16:19:27 +0200
- if you want to simulate from normal you only need median (which is also the mean) and one quantile since you only need to find the standard deviation, e.g., q1 <- qnorm(0.25, sd = 5.12) sigma <- func
- /archives/html/s-news/2006-05/msg00014.html (11,637 bytes)
- 2. Re: simple arithmetic (score: 1)
- Author: "Dimitris Rizopoulos" <dimitris.rizopoulos@med.kuleuven.be>
- Date: Thu, 6 Apr 2006 16:22:59 +0200
- which I think it can be shorten to: A <- data.frame(Group = rep(1:2,c(3,5)), Values = sample(1:8)) A unlist(tapply(A$Values, A$Group, function(x) { out <- outer(x, x, "-"); - out[lower.tri(out)] }))
- /archives/html/s-news/2006-04/msg00023.html (12,221 bytes)
- 3. Re: matrix question (score: 1)
- Author: "Dimitris Rizopoulos" <dimitris.rizopoulos@med.kuleuven.be>
- Date: Tue, 7 Mar 2006 12:38:15 +0100
- p
- /archives/html/s-news/2006-03/msg00017.html (10,693 bytes)
- 4. Re: Graphic problem (score: 1)
- Author: "Dimitris Rizopoulos" <dimitris.rizopoulos@med.kuleuven.be>
- Date: Thu, 9 Mar 2006 10:26:31 +0100
- e
- /archives/html/s-news/2006-03/msg00021.html (9,755 bytes)
- 5. Re: Last question about plot (and NA) (score: 1)
- Author: "Dimitris Rizopoulos" <dimitris.rizopoulos@med.kuleuven.be>
- Date: Fri, 10 Mar 2006 15:04:46 +0100
- e
- /archives/html/s-news/2006-03/msg00030.html (10,158 bytes)
- 6. Re: Re : Superposing graphics with exactly (score: 1)
- Author: "Dimitris Rizopoulos" <dimitris.rizopoulos@med.kuleuven.be>
- Date: Mon, 13 Mar 2006 16:17:25 +0100
- 7
- /archives/html/s-news/2006-03/msg00042.html (10,134 bytes)
- 7. Re: factor column in a data frame (score: 1)
- Author: "Dimitris Rizopoulos" <dimitris.rizopoulos@med.kuleuven.be>
- Date: Mon, 20 Mar 2006 18:18:13 +0100
- -
- /archives/html/s-news/2006-03/msg00066.html (9,161 bytes)
- 8. Re: Mixing tapply and diff (score: 1)
- Author: "Dimitris Rizopoulos" <dimitris.rizopoulos@med.kuleuven.be>
- Date: Thu, 16 Feb 2006 09:41:52 +0100
- you already have it; you could use: vals <- tapply(as.vector(SDF1$V1), SDF1$V2, diff) out <- data.frame(id = rep(unique(SDF1$V2), sapply(vals, length)), diff = vals) out I hope it helps. Best, Dimitr
- /archives/html/s-news/2006-02/msg00045.html (9,931 bytes)
- 9. Re: Re : Mixing tapply and diff (score: 1)
- Author: "Dimitris Rizopoulos" <dimitris.rizopoulos@med.kuleuven.be>
- Date: Thu, 16 Feb 2006 09:59:32 +0100
- you are right I forgot to unlist() 'vals', i.e., out <- data.frame(id = rep(unique(SDF1$V2), sapply(vals, length)), diff = unlist(vals)) should work. Best, Dimitris -- Dimitris Rizopoulos Ph.D. Stude
- /archives/html/s-news/2006-02/msg00047.html (11,472 bytes)
- 10. Re: simple table question (score: 1)
- Author: "Dimitris Rizopoulos" <dimitris.rizopoulos@med.kuleuven.be>
- Date: Fri, 17 Feb 2006 16:29:21 +0100
- if I've understood your question correctly, you probably need something like: x <- data.frame(X1 = rep(c("name1", "name2"), each = 5), X2 = rep(LETTERS[1:2], 5), X3 = rep(1:3, length.out = 10), X4 =
- /archives/html/s-news/2006-02/msg00056.html (10,555 bytes)
- 11. Re: Extraction (score: 1)
- Author: "Dimitris Rizopoulos" <dimitris.rizopoulos@med.kuleuven.be>
- Date: Fri, 6 Jan 2006 10:12:36 +0100
- maybe you could try something like: data[!duplicated(data$ident), ] I hope it helps. Best, Dimitris -- Dimitris Rizopoulos Ph.D. Student Biostatistical Centre School of Public Health Catholic Univers
- /archives/html/s-news/2006-01/msg00010.html (9,464 bytes)
- 12. Re: Re : Re : Extraction (and an answer) (score: 1)
- Author: "Dimitris Rizopoulos" <dimitris.rizopoulos@med.kuleuven.be>
- Date: Fri, 6 Jan 2006 14:30:48 +0100
- you could also try the following: data <- data.frame(ident = rep(1:10, sample(10)), x = factor(rep(letters[1:10], sample(10))), y = rnorm(55)) data data[rowSums(!sapply(data[1:2], duplicated)) >= 1,
- /archives/html/s-news/2006-01/msg00013.html (9,808 bytes)
- 13. Re: Combine dataframes different columns (score: 1)
- Author: "Dimitris Rizopoulos" <dimitris.rizopoulos@med.kuleuven.be>
- Date: Fri, 7 Oct 2005 13:35:44 +0200
- you could try something like this: a <- data.frame(rbind(1:10)) names(a) <- LETTERS[1:10] b <- data.frame(cbind(1, 2, 2, 1, 1)) names(b) <- c("A", "D", "E", "I", "J") dat <- merge(b, a, all = TRUE)[n
- /archives/html/s-news/2005-10/msg00015.html (9,165 bytes)
- 14. Re: contain (score: 1)
- Author: "Dimitris Rizopoulos" <dimitris.rizopoulos@med.kuleuven.be>
- Date: Fri, 7 Oct 2005 16:49:51 +0200
- look at ?grep(), e.g., x <- c("abcde", "absdf", "dfabds", "dsbsssd") grep("ab", x) grep("bs", x) I hope it helps. Best, Dimitris -- Dimitris Rizopoulos Ph.D. Student Biostatistical Centre School of P
- /archives/html/s-news/2005-10/msg00019.html (9,051 bytes)
- 15. Re: adding median, 10 and 90 percentile to a scatter plot (score: 1)
- Author: "Dimitris Rizopoulos" <dimitris.rizopoulos@med.kuleuven.be>
- Date: Tue, 25 Oct 2005 11:30:31 +0200
- check ?abline() 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
- /archives/html/s-news/2005-10/msg00078.html (8,546 bytes)
- 16. Re: Coercing to character (score: 1)
- Author: "Dimitris Rizopoulos" <dimitris.rizopoulos@med.kuleuven.be>
- Date: Tue, 6 Sep 2005 14:48:29 +0200
- you could try format(), e.g., x <- c(3.45, 3.40) format(x) see ?format for more info and options. I hope it helps. Best, Dimitris -- Dimitris Rizopoulos Ph.D. Student Biostatistical Centre School of
- /archives/html/s-news/2005-09/msg00012.html (8,901 bytes)
- 17. Re: finding substrings (score: 1)
- Author: "Dimitris Rizopoulos" <dimitris.rizopoulos@med.kuleuven.be>
- Date: Tue, 13 Sep 2005 12:10:42 +0200
- you could try something like this: x <- paste(as.numeric(x), collapse = "") y <- paste(as.numeric(y), collapse = "") nx <- nchar(x) ny <- nchar(y) out <- substring(x, seq(1, nx - ny + 1), seq(ny, nx)
- /archives/html/s-news/2005-09/msg00030.html (9,265 bytes)
- 18. Re: non-central t : R v.Splus (score: 1)
- Author: "Dimitris Rizopoulos" <dimitris.rizopoulos@med.kuleuven.be>
- Date: Wed, 14 Sep 2005 15:42:10 +0200
- I think that you might find the following usefull: http://www.biostat.wustl.edu/archives/html/s-news/2002-11/msg00079.html I hope this helps. Best, Dimitris -- Dimitris Rizopoulos Ph.D. Student Biost
- /archives/html/s-news/2005-09/msg00040.html (9,700 bytes)
- 19. Re: Title Case Function (score: 1)
- Author: "Dimitris Rizopoulos" <dimitris.rizopoulos@med.kuleuven.be>
- Date: Fri, 12 May 2006 15:46:57 +0200
- you can try this version: titleCase <- function(string, chng = c('.', '_'), leave.cap = FALSE){ nstr <- length(string) out <- vector("character", nstr) for(i in 1:nstr){ str <- string[i] nc <- nchar(
- /archives/html/s-news/2006-05/msg00048.html (11,332 bytes)
- 20. Re: pattern (score: 1)
- Author: Dimitrios Rizopoulos <Dimitris.Rizopoulos@med.kuleuven.be>
- Date: Tue, 16 May 2006 18:16:30 +0200
- you can try something like: sapply(sapply(test1, unpaste, sep = "+"), length) I hope it helps. Best, Dimitris -- Dimitris Rizopoulos Ph.D. Student Biostatistical Centre School of Public Health Cathol
- /archives/html/s-news/2006-05/msg00054.html (8,797 bytes)
This search system is powered by
Namazu