set.seed(123) # to reproduce the results
data(ecam_filtered, package = "coda4microbiome") # load the data
x=x_ecam # microbiome abundance
x_time = metadata$day_of_life # observation times
subject_id = metadata$studyid # subject id
y= metadata$diet # diet ("bd"= breast diet, "fd"=formula diet)
ini_time = 0
end_time = 90
ecam_logratios<-explore_lr_longitudinal(x,y,x_time,subject_id,ini_time,end_time)
Run the code above in your browser using DataLab