Second line plus treatment options

Treatment after second line for EGFR+ NSCLC patients conditional on possible second line treatments.

tx_2LP(second)

Arguments

second	A vector of possible treatments after second line. Must be of length 2 with the first element corresponding to use with a T790M mutation and the second election corresponding to treatment without a T790M mutation.

Value

A list of two elements:

pos

Possible treatments with a T790M mutation.

neg

Possible treatments without a T790M mutation.

Examples

first <- tx_1L()[3]
print(first)
#> [1] "afatinib"
second_opts <- tx_2L(first)
print(second_opts)
#> $pos
#> [1] "osimertinib"
#> 
#> $neg
#> [1] "PBDC"               "PBDC + bevacizumab"
#> 
tx_2LP(c(second_opts$pos[1], second_opts$neg[1]))
#> $pos
#>  [1] "PBDC"                               "nivolumab"                         
#>  [3] "pembrolizumab"                      "atezolizumab"                      
#>  [5] "PBDC + bevacizumab"                 "PBDC + nivolumab"                  
#>  [7] "PBDC + pembrolizumab"               "PBDC + atezolizumab"               
#>  [9] "PBDC + bevacizumab + nivolumab"     "PBDC + bevacizumab + pembrolizumab"
#> [11] "PBDC + bevacizumab + atezolizumab" 
#> 
#> $neg
#>  [1] "nivolumab"                          "pembrolizumab"                     
#>  [3] "atezolizumab"                       "PBDC + bevacizumab"                
#>  [5] "PBDC + nivolumab"                   "PBDC + pembrolizumab"              
#>  [7] "PBDC + atezolizumab"                "PBDC + bevacizumab + nivolumab"    
#>  [9] "PBDC + bevacizumab + pembrolizumab" "PBDC + bevacizumab + atezolizumab" 
#>