if(interactive()){
## Loading the TargetExperiment object
data(ampliPanel, package="TarSeqQC")
# Exploring amplicon attribute values for a particular gene
g<-plotGeneAttrPerFeat(ampliPanel, geneID="gene4")
# Adjust text size
g<-g+theme(title=element_text(size=16), axis.title=element_text(size=16),
legend.text=element_text(size=14))
g
}
Run the code above in your browser using DataLab