r语言c函数定义函数,R语言-v2-定义函数

R语言-v2-定义函数

Iretara 12-17 21:32 删除 编辑

阅读数：141

共2篇a

以例题的方式简述R语言基础知识

​​计算圆周率pi

x

y

a

pi

中心极限定理

m

mx

for(j in 1:m){

x

y

z

mx[j]

}

mx

hist(mx)

#卡方分布rchisq(n,df,ncp=0 )

#求解一元二次方程根

get.root

if(sign(b*b-4*a*c)==-1)

#sign符号函数，数据<0为-1；>0为1

{print(“无解")

return(c(NA,NA))

}else

return(c((-b+sqrt(b*b-4*a*c))/(2*a),(-b-sqrt(b*b-4*a*c))/(2*a)))

}

get.root(1,-4,4)

问题

A 和 B约定在某篮球场见面。他俩都不太守时，出现时间服从均匀分布。他俩也都没有耐心， 每个人都会只等对方十分钟就会离开。已知 A 到篮球场的时间为下午 4 点到 5点之间。

(1)如果B 到达篮球场的时间也为下午 4 点到 5 点之间，模拟运行 50000 次，看看他 们成功相遇的概率。

n_Sim

sim_meet

A = runif(n_Sim,min = 0, max = 60),

B = runif(n_Sim,min = 0, max = 60)

) %>%

mutate(result = ifelse(abs(A - B) <= 10,

"They meet","They do not"))

p_meet % count(result) %>%

arrange(n) %>%

mutate(percent = n / n_Sim)

p_meet

(2)对上一问的 50000 次模拟，用不同颜色在一张图中展示成功相遇与否。

ggplot(data = sim_meet, aes(x = A, y = B, color = result)) +

geom_point()