# NOT RUN {
examplePath <- file.path(system.file(package="rock"), 'extdata');
parsedCI <- parse_source(file.path(examplePath,
"ci_example_1.rock"));
ci_heatmap(parsedCI,
codingScheme = "peterson");
# }
Run the code above in your browser using DataLab