Hi,
you are almost there:

>sapply(x, function(x) quantile(as.numeric(x), c(0.01, 0.99)))
          x1          x2       x3        x4 x5 x6
1%  0.0351777 0.007628441 0.225533 0.4459064  1  1
99% 0.9938919 0.964901423 1.826894 3.6226944  3  2

Andrija

On Mon, Oct 31, 2011 at 2:09 PM, aajit75 <aajit75@yahoo.co.in> wrote:

> When data contains both factor and numeric variables, how to get quartiles
> for all numeric variables?
> n <- 100
> x1 <- runif(n)
> x2 <- runif(n)
> x3 <- x1 + x2 + runif(n)/10
> x4 <- x1 + x2 + x3 + runif(n)/10
> x5 <- factor(sample(c('a','b','c'),n,replace=TRUE))
> x6 <- factor(1*(x5=='a' | x5=='c'))
> data1 <- cbind(x1,x2,x3,x4,x5,x6)
> data <- data.frame(data1)
>
> data <- within(data,{x5 <- factor(x5)})
> x <- data
>
> qs <- sapply(x, function(x) quantile(x, c(0.01, 0.99)))
>
> I get an error: Error in quantile.default(x, c(min_pct, max_pct)) : factors
> are not allowed
>
> Thanks for the help.
>
>
> --
> View this message in context:
> http://r.789695.n4.nabble.com/How-to-get-Quartiles-when-data-contains-both-numeric-variables-and-factors-tp3955750p3955750.html
> Sent from the R help mailing list archive at Nabble.com.
>
> ______________________________________________
> 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.
>

	[[alternative HTML version deleted]]

