R/___unused_make_proto_from_xy.R

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

make_proto_from_xy <- function(x, y, Stimulus, Times = 1:ncol(y)) {
    data(st)
    rd <- proto(st)
    rd$sweeps$y <- as.matrix(y)
    rd$sweeps$x <- as.matrix(x)
    rd$sweeps$Stimulus <- Stimulus
    rd$sweeps$Trace_Time <- Times
    return(rd)
}