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 <rmh@temple.edu>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 <rmh@temple.edu>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]]


