for 循环
基础格式 for(name in vector) {commands}
变量 name 循环取 vector 中的每个元素,分别执行大括号中的 commands
commands 可以是一条语句,也可以是多条语句。当用一条语句时,可以不用大括号
用 for() 计算 n!
n <- 10
result <- 1
for(i in 1:n){
result <- reslut * i
}
result
产生随机数
results <- numeric(1000)
x <- 123
for(i in 1:1000){
x <- (65539 * x) %% (2 ^ 31)
results[i] <- x / (2 ^ 31)
}
plot(results, xlab = "1:1000")
如何求菲波纳契数列头 12 个
Fibonacci <- numeric(12)
Fibonacci <- Fibonacci[2] <- 1
for(i in 3:12){
Fibonacci[i] <- Fibonacci[i - 2] + Fibonacci[i - 1]
}
Fibonacci
Example:
Q1:
Q: 假设一个汽车经销商推销两种购买20000美元新车的方式
1:一次付清 20000 美元,然后返还其 1000 美元
2:每月付 1000 美元,连付 20 个月
假设无套利存在,求此时市场利率是多少?
A:
19000 = 1000 ∗ ∑ n = 1 n = 20 ( 1 + i ) − n 19000 = 1000*\sum_{n=1}^{n=20}(1+i)^{-n} 19000=1000∗n=1∑n=20(1+i)−n
i = 1 − ( 1 + i ) − 20 19 i = \frac{1-(1+i)^{-20}}{19} i=191−(1+i)−20