Искам да изпълня 100x цикъл, да получа имена на редове от a dataframe A
и добавете неговите rownames
като стойности в колона към нова dataframe B
всеки път, завършваща с 100 колони в B
. Тук се удрям с главата в стената, опитвайки се да направя това, тъй като изглежда презаписвам B всеки път, по който съм го опитвал.
data <- bs.exp.sorted.1198.input
outsft = dataframe
outsamps = dataframe
samples<- data.frame(matrix(0, nrow = 60, ncol = 1))
currentsamps =dataframe
itnumb=100
for(i in 1:itnumb){
subsamp <- data[sample(nrow(data), 60), ]
powers =c(c(1:10), seq(from=12,to=20,by=2))
sft =pickSoftThreshold(bs.exp.sorted.1198.input, powerVector = powers, verbose=5)
outsft <- rbind(outsft, sft$fitIndices[,2])
currentsamps <- as.data.frame(rownames(subsamp))
output <- add_column(samples, currentsamps)
}
изходът винаги съдържа колона от 0 (които трябваше да включа, за да заработи... И какъвто и да е последният набор от имена на редове в цикъла. Искам да запазя ВСИЧКИ имена на редове в една голяма рамка с данни. Това трябва да е просто задача, но ме озадачи и в този момент ме вбеси. Някакви предложения? Благодаря.