added small testing function for the linearity of the radiative transfer models with increasing density (check if optically thick).