Hi Stefan
Not a perfect solution but may get you some of the way.
I can't spend any more time on it
I think your groups argument is not valid so made a groups argument
Try this
data_xyz$gp <- sapply(data_xyz$a == 1, pmatch, c(TRUE,FALSE))
cloud(z ~ x*y|b, data=data_xyz,
groups= gp,
That looks good, thanks a lot!
Iwill give it a try in my "real" problemsoon.
Cheers,
stefan
On 05/29/2013 06:02 PM, ilai wrote:
> On Wed, May 29, 2013 at 7:57 AM, Stefan Lüdtke wrote:
>
>> x=runif(100, 1, 2)
>> y=runif(100, 2, 4)
>> z=runif(100, 1, 4)
>>
>> data_xyz=as.data.frame(cbind(x, y, z,
On Wed, May 29, 2013 at 7:57 AM, Stefan Lüdtke wrote:
>
> x=runif(100, 1, 2)
> y=runif(100, 2, 4)
> z=runif(100, 1, 4)
>
> data_xyz=as.data.frame(cbind(x, y, z, a=rep(c(1:10), 10), b=rep(c(1:2),
> each=50)))
>
> custom.panel = function(x, y, z, subscripts, ...)
> {
> highlight=(data_xyz$a == 1)
>
Sorry forthat and thanks for the hint.
At marked the appended text as "rawtext", maybe that is the reason why
it was cut.
Here we go again.
##
x=runif(100, 1, 2)
y=runif(100, 2, 4)
z=runif(100, 1, 4)
### 2d example
data_xy=as.da
No attachment. The R-help list tendst to strip out many type of attached files
though pdf and txt , among others get through.
It is better to supply the example in the email itself if possible. Have a look
at https://github.com/hadley/devtools/wiki/Reproducibility for suggestions.
John Kane
Ki
5 matches
Mail list logo
