R/chmi.06_list_traits.id_in.R

In mvazquezs/chmitools: Package to manage & obtain results of the CHMI Study

#------------------------------------
# `original_id` include into studies
#------------------------------------

#' @export
chmi.id.ab_in <- function()
{

### all individual reported in 'tuchmi_1' 
  l_id_tuch_1 <- c(
    'T1_005', 'T1_018', 'T1_039',	'T1_040', 'T1_041', 'T1_043', 'T1_044', 'T1_045', 'T1_048')


### all individual reported in 'tuchmi_2' 
  l_id_tuch_2 <- c(
  	'T2_002', 'T2_006', 'T2_007', 
  	'T2_010', 'T2_011', 'T2_012', 'T2_015', 'T2_017', 'T2_018', 
  	'T2_022', 'T2_023', 'T2_025', 'T2_026', 'T2_028', 
  	'T2_030', 'T2_034', 'T2_035', 'T2_038', 'T2_039',
  	'T2_041', 'T2_042', 'T2_046', 'T2_047', 'T2_049',
  	'T2_050', 'T2_051', 'T2_052', 'T2_055',
  	'T2_063', 'T2_064', 'T2_067', 'T2_068',
  	'T2_071', 'T2_072', 'T2_073')


  
### all individual reported in 'lachmi' 
  l_id_lach <- c(
  	'L1_001', 'L1_002', 'L1_003', 'L1_005', 'L1_006', 'L1_007', 'L1_008', 'L1_009', 'L1_010',
  	'L1_011', 'L1_013','L1_014', 'L1_015', 'L1_016', 'L1_017', 'L1_018', 'L1_019', 'L1_020',
  	'L1_021', 'L1_022', 'L1_023', 'L1_024', 'L1_025', 'L1_026', 'L1_028')
  	 	

l_id <- list(
  tuchmi_1 = l_id_tuch_1,
  tuchmi_2 = l_id_tuch_2,
  lachmi = l_id_lach)

  # return
  return(l_id)
}



#' @export
chmi.id.cyto_in <- function()
{
### all individual reported in 'tuchmi_1' 
  l_id_tuch_1 <- c(
    'T1_005', 'T1_018', 'T1_039',	'T1_040', 'T1_041', 'T1_043', 'T1_044', 'T1_045', 'T1_048')


### all individual reported in 'tuchmi_2' 
  l_id_tuch_2 <- c(
  	'T2_002', 'T2_006', 'T2_007', 
  	'T2_010', 'T2_011', 'T2_012', 'T2_015', 'T2_017', 'T2_018', 
  	'T2_022', 'T2_023', 'T2_025', 'T2_026', 'T2_028', 
  	'T2_030', 'T2_034', 'T2_035', 'T2_038', 'T2_039', 
  	'T2_041', 'T2_042', 'T2_046', 'T2_047', 'T2_049', 
  	'T2_050', 'T2_051', 'T2_052', 'T2_055', 
  	'T2_063', 'T2_064', 'T2_067', 'T2_068',
  	'T2_071', 'T2_072', 'T2_073')


  
### all individual reported in 'lachmi' 
  l_id_lach <- c(
  	'L1_001', 'L1_002', 'L1_003', 'L1_005', 'L1_006', 'L1_007', 'L1_008', 'L1_009', 
  	'L1_010', 'L1_011', 'L1_013', 'L1_014', 'L1_015', 'L1_016', 'L1_017', 'L1_018', 'L1_019', 
  	'L1_020', 'L1_021', 'L1_022', 'L1_023', 'L1_024', 'L1_025', 'L1_026', 'L1_028')
  	 	

l_id <- list(
  tuchmi_1 = l_id_tuch_1,
  tuchmi_2 = l_id_tuch_2,
  lachmi = l_id_lach)

  # return
  return(l_id)
}



#' @export
chmi.id.pbmc_in <- function()
{

### all individual reported in 'tuchmi_1' 
  l_id_tuch_1 <- c(
    'T1_005', 'T1_018', 'T1_039', 'T1_04', 
    'T1_040', 'T1_041', 'T1_043', 'T1_044', 'T1_045', 'T1_048')


### all individual reported in 'tuchmi_2' 
  l_id_tuch_2 <- c(
  	'T2_002', 'T2_005', 'T2_006', 'T2_007', 
  	'T2_010', 'T2_011', 'T2_015', 'T2_017', 'T2_018', 
  	'T2_022', 'T2_023', 'T2_025', 'T2_026', 'T2_028',
  	'T2_030', 'T2_033', 'T2_034', 'T2_035', 'T2_038', 'T2_039',
  	'T2_041', 'T2_042', 'T2_046', 'T2_047', 'T2_048', 'T2_049', 
  	'T2_051', 'T2_052', 'T2_053', 'T2_055', 'T2_056', 
  	'T2_063', 'T2_064', 'T2_067', 'T2_068', 
  	'T2_071', 'T2_072', 'T2_073')


  
### all individual reported in 'lachmi' 
  l_id_lach <- c(
  	 'L1_008', 'L1_010', 'L1_018', 'L1_021', 'L1_022', 'L1_023', 'L1_026', 'L1_028', 'L1_010')
  	 	

l_id <- list(
  tuchmi_1 = l_id_tuch_1,
  tuchmi_2 = l_id_tuch_2,
  lachmi = l_id_lach)

  # return
  return(l_id)
}



#' @export
chmi.id.hemo_in <- function()
{
### all individual reported in 'lachmi' 
  l_id_lach <- c(
  	'L1_001', 'L1_002', 'L1_003', 'L1_005', 'L1_006', 'L1_007', 'L1_008', 'L1_009', 
  	'L1_010', 'L1_011', 'L1_013', 'L1_014', 'L1_015', 'L1_016', 'L1_017', 'L1_018', 'L1_019', 
  	'L1_020', 'L1_021', 'L1_022', 'L1_023', 'L1_024', 'L1_025', 'L1_026', 'L1_028')
  	
  	
l_id <- list(
	lachmi = l_id_lach)

	# return
	return(l_id)
}