Notes

This notebook contains figures made to address reviewer comments as well as Fig. S4 of the manuscript. Fig. S4B-G were made outside of R.

Please see the Fig. 3 notebook for the biexponential fits of the time resolved spectroscopy data.

Setup packages and plotting for the notebook:

Revisions

Solution PCN at unmodified electrode compared to PCN-DNA modified electrode.

First let’s read in the data currently in main figure 3 and reproduce the main plot.

Now let’s read in the file for 1µM PCN solution at an unmodified gold electrode.

And now we’ll combine:

Now let’s read in the file for the blank DNA modified electrode

And let’s look at a background only scan with a DNA modified electrode and no PCN:

And let’s compare a DNA modified electrode with a 10µM solution of PCN to an unmodified electrode with a 10µM solution of PCN:

Fig. S4A

Let’s read in the absorbance data and look at the 690nm wavelength:

Now let’s make the nicely labeled plot:

Fig. S4H - Biexponential fits of time resolved spectroscopy

Let’s read in the biexponential fits of the data performed in the main Fig. 3 notebook:

Let’s take a look.

Recall that these fits used the self starting non-linear least squares biexponential function, SSbiexp(). This function is parameterized in the following way:

output = A1*exp(-exp(lrc1)*input) + A2*exp(-exp(lrc2)*input)

Where input is our time vector and output is the background subtracted intensity vector. A is the multiplier of the first (A1) and second (A2) exponential. Lrc is the natural log of the rate constant for the first (lrc1) and second (lrc2) exponential.

For figure S4, lrc parameters are converted into tau half lives tau = 1/exp(lrc).

Therefore let’s first make the plots for the amplitude (A).

Now let’s convert lrc into tau and make the tau parameter plots:

Create Figure

## R version 3.5.3 (2019-03-11)
## Platform: x86_64-apple-darwin15.6.0 (64-bit)
## Running under: macOS  10.15.6
## 
## Matrix products: default
## BLAS: /Library/Frameworks/R.framework/Versions/3.5/Resources/lib/libRblas.0.dylib
## LAPACK: /Library/Frameworks/R.framework/Versions/3.5/Resources/lib/libRlapack.dylib
## 
## locale:
## [1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8
## 
## attached base packages:
## [1] stats     graphics  grDevices utils     datasets  methods   base     
## 
## other attached packages:
##  [1] lubridate_1.7.4   hms_0.5.3         modelr_0.1.5     
##  [4] broom_0.5.2       kableExtra_1.1.0  cowplot_0.9.4    
##  [7] viridis_0.5.1     viridisLite_0.3.0 knitr_1.23       
## [10] forcats_0.4.0     stringr_1.4.0     dplyr_0.8.3      
## [13] purrr_0.3.3       readr_1.3.1       tidyr_1.0.0      
## [16] tibble_2.1.3      ggplot2_3.3.0     tidyverse_1.3.0  
## 
## loaded via a namespace (and not attached):
##  [1] tidyselect_0.2.5 xfun_0.7         haven_2.2.0      lattice_0.20-38 
##  [5] colorspace_1.4-1 vctrs_0.3.1      generics_0.0.2   htmltools_0.4.0 
##  [9] yaml_2.2.0       rlang_0.4.6      pillar_1.4.2     glue_1.3.1      
## [13] withr_2.1.2      DBI_1.0.0        dbplyr_1.4.2     readxl_1.3.1    
## [17] lifecycle_0.1.0  munsell_0.5.0    gtable_0.3.0     cellranger_1.1.0
## [21] rvest_0.3.5      evaluate_0.14    labeling_0.3     Rcpp_1.0.2      
## [25] scales_1.0.0     backports_1.1.4  webshot_0.5.1    jsonlite_1.6    
## [29] fs_1.3.1         gridExtra_2.3    digest_0.6.21    stringi_1.4.3   
## [33] grid_3.5.3       cli_1.1.0        tools_3.5.3      magrittr_1.5    
## [37] crayon_1.3.4     pkgconfig_2.0.3  ellipsis_0.3.0   xml2_1.2.2      
## [41] reprex_0.3.0     assertthat_0.2.1 rmarkdown_1.13   httr_1.4.1      
## [45] rstudioapi_0.10  R6_2.4.0         nlme_3.1-137     compiler_3.5.3