Thank you very much! Сould you please confirm that I am acting in the correct order?
chopped.txi_ex <- tximport(files_ex, type="salmon", ignoreAfterBar = TRUE, ignoreTxVersion = TRUE, tx2gene=chopped.tx2gene[,c("tx_id", "ensgene")], countsFromAbundance="lengthScaledTPM")
ddsg_ex <- DESeqDataSetFromTximport(chopped.txi_ex, colData = metag_ex, design = ~ diag)
ddsg_ex <- collapseReplicates(ddsg_ex,
groupby = ddsg_ex$experimentg,
run = ddsg_ex$rung)
ddsg_ex <- DESeq(ddsg_ex)
contrast_oeg_ex <- c("diag", "cancer", "normal")
res_tableOEg_ex <- DESeq2::results(ddsg_ex, contrast=contrast_oeg_ex, alpha = 0.05)
e t.c.