file1 <- system.file("extdata","sample1.cdf",package="gcxgclab")
frame <- extract_data(file1,mod_t=.5)
mois <- c(92.1397, 93.07058)
eics <- batch_eic(frame, MOIs=mois ,tolerance = 0.005)
for (i in 1:length(eics)){
print(plot_eic(eics[[i]], title=paste("EIC for MOI",mois[i])))
print(plot_eic(eics[[i]], title=paste("EIC for MOI",mois[i]), dim=2))
}
Run the code above in your browser using DataLab