glover(t = 1.5777e8, d = 1000, S = 0.2, Tr = 0.1) # Glover & Balmer (1954) Table 1, Well 1
glover(t = 1.5777e8, d = 5000, S = 0.2, Tr = 0.1) # Glover & Balmer (1954) Table 1, Well 2
glover(t = 1.5777e8, d = 10000, S = 0.2, Tr = 0.1) # Glover & Balmer (1954) Table 1, Well 3
Run the code above in your browser using DataLab