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 <r...@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 <spinelilouki...@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 <r...@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 <
>>> spinelilouki...@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.
