load(system.file("extdata",
"variabilityDemoNHDSdiagcode1-phewascode.RData",
package="EHRtemporalVariability"))
p <- plotIGTProjection( igtProjection = igtProjs[[1]],
colorPalette = "Spectral",
dimensions = 2)
p
if (FALSE) {
# For additional and larger examples download the following .Rdata file:
gitHubUrl <- 'http://github.com/'
gitHubPath <- 'hms-dbmi/EHRtemporalVariability-DataExamples/'
gitHubFile <- 'raw/master/variabilityDemoNHDS.RData'
inputFile <- paste0(gitHubUrl, gitHubPath, gitHubFile)
load(url(inputFile))
plotIGTProjection(igtProjs$`diagcode1-phewascode`, dimensions = 3)
}
Run the code above in your browser using DataLab