为什么我照着书里的代码输了足足六七遍，检查都是对的，但是运行出错

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

为什么我照着书里的代码输了足足六七遍，检查都是对的，但是运行出错是不是空格的问题

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：运行出错

不能排除书中代码有错的可能性。 所以，你可以插入测试语句，逐行运行和检查代码的。 这样也帮助你理解这段程序代码的内涵

hyu9910 发表于 2016-2-9 19:55
不能排除书中代码有错的可能性。 所以，你可以插入测试语句，逐行运行和检查代码的。 这样也帮助你理解这段 ...

我将书里的代码复制到RStudio里面是正常运行的，只有当自己输入的时候才报错~

我这一串代码是可以运行的。你如果出现错误，很有可能是没有分清n1和nl,一个是数字1，一个是字母l，你在输入的时候，很容易出错。
按照你的图片，写成的函数是这个样子的，在我的系统上可以正常运行，没有报错。

1. interval_var2 <-
   
2. function(x,y,mu=c(Inf,Inf),alpha = 0.05){
   
3.     n1 <- length(x)
   
4.         n2 <- length(y)
   
5.         if (all(mu<Inf)){
   
6.             Sx2 <- 1/n1*sum((x-mu[1])^2)
   
7.                 Sy2 <- 1/n2*sum((x-mu[2])^2)
   
8.                 df1 <- n1
   
9.                 df2 <- n2
   
10.         }else {
    
11.         Sx2 <- var(x)
    
12.         Sy2 <- var(y)
    
13.         df1 <- n1 - 1
    
14.         df2 <- n2 - 2
    
15.         }
    
16.         r <- Sx2 / Sy2
    
17.     a <- r / qf(1-alpha/2,df1,df2)
    
18.         b <- r / qf(alpha/2,df1,df2)
    
19.         data.frame(rate=r,df1=df1,df2=df2,a=a,b=b)
    
20. }

复制代码

曾喂蚊 发表于 2016-2-9 21:29
我将书里的代码复制到RStudio里面是正常运行的，只有当自己输入的时候才报错~

"板凳"回答你了哦，如果你复制代码的结果正确，那么说明你自己输入有抄错啦

hyu9910 发表于 2016-2-10 11:25
"板凳"回答你了哦，如果你复制代码的结果正确，那么说明你自己输入有抄错啦

谢谢你，今天打开软件又输了一遍，发现没有报错

jiangbeilu 发表于 2016-2-9 21:34
我这一串代码是可以运行的。你如果出现错误，很有可能是没有分清n1和nl,一个是数字1，一个是字母l，你在输入 ...

谢谢你，今天打开软件又输了一遍，发现没有报错