用R软件解决贝特朗奇论

在半径为R的圆内任作一弦AB，问其长度超过内接等边三角形边长的概率是多少？
求大佬帮忙用R语言实现！！！