面向金融的R语言_L3

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\ast \sum _{n=1}^{n=20}(1+i{)}^{-n}$$
$$i=\frac{1-(1+i{)}^{-20}}{19}$$
给定一个初始值，用迭代的方法求解 i 。

i <- 0.006
results <- numeric(1000)
for(j in 1:1000){
	i <- (1 - (1 + i)^(-20)) / 19
	print(i)
	results[j] = i
}
plot(1:1000,results)

Q2：