3D-DiscreteModels.R