marvel.demo <- readRDS(system.file("extdata/data", "marvel.demo.rds", package="MARVEL"))
marvel.demo <- PropPTC(MarvelObject=marvel.demo,
xlabels.size=8,
show.NovelSJ.NoCDS=TRUE,
prop.test="fisher"
)
# Check outputs
head(marvel.demo$NMD$PTC.Prop$Table)
marvel.demo$NMD$PTC.Prop$Plot
marvel.demo$NMD$PTC.Prop$Plot.Stats
Run the code above in your browser using DataLab