This time the code works, except for the spurious "}" at the end.
I still don't know what the goal is.
Please help yourself and us by putting spaces around assignment arrows
a <- b
instead of the hard-to-read
a<-b
and putting spaces after ","
## Let
a <- 12
## Does
a<-3
## mean
a <- 3
## or
a< -3
## ?
Rich
On Sun, Oct 28, 2012 at 7:51 PM, Loukia Spineli
wrote:
> I am "refreshing" the code for the problem
> x = c( 4 , 4 , 0 )
>
> y = c( 1 , 0 , 2 )
>
> t = c( 1 , 2, 2 )
>
> r<-as.vector(table(t))
>
> Nx<-vector("list",length(unique(t)))
> Ny<-vector("list",length(unique(t)))
> n<-vector("list",length(unique(t)))
> for(i in 1:length(unique(t))){
> Nx[[i]]<-array(0,dim=c(1,r[i],1))+x[t==i]+1
> Ny[[i]]<-array(0,dim=c(1,r[i],1))+y[t==i]+1
> n[[i]]<-(Nx[[i]])*(Ny[[i]])
> }
> Nx;Ny;n
>
> mult<-vector("list",length(unique(t)))
> for(i in 1:length(unique(t))){
> for(k in 1:r[i]){
> mult[[i]]<-array(1,dim=c(2,2,n[[i]][k],k))
> }
> }
> mult
> }
> Nx;Ny;n
>
> mult<-vector("list",length(unique(t)))
> for(i in 1:length(unique(t))){
> for(k in 1:r[i]){
> mult[[i]]<-array(1,dim=c(2,2,n[[i]][k],k))
> }
> }
> mult
>
> On Mon, Oct 29, 2012 at 1:47 AM, Richard M. Heiberger >wrote:
>
> > It still can't work. you didn't define tn.
> >
> > Please pick up your sample code from the email before sending it and
> > run it in a fresh R session.
> >
> > Please stay on list. Your last reply was only to me.
> >
> > Rich
> >
> >
> > On Sun, Oct 28, 2012 at 7:41 PM, Loukia Spineli <
> spineliloukia26@gmail.com
> > > wrote:
> >
> >> Thank you very much Richard for your quick reply! This is the whole
> code!
> >> I am stuck in this problem since a week (and my project has been paused
> due
> >> to this problem). If only it can bi fixed!
> >> x = c( 4 , 4 , 0 )
> >>
> >> y = c( 1 , 0 , 2 )
> >>
> >> t = c( 1 , 2, 2 )
> >>
> >> r<-as.vector(table(t))
> >>
> >> Nx<-vector("list",length(unique(t)))
> >> Ny<-vector("list",length(unique(t)))
> >> n<-vector("list",length(unique(t)))
> >> for(i in 1:length(unique(t))){
> >> Nx[[i]]<-array(0,dim=c(1,tn[i],1))+x[t==i]+1
> >> Ny[[i]]<-array(0,dim=c(1,tn[i],1))+y[t==i]+1
> >> n[[i]]<-(Nx[[i]])*(Ny[[i]])
> >> }
> >> Nx;Ny;n
> >>
> >> mult<-vector("list",length(unique(t)))
> >> for(i in 1:length(unique(t))){
> >> for(k in 1:r[i]){
> >> mult[[i]]<-array(1,dim=c(2,2,n[[i]][k],k))
> >> }
> >> }
> >> mult
> >>
> >>
> >>
> >> On Mon, Oct 29, 2012 at 1:36 AM, Richard M. Heiberger >wrote:
> >>
> >>> Your example is hard to understand because it includes multiple copies
> >>> of the
> >>> number "1". Let me do something with different values and see if it
> >>> gets what
> >>> you are after. Your code as posted can't work because the variable n
> is
> >>> not
> >>> defined.
> >>>
> >>>
> >>> result <- list(a=array(1:48, dim=c(2,2,3,4)),
> >>> b=array(49:96, dim=c(2,2,4,3)))
> >>> result
> >>>
> >>>
> >>> On Sun, Oct 28, 2012 at 7:01 PM, Loukia Spineli <
> >>> spineliloukia26@gmail.com> wrote:
> >>>
> >>>> Dear all,
> >>>>
> >>>> I want to obtain the following result
> >>>>
> >>>> [[1]]
> >>>> , , 1, 1
> >>>>
> >>>> [,1] [,2]
> >>>> [1,] 1 1
> >>>> [2,] 1 1
> >>>>
> >>>> , , 2, 1
> >>>>
> >>>> [,1] [,2]
> >>>> [1,] 1 1
> >>>> [2,] 1 1
> >>>>
> >>>> ................
> >>>>
> >>>> , , 9, 1
> >>>>
> >>>> [,1] [,2]
> >>>> [1,] 1 1
> >>>> [2,] 1 1
> >>>>
> >>>> , , 10, 1
> >>>>
> >>>> [,1] [,2]
> >>>> [1,] 1 1
> >>>> [2,] 1 1
> >>>>
> >>>>
> >>>> [[2]]
> >>>> , , 1, 1
> >>>>
> >>>> [,1] [,2]
> >>>> [1,] 1 1
> >>>> [2,] 1 1
> >>>>
> >>>> , , 2, 1
> >>>>
> >>>> [,1] [,2]
> >>>> [1,] 1 1
> >>>> [2,] 1 1
> >>>>
> >>>> , , 3, 1
> >>>>
> >>>> [,1] [,2]
> >>>> [1,] 1 1
> >>>> [2,] 1 1
> >>>>
> >>>> , , 4, 1
> >>>>
> >>>> [,1] [,2]
> >>>> [1,] 1 1
> >>>> [2,] 1 1
> >>>>
> >>>> , , 5, 1
> >>>>
> >>>> [,1] [,2]
> >>>> [1,] 1 1
> >>>> [2,] 1 1
> >>>>
> >>>> , , 1, 2
> >>>>
> >>>> [,1] [,2]
> >>>> [1,] 1 1
> >>>> [2,] 1 1
> >>>>
> >>>> , , 2, 2
> >>>>
> >>>> [,1] [,2]
> >>>> [1,] 1 1
> >>>> [2,] 1 1
> >>>>
> >>>> , , 3, 2
> >>>>
> >>>> [,1] [,2]
> >>>> [1,] 1 1
> >>>> [2,] 1 1
> >>>>
> >>>> This is the code I have written.
> >>>> t = c( 1 , 2, 2 )
> >>>> r<-as.vector(table(t))
> >>>>
> >>>> mult<-vector("list",length(unique(t)))
> >>>> for(i in 1:length(unique(t))){
> >>>> for(k in 1:r[i]){
> >>>> mult[[i]]<-array(1,dim=c(2,2,n[[i]][k],k))
> >>>> }
> >>>> }
> >>>> mult
> >>>>
> >>>> The results are correct for the array [[1]]. However for the array
> >>>> [[2]] I
> >>>> get the following result:
> >>>> [[2]]
> >>>> , , 1, 1
> >>>>
> >>>> [,1] [,2]
> >>>> [1,] 1 1
> >>>> [2,] 1 1
> >>>>
> >>>> , , 2, 1
> >>>>
> >>>> [,1] [,2]
> >>>> [1,] 1 1
> >>>> [2,] 1 1
> >>>>
> >>>> , , 3, 1
> >>>>
> >>>> [,1] [,2]
> >>>> [1,] 1 1
> >>>> [2,] 1 1
> >>>> , , 1, 2
> >>>>
> >>>> [,1] [,2]
> >>>> [1,] 1 1
> >>>> [2,] 1 1
> >>>>
> >>>> , , 2, 2
> >>>>
> >>>> [,1] [,2]
> >>>> [1,] 1 1
> >>>> [2,] 1 1
> >>>>
> >>>> , , 3, 2
> >>>>
> >>>> [,1] [,2]
> >>>> [1,] 1 1
> >>>> [2,] 1 1
> >>>>
> >>>> How could I correct the code?
> >>>>
> >>>> [[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.
> >>>>
> >>>
> >>>
> >>
> >
>
> [[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.
>
[[alternative HTML version deleted]]