function这个指令该如何用？能否提供一点资料和例子？

另外，为什么会出现这种情况？
mouse.fn<-function(nrand){ serum <-read.table(
+ "mouse.txt",header=T)
+
+ attach(serum)
+
+ teststat<-mean(level[index=="1"])-
+ mean(level[index=="2"])
+ }

> teststat
Error: object 'teststat' not found