R软件：关于编制函数时的“最后一行未遂”

情况一：
编制R函数如下：
pingfanghe=function(x,y){
  z=x^2+y^2
  return(z)
}
保存为“pingfanghe.R”
在用source("pingfanghe.R")调用该函数时为什么提示：
“警告信息：
In readLines(file) : 读'pingfanghe.R'时最后一行未遂”
但随后操作却能成功？如：
> pingfanghe(5,6)
[1] 61


情况二： 编制回归分析中的参数区间估计的R函数如下：
beta.int=function(fm,alpha=0.05){
  A=summary(fm)$coefficients
  df=fm$df.residual
  left=A[,1]-A[,2]*qt(1-alpha/2,df)
  right=A[,1]+A[,2]*qt(1-alpha/2,df)
  rowname=dimnames(A)[[1]]
  colname=c("估计值","下限","上限")
  matrix(c(A[,1],left,right),ncol=3,
        dimnames=list(rowname,colname))
}
保存为beta.int.R，先运行下面回归分析的命令：
x<-c(0.10,0.11,0.12,0.13,0.14,0.15,0.16,0.17,0.18,0.20,0.21,0.23)
y<-c(42.0,43.5,45.0,45.5,45.0,47.5,49.0,53.0,50.0,55.0,55.0,60.0)
lm.sol<-lm(y ~ 1+x);lm.sol
summary(lm.sol)
再调用参数区间估计函数：
source("beta.int.R")
beta.int(lm.sol)
仍然提示
”最后一行未遂“，但却成功给出了参数区间估计的结果，这是为什么？

耕耘使者 发表于 2012-1-14 23:11
在编制的函数的后面加了空格，但还是不行。

加一个回车就可以了，实际上效果表面上看上去就像一个空格，如果再打开的话

只要你在你的程序最后加一个空格就可以了，

或者回车，这样更好

吉林小王子 发表于 2012-1-14 23:08
只要你在你的程序最后加一个空格就可以了，

在编制的函数的后面加了空格，但还是不行。

吉林小王子 发表于 2012-1-14 23:17
加一个回车就可以了，实际上效果表面上看上去就像一个空格，如果再打开的话

小王子神人也！在下佩服得五体投地！！

耕耘使者 发表于 2012-1-14 23:29
小王子神人也！在下佩服得五体投地！！

你夸张了，呵呵

非常感谢各位啊，我最近也碰到这个问题，刚刚尝试了在程序段的最后加一个回车，真的就把问题解决了

高手啊

求助，还有人吗？@all