data("S")
wells <- axion.guess.well.number(S$channels)
array <- paste0("Axion ", wells, " well") #make array info
S$array<-array #store in S object
plateinfo <- plateinfo(S$array)
epos <- axion.elec.name.to.xy(S$channels, plateinfo) #create spacing
S$epos<-epos
arrayinfo <- get.array.info(S)
Run the code above in your browser using DataLab