library(dplyr)
if( require(minionSummaryData) ) {
data(s.typhi.rep2, package = 'minionSummaryData')
## calculate and plot the mean number of events recorded by each channel
avgEvents <- left_join(readInfo(s.typhi.rep2), rawData(s.typhi.rep2), by = 'id') %>%
group_by(channel) %>%
summarise(mean_nevents = mean(num_events))
channelHeatmap(avgEvents, zValue = 'mean_nevents')
}
Run the code above in your browser using DataLab