Skip to contents

draw.ROC_SINBA

draw.ROC_SINBA.Rd

draw.ROC_SINBA draws ROC curves, including both seed and partner drive curves and the combination driver curve.

Usage

draw.ROC_SINBA(
  ac_mat_sinba = NULL,
  ac_mat_single = NULL,
  SINBA_originalID = NULL,
  phenotype_info = NULL,
  group_col = NULL,
  G1_name = NULL,
  G0_name = NULL,
  main = "",
  pdf_file = NULL
)

Arguments

ac_mat_sinba,

numeric matrix, the activity values of the selected seed-partner driver across all samples.

ac_mat_single,

numeric matrix, the activity values of single driver across all samples

SINBA_originalID,

seed and parterne driver combination, is generated by combineNet2target_list with return_type="SINBA_originalID"

phenotype_info,

a data frame with sample group information

group_col,

character, the column name to be used for group

G1_name,

a vector of characters, the sample names of experimental group.

G0_name,

a vector of characters, the sample names of NON-experimental group.

main,

character, the main title of the plot

pdf_file,

character, the file path to save as PDF file. If NULL, no PDF file will be save. Default is NULL.

Examples

ac_mat_sinba<-exprs(SINBA.par$SINBA.ac.eset)
#> Error in h(simpleError(msg, call)): error in evaluating the argument 'object' in selecting a method for function 'exprs': object 'SINBA.par' not found
ac_mat_single<-exprs(SINBA.par$SINBA_single.ac.eset)
#> Error in h(simpleError(msg, call)): error in evaluating the argument 'object' in selecting a method for function 'exprs': object 'SINBA.par' not found
SINBA_originalID<-"LCK:NOTCH1"
phenotype_info<-pData(SINBA.par$SINBA.ac.eset)
#> Error in h(simpleError(msg, call)): error in evaluating the argument 'object' in selecting a method for function 'pData': object 'SINBA.par' not found
phenotype_info$condition<-ifelse(phenotype_info$das_lc50>80,"Resistant","Sensitive")
#> Error: object 'phenotype_info' not found
draw.ROC_SINBA(ac_mat_sinba=ac_mat_sinba,ac_mat_single=ac_mat_single,SINBA_originalID=SINBA_originalID,phenotype_info=phenotype_info,group_col="condition",G1_name="Sensitive",G0_name="Resistant",pdf_file=sprintf("./ROC_%s.pdf",SINBA_originalID))
#> Error in draw.ROC_SINBA(ac_mat_sinba = ac_mat_sinba, ac_mat_single = ac_mat_single,     SINBA_originalID = SINBA_originalID, phenotype_info = phenotype_info,     group_col = "condition", G1_name = "Sensitive", G0_name = "Resistant",     pdf_file = sprintf("./ROC_%s.pdf", SINBA_originalID)): could not find function "draw.ROC_SINBA"