情况一：
编制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)
仍然提示
”最后一行未遂“，但却成功给出了参数区间估计的结果，这是为什么？