在R中留下一个简洁的情节

I'm trying to do leave one out cross validation of non linear regression and plot the optimal fit. I feel like my loocv and plot functions are totally wrong. Could anybody clarify what I'm doing wrong? I'm trying to do leave one out cross validation