当前位置:文库下载 > 所有分类 > 高等教育 > 理学 > R语言第三章课后习题答案
侵权投诉

R语言第三章课后习题答案

##附加题 斐波那契数列

##:(1/√5)*{[(1+√5)/2]^n - [(1-√5)/2]^n}(又叫“比内公式”,是用无理数表示有理数的一个范例。)(√5表示根号5)

rm(list=ls(all=TRUE))

##方法1

fei1<-function(a,b,lim=5){ #递归,lim为要求输出的第lim个数字,PS:初始两个不算

fun1<-function(a,b,lim,fun){

c=a+b

if (lim==0) return(c)

else {

a=b

b=c

return(fun(a,b,lim-1,fun))

}

}

fun1(a,b,lim,fun1)

}

##方法2

fei2<-function(a,b,s){

for(i in 1:s){

c=a+b

a=b

b=c

}

return(c)

}

##3.1

data<-scan("C:\\3.1.txt")

##均值

mean(data)

##方差

var(data)

##标准差

sd(data)^2

##极差

max(data)-min(data)

##标准误

sm<-function(x){

n<-length(x)

sm<-sd(x)/sqrt(n) #输出的第s个数

第1页

猜你喜欢

返回顶部