View source: R/writeOutputKissDE.R
| writeOutputKissDE | R Documentation | 
diffExpressedVariants
function in a file and in a rds object.If a KisSplice fasta file was used as input for the 
analysis, writeOutputKissDE will output a tab-delimited file
containing one alternative splicing event/SNV per line. The columns are: the 
ID of the variation, the variable part length, the counts of each variant for 
each condition, the adjusted p-value (FDR), the deltaPSI and a boolean 
indicating if the splicing event/SNV was sufficiently expressed (controled by 
the flagLowCountsConditions option from the
diffExpressedVariants function).
If a KisSplice2RefGenome file was used as input for the analysis,
this function will add five columns to the KisSplice2RefGenome
file, with the following KissDE results: normalized counts,
PSI computed from normalized counts, adjusted p-value, deltaPSI and a boolean 
indicating if the splicing event/SNV was sufficiently expressed in at least 
half of the conditions (controled by the flagLowCountsConditions option 
from the diffExpressedVariants function).
In both cases, an rds object is saved in the output folder, that can be used to 
explore the results of kissDE through a Shiny application with the 
exploreResults function.
writeOutputKissDE(resDiffExprVariant, output, adjPvalMax = 1, dPSImin = 0, 
    writePSI = FALSE)
resDiffExprVariant | 
 a list, returned by 
  | 
output | 
 a character indicating the path and file name to save 
  | 
adjPvalMax | 
 a double indicating the threshold for adjusted p-value. Only SNVs/splicing events with an adjusted p-value lower than this threshold will be kept in the output file.  | 
dPSImin | 
 a double indicating the threshold for the deltaPSI. Only SNVs/splicing events having an absolute value of deltaf/deltaPSI higher than this threshold will be kept in the output file.  | 
writePSI | 
 a boolean indicating if the user wants the f/PSI table to be
printed (  | 
None.
kissplice2refgenome_file <- system.file("extdata", 
    "output_k2rg_alt_splicing.txt", package="kissDE")
mySplicingconditions <- c("C1", "C1", "C2", "C2")
counts <- kissplice2counts(fileName=kissplice2refgenome_file, counts=2,
    pairedEnd=TRUE, k2rg=TRUE)
# res <- diffExpressedVariants(countsData=counts, 
#   conditions=mySplicingconditions)
# writeOutputKissDE(res, output="results.tsv")
# writeOutputKissDE(res, output="significants_results.tsv", 
#   adjPvalMax=0.05, dPSImin=0.1)
# writeOutputKissDE(res, output="psi_results.tsv", adjPvalMax=0.05,
#   dPSImin=0.1, writePSI=TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.