# NOT RUN {
load(system.file("extdata",
"variabilityDemoNHDSdiagcode1-phewascode.RData",
package="EHRtemporalVariability"))
igtProj <- estimateIGTProjection( dataTemporalMap = probMaps$`diagcode1-phewascode`,
dimensions = 3,
startDate = "2000-01-01",
endDate = "2010-12-31")
# }
# NOT RUN {
# 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))
igtProj <- estimateIGTProjection( dataTemporalMap = probMaps[[1]],
dimensions = 3,
startDate = "2000-01-01",
endDate = "2010-12-31")
# }
Run the code above in your browser using DataLab