data={{1,69.83},
{2,69.62},
{3,69.62},
{4,69.41},
{5,69.41},
{6,69.83},
{7,69.41},
{8,68.78},
{9,69.20},
{10,69.20},
{11,72.35},
{12,72.77},
{13,72.14},
{14,72.35},
{15,70.88},
{16,70.25},
{17,69.62},
{18,69.41},
{19,69.41},
{20,68.36},
{21,68.15},
{22,67.94},
{23,67.94},
{24,67.73},
{25,67.94},
{26,67.73},
{27,67.94},
{28,67.73},
{29,67.73},
{30,67.73},
{31,67.52},
{32,67.73},
{33,67.73},
{34,67.73},
{35,67.52},
{36,67.73},
{37,67.31},
{38,67.31},
{39,67.73},
{40,67.31},
{41,67.52},
{42,67.73},
{43,67.73},
{44,67.73},
{45,67.73},
{46 ,67.94},
{47,67.94},
{48,67.73},
{49,67.73},
{50,67.31},
{51,67.73},
{52,67.31},
{53,67.31},
{54,67.52},
{55,66.89},
{56,67.73},
{57 ,67.52},
{58,67.31},
{59,67.31},
{60,67.94}
}
f=Interpolation[data];
thePlot=Show[
Plot[f[x],{x,1,60}],
ListPlot[data,PlotStyle->Directive[Red,PointSize[Medium]]],
PlotLabel->"SuperSleepyTempAndVolts",
AxesLabel->{"Measurement","Temperature (F)"}
]
Export["SuperSleepyTempAndVolts.PNG",thePlot];