一本书的例子，但测试不能得到结果

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

在The R Book中看到的三段循环，不能出结果，很纳闷。求指点！

# loop: factorial

# 1) for

fac1 <- function(x) {

        f <- 1

        if (x<2)

        return (1)

        for (i in 2:x) {

                f <- f*i

                f

        }

}

sapply(0:5,fac1)

# 2) while

fac2 <- function(x) {

        f <- 1

        t <- x                # when use while, need to set up an indicator variable: t

        while(t>1) {

                f <- f*t

                t <- t-1                # and change its value within each iteration (t <- t-1)

                return(f)

        }

}

sapply(0:5,fac2)

# 3) repeat

fac3<-function(x) {

        f <- 1

        t <- x

        repeat {                # repeat contains no explicit limit

                if (t<2)

                break                # must have a logical escape clause: break

                f <- f*t

                t<-t-1

        }

        return(f)

}

sapply(0:5,fac3)

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Factorial factor Facto fact Book

不能得出结果是？
你试试单独运行fac1(5)  fac2(5)  fac3(5)这样？应该可以

lzcllyt 发表于 2015-9-15 11:00
不能得出结果是？
你试试单独运行fac1(5)  fac2(5)  fac3(5)这样？应该可以

也不行，试过