error in for loop in function (object not found)

Hi all, I have attached the function file (revisedfunction) and the list
of station IDs (StationIDs) in .pdf format.

I have written a function to perform various operations on the station
IDs in two groups. The first 6 station IDs require one less step than
the remaining 68 station IDs. The file referenced at the beginning of
the function is the file containing the StationIDs.

file =

"/home/ie/IE2/Documents/USGS-2012-Work/SPARROW-Summer-2012-Work/EGRET/ca
libration/example_setofstationsassociatedtosamegage.csv"

xynowget <- xygetN(file, hasHeader = TRUE, separator =",")

Error in is.data.frame(x) : object 'Sample' not found

Can you assist me in fixing the attached function file?

Thank-you.

Irucka Embry



<span id=m2wTl><p><font face="Arial, Helvetica, sans-serif" size="2" style="font-size:13.5px">_______________________________________________________________<BR>Get the Free email that has everyone talking at <a href=http://www.mail2world.com target=new>http://www.mail2world.com</a><br>  <font color=#999999>Unlimited Email Storage &#150; POP3 &#150; Calendar &#150; SMS &#150; Translator &#150; Much More!</font></font></span>