I have two tables A (64 columns) and B(147 columns) with equal rows. I need to multiply every column of A separately with the full table B --> resulting in 64 tables. So A[,1] * B, A[,2] * B, A[,3] * B, etc.

I have used the following code:

results = vector(length = 64, mode = 'list')

for (i in 1:64) {

results[[i]] = B[rownames(A),]*dfA[,i]

}

names(results) <- vectorofnames

'''

The problem is that the 64 tables it creates do not have rownames. Table A and B both have rownames. How do I add these to my results?