# Create info
name <- 'example'
description <- 'example'
# Create reader components
filter <- default_Filters('example')
filterStack <- create_FilterStack(name, description, filter)
stimulation <- default_Stimulation('example')
PMT <- default_PMT('example')
# Create reader
reader <- create_Reader(name, description, stimulation, filterStack, PMT)
# Create material
material <- default_Material('example')
experiment <- create_Experiment(name, description,reader,material, 'OSL')
plot_Experiment(experiment)
Run the code above in your browser using DataLab