pae <- apply_amplification_efficiency(template_WES_standard_curve)
ddct_standard <- apply_delta_delta_ct(df = template_WES_data,
target_names = c('target_1', 'target_2', 'target_3'),
reference_names = rep('target_0', 3))
ddct_adjusted <- apply_delta_delta_ct(df = template_WES_data,
target_names = c('target_1', 'target_2', 'target_3'),
reference_names = rep('target_0', 3),
pae_names = pae$target_name,
pae_values = pae$mean)
head(ddct_adjusted)
Run the code above in your browser using DataLab