In NRSC/nphys: R package for interpreting neurphysiology field and whole-cell data

knitr::opts_chunk$set(echo = FALSE)
knitr::opts_chunk$set(warning = FALSE)

Slice info

library(knitr)
library(grid)
kable(rda$sliceMD[,1:8])
kable(rda$sliceMD[,9:ncol(rda$sliceMD)])

#morph <- list.files(rda$Path, pattern = ".jpg")
#knitr::include_graphics(morph)
#![Cell Morphology](`r morph`)

Amplifier A

if("ampA" %in% names(rda$Data)){


amp = "a"
ampX = rda$Data$ampA

for(i in names(ampX)){
  if(grepl("TP", i) == TRUE){testPulse(ampX[[i]], amp = amp)}
  if(grepl("IV", i) == TRUE){
    a = quickPlot_amp(ampX[[i]], amp = amp)
    print(a)}
  if(grepl("IO", i) == TRUE){
    x = ampX[[i]]
    a = plotRTT(x, amp = amp)
    b = a+xlim(1, 65)+ggtitle("First pulse IOdV")
    grid.arrange(a,b, layout_matrix = cbind(1,1,1,2,2))
  }
  if(grepl("Step", i) == TRUE){
    x = ampX[[i]]
    a = plotRTT(x, amp = amp, post = 5001)
    b = a +xlim(25, 100)+ggtitle(i) #+ ylim(-100, 100)
    c = plotRTT_iv(x, amp = amp)
    grid.arrange(arrangeGrob(a,b,c, layout_matrix = rbind(c(1,1,1,1,1),
                                                          c(2,2,2,3,3))))
  }
  if(grepl("xFq", i) == TRUE){
    x = ampX[[i]]
    a = plotRTT(x, amp = amp)
    b = a + xlim(40, 60)+ggtitle(i)
    grid.arrange(a, b,
               top = textGrob("",gp=gpar(fontface="bold")),
               layout_matrix = cbind(1,1,1,2,2))
  }
  if(grepl("CC", i) == TRUE){

}

}
}

Amplifier B

if("ampB" %in% names(rda$Data)){
amp = "b"
ampX = rda$Data$ampB

for(i in names(ampX)){
  u

  if(grepl("TP", i)){testPulse(ampX[[i]], amp = amp)}
  if(grepl("IV", i)){
    a = quickPlot_amp(ampX[[i]], amp = amp)
    print(a)}
  if(grepl("IO", i)){
    x = ampX[[i]]
    a = plotRTT(x, amp = amp)
    b = a+xlim(1, 65)+ggtitle("First pulse IOdV")
    grid.arrange(a,b, layout_matrix = cbind(1,1,1,2,2))
  }
  if(grepl("Step", i) == TRUE){
    x = ampX[[i]]
    a = plotRTT(x, amp = amp, post = 5001)
    b = a +xlim(25, 100)+ggtitle(i)#+ ylim(-100, 100)
    c = plotRTT_iv(x, amp = amp)
    grid.arrange(arrangeGrob(a,b,c, layout_matrix = rbind(c(1,1,1,1,1),
                                                          c(2,2,2,3,3))))
  }
  if(grepl("xFq", i) == TRUE){
    x = ampX[[i]]
    a = plotRTT(x, amp = amp) 
    b = a + xlim(40, 60)+ ggtitle(i)
    grid.arrange(a, b,
               top = textGrob("",gp=gpar(fontface="bold")),
               layout_matrix = cbind(1,1,1,2,2))
  }
}

}