# NOT RUN {
## Apple simulation data according to Qin and Lu (2006).
## DOI: 10.13031/2013.20862
# create object
cfgMedia <- c(0.63,30,0,1.4)
# the 100 low number of photons is only for demonstration
cfgSimulation <- c(100,0.05,1e-9,3,0.1)
apple <- MCBS(cfgMedia,cfgSimulation)
apple <- Simulation(apple)
# show photon flux near incident point
tbl <- Export(apple)
tbl[1:3,]
# save results into file
write.table(Export(apple),tempfile("apple",fileext=".dat"))
# }
Run the code above in your browser using DataLab