Displaying 1 result from an estimated 1 matches for "temppzi".
Did you mean:
temppzu
2006 Jan 23
1
will vectorization help in this case?
...]])], dim=dim(Pizi)[1], dimnames=dimnames(Pizi)[1]) );
tempa = 1;
for(j in 1:length(flst)) tempa = tempa %X% flst[[j]];
tempPzu = apply(tempa, 1, sum);
tPzu = tPzu + tempPzu;
tPuzu[,as.character(r[[l,"u"]])] = tPuzu[,as.character(r[[l,"u"]])] +
tempPzu;
tempPzi = apply(tempa, 2, sum);
tPzi = tPzi + tempPzi;
tPizi[,as.character(r[[l,"i"]])] = tPizi[,as.character(r[[l,"i"]])] +
tempPzi;
for(j in 1:ncomp) tPrjzuzilst[[j]][,,r[[l,rbase+j]]] =
tPrjzuzilst[[j]][,,r[[l,rbase+j]]] + tempa;
}
=======================================...