# NOT RUN {
cosdist(0.3,70,age=TRUE)
cosdist(0.3,70,age=TRUE,ref='Planck')
cosdistz(0.3)
cosdista(0.3)
cosdistCoDist(0.3,70)
cosdistLumDist(0.3,70)
cosdistAngDist(0.3,70)
cosdistCoDistTran(0.3,70)
cosdistDistMod(0.3,70)
cosdistAngSize(0.3,70)
cosdistCoVol(0.3,70)
cosdistHubTime(70)
cosdistUniAgeNow(0.3,70)
cosdistUniAgeAtz(0.3,70)
cosdistTravelTime(0.3,70)
cosdistRelError(0.3)
redshifts=seq(0,3,by=0.01)
plot(redshifts, cosdist(redshifts, 70)[,'CoDist'], type='l', col='darkgreen', xlab='Redshift / z',
ylab='Distance / Mpc')
lines(redshifts, cosdist(redshifts, 70)[,'LumDist'], col='red')
lines(redshifts, cosdist(redshifts, 70)[,'AngDist'], col='blue')
legend('topleft', legend=c('Comoving Distance', 'Luminosity Distance', 'Angular Diameter Distance'),
col=c('darkgreen', 'red', 'blue'),lty=1)
plot(redshifts, cosdist(redshifts, 70, age=TRUE)[,'TravelTime'], type='l', xlab='Redshift / z',
ylab='Light travel time / Yrs')
# }
Run the code above in your browser using DataLab