tests/tests_interactive/render_exp.R

In tdanker/ephys2: Read, analyze and plot HEKA Patchmaster files

#print("sourcing render_exp.R now")

render_exp<<-function(tree,selection){
  sel<-c(attr(selection,"ancestry"),selection)
  print(sel[2])
  results<-get_all(tree, "NaPharm")
  expresults<-subset(results, sel[2]==exp_)
  require(ggplot2)
  p<-(ggplot(expresults, aes_string("Trace_Time", "min")) 
      +geom_line(aes(colour=factor(ser))) 
      +geom_point() 
  )
  print(p)
}