df <- template_WES_data[template_WES_data$target_name == 'target_1',]
sc <- template_WES_standard_curve[template_WES_standard_curve$target_name == 'target_1',]
tmp <- calc_n_copies(ct_values = df$ct_value,
target_names = df$target_name,
standard_curves = sc)
df$n_copies <- tmp
head(df)
Run the code above in your browser using DataLab