R help - Feb 2015 - Get 10%, 50% and 90% Quantile of data samples with probability

Hi,

  For you first task and use your first row of data as an example.  Define a
function named dist to take care of the probability for each group.
> dist <- function(x)
+ {
+  
return(c(rep(x[1],15),rep(x[2],15),rep(x[3],25),rep(x[4],20),rep(x[5],25)))
+ }
> plot(ecdf(dist(c(2,3,2,5.3,7.3))))


--
View this message in context:
http://r.789695.n4.nabble.com/Get-10-50-and-90-Quantile-of-data-samples-with-probability-tp4702717p4702774.html
Sent from the R help mailing list archive at Nabble.com.

Hi,

  To complete the last part:
> dist <- function(x)
+ {
+
return(c(rep(x[1],15),rep(x[2],15),rep(x[3],25),rep(x[4],20),rep(x[5],25)))
+ }
> x <- dist(c(2,3,2,5.3,7.3))
> x
  [1] 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 3.0 3.0
3.0 3.0 3.0 3.0 3.0 3.0 3.0 3.0 3.0 3.0 3.0
 [29] 3.0 3.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0
2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0 5.3
 [57] 5.3 5.3 5.3 5.3 5.3 5.3 5.3 5.3 5.3 5.3 5.3 5.3 5.3 5.3 5.3 5.3 5.3
5.3 5.3 7.3 7.3 7.3 7.3 7.3 7.3 7.3 7.3 7.3
 [85] 7.3 7.3 7.3 7.3 7.3 7.3 7.3 7.3 7.3 7.3 7.3 7.3 7.3 7.3 7.3
7.3
> quantile(x, prob=c(0.1,0.5,0.9))
10% 50% 90% 
2.0 3.0 7.3 



--
View this message in context:
http://r.789695.n4.nabble.com/Get-10-50-and-90-Quantile-of-data-samples-with-probability-tp4702717p4702792.html
Sent from the R help mailing list archive at Nabble.com.