R/GetClockGenes.R

In jakeyeung/TissueCiradianAnalysis: Analysis of oscillatory RNASeq data

GetClockGenes <- function(){
  # return clock genes
  clockgenes <- c('Nr1d1','Dbp', 'Arntl', 'Npas2', 'Nr1d2', 
                  'Bhlhe41', 'Nfil3', 'Cdkn1a', 'Lonrf3', 
                  'Tef', 'Usp2', 'Wee1', 'Dtx4', 
                  'Clock', 'Per1', 'Per2', 'Per3', 'Cry2', 'Cry1')
#   clockgenes <- c('Nr1d1','Dbp', 'Arntl', 'Npas2', 'Nr1d2', 
#                   'Bhlhe41', 'Nfil3', 'Cdkn1a', 'Lonrf3', 
#                   'Tef', 'Usp2', 'Wee1', 'Dtx4', 'Asb12', 
#                   'Elovl3', 'Clock', 'Per1', 'Per2', 'Per3', 'Cry2', 'Cry1')
#     clockgenes <- c('Nr1d1','Dbp', 'Arntl', 'Npas2', 'Nr1d2', 
#                     'Bhlhe41', 'Nfil3', 'Cdkn1a', 'Lonrf3', 
#                     'Tef', 'Usp2', 'Wee1', 'Dtx4', 'Clock', 'Per1', 'Per2', 'Per3', 'Cry2', 'Cry1')
  return(clockgenes)
}