# NOT RUN {
ratios <- c('Pb207U235','U238Pb206','Pb207Pb206','Pb208Th232',
'Wetherill','Tera-Wasserburg','U-Th-Pb','Ar40Ar39',
'Ca40K40','Hf176Lu176','Sr87Rb87','Os187Re187',
'Nd143Sm147','Stacey-Kramers')
for (ratio in ratios){
r <- age2ratio(tt=1000,st=10,ratio=ratio,J=1,sJ=0.1)
print(r)
}
# }
Run the code above in your browser using DataLab