How to perform a non linear regression using nls function? : I have set of Temperature and Discomfort index value for each temperature data. When i plot a graph between temperature(x axis) and Calculated Discomfort index value( y axis) i get a inverted  U shape curve. I want to do non linear regression out of it and convert it into PMML model.My aim is to get the predicted dicomfort value if i give certain temperature.

Please find the below data set :

Temp <- c(0,5,10,6 ,9,13,15,16,20,21,24,26,29,30,32,34,36,38,40,43,44,45 50,60)


Disc<-c(0.00,0.10,0.25,0.15,0.24,0.26,0.30,0.31,0.40,0.41,0.49,0.50,0.56 0.80,0.90,1.00,1.00,1.00,0.80,0.50,0.40,0.20,0.15,0.00)

How to do non linear regression for this data set ?

Thanks
Arul

