Mathematica notebook not working

[Shukie]

Homework Statement

I am trying to find Rydberg's constant. I took measurements using a spectroscope and now I want to do a NonLinearModelFit on the following function:

$$\theta = \theta_0 + \alpha + \Arcsin{p k - \Sin{\alpha}}$$

Where p is 1/(d*Rh). I know $$d$$ and so I can calculate $$R_H$$ if I know $$p$$. Problem is, I can not get the fit method to work in mathematica, but I don't see what is wrong.

The Attempt at a Solution

View attachment 24028

Could anyone please take a look?

 

[Mapes]

Try giving p an initial value of 0.