Thanks.
I think i mistake the sampling() with split().
2010/2/26 David Winsemius <dwinsem...@comcast.net>
>
> On Feb 26, 2010, at 2:40 PM, rusers.sh wrote:
>
> Your method seems to only re-express the data "data.frame(x, g)" using
>> another format.
>>
>
> In all fairness to the first respondent to your question, that _was_ what
> it appeared you were requesting. My other thoughts would be:
>
> > cbind(x[order(g)], sort(as.numeric(as.character(g)))) # g is a factor
> # so sort(g) or g[order(g)] returns the internal index.
> [,1] [,2]
> [1,] -0.0678237 0
> [2,] 2.2538149 0
> [3,] 1.8951257 0
> [4,] 2.2079620 0
> [5,] 3.2011267 1
> [6,] -0.5524036 1
> [7,] 0.7891743 1
> [8,] 2.2520006 1
> [9,] 1.1191421 1
> [10,] 2.2923470 1
> [11,] 3.5831695 1
> [12,] 2.2299013 2
> [13,] 1.5140759 2
>
> or:
>
> >split(data.frame(x=x,g=g), g)
> > split(data.frame(x=x,g=g), g)
> $`0`
> x g
> 6 -0.0678237 0
> 15 2.2538149 0
> 18 1.8951257 0
> 30 2.2079620 0
>
> $`1`
> x g
> 1 3.2011267 1
> 3 -0.5524036 1
> 10 0.7891743 1
> 12 2.2520006 1
> 17 1.1191421 1
> 19 2.2923470 1
> 29 3.5831695 1
>
> $`2`
> x g
> 2 2.2299013 2
> <snipped output>
>
> Which also re-express it. But if that is not what you want then offer a
> better explanation .... and a different example of desired output.
>
>
>
> The results are really from the generated data frame. Maybe
>> be not good.
>>
>>> table(g)
>>>
>> g
>> 0 1 2 3
>> 7 9 8 6
>> I hope to randomly split the value 'x' according to the different sample
>> sizes of different levels, displayed above. That is, 7 for level 0, 9 for
>> level 1, et al.
>> Thanks.
>>
>
> Or maybe you don't want the value of x but the number of elements?
>
> > tapply(x, g, length) # another way to get a table
> 0 1 2 3 # and with different numbers since you did not use
> set.seed(123)
> 4 7 11 8
>
> Please do clarify.
>
>
>
>> 2010/2/26 Henrique Dallazuanna <www...@gmail.com>
>>
>> Try this:
>>>
>>> split(data.frame(x, g), g)
>>>
>>> On Fri, Feb 26, 2010 at 3:55 PM, rusers.sh <rusers...@gmail.com> wrote:
>>>
>>>> Hi,
>>>> I am using split function and wonder how to add the factor to the
>>>>
>>> splitted
>>>
>>>> results.
>>>> #Example
>>>> n <- 3; nn <- 10
>>>> g <- factor(round(n * stats::runif(n * nn))) #factor
>>>> x <- rnorm(n * nn) + sqrt(as.numeric(g)) #value
>>>> xg <- split(x, g)
>>>> xg
>>>> $`0`
>>>> [1] 0.82513702 -0.03911584 2.32955347 0.36745335 1.75572642
>>>>
>>> 2.65461438
>>>
>>>> 0.41675829
>>>> $`1`
>>>> [1] 0.8583493 2.4264804 -0.3622378 3.1770015 0.5162129
>>>> $`2`
>>>> [1] 1.7914651 1.1440121 0.8097543 1.2064742 1.6411988 1.3743778
>>>>
>>> 1.7094387
>>>
>>>> 2.1204501 1.9330132 2.0731997
>>>> [11] 2.8931865 2.5825309 0.6978723
>>>> $`3`
>>>> [1] 3.0246214 1.6870782 0.9685926 1.6449350 0.9378751
>>>>
>>>>> g
>>>>>
>>>> [1] 2 2 3 2 1 3 2 3 3 1 2 2 2 2 0 0 3 0 2 2 1 1 2 2 0 1 2 0 0 0
>>>> Levels: 0 1 2 3
>>>>
>>>> Anybody can tell me how to add the corresponding values of factor "g" to
>>>> the splitted results 'xg' to get a data frame?
>>>> Something like,
>>>>
>>>> Splitted/xg factor/g
>>>> 0.82513702 0
>>>> -0.03911584 0
>>>> 2.32955347 0
>>>> ...
>>>> I know i can use "xg$'0',xg$'1',xg$'2',xg$'3'" to get the values of each
>>>> class and then add a new variable to indicate the factor.
>>>> But i hope to get a method to automatic do those things. Any ideas?
>>>> Thanks.
>>>>
>>>>
>>>> --
>>>>
>>>
>
> David Winsemius, MD
> Heritage Laboratories
> West Hartford, CT
>
>
--
-----------------
Jane Chang
Queen's
[[alternative HTML version deleted]]
______________________________________________
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.
