####okay we need to make a script that then makes a markdown file...


files <- list.files('~/Box Sync/Research NSF Bat1Health Collaboration/bat_immunoassays/')
files[[10]] # choose file (EB018_microplate_BKA_S.aureus_Mouse_and_Bat.xlsx)

file_path = paste('~/Box Sync/Research NSF Bat1Health Collaboration/bat_immunoassays/', files[[10]], sep = "")

data <- soft.max.clean(row_start_of_data = 19,
                       file_path = file_path,
                       num_of_time_points = 9)
BKA.PREEMPT::control.ratio.plot(data,'PBS Only')



BozemanDiseaseLab/BKA.PREEMPT documentation built on May 29, 2019, 7:20 a.m.