每天“考”一次科目三，下次还不给我过？

科目三，三位考生，考试车辆行进最远不足200m，是什么概念？基本上都是起步挂，可怜咱连体验别人合格的机会都没有，甭说自个了。

操作和心态问题说到底还是技术上的问题，为了下次轻松过，只能先从脑子上找补了。

=================================================

科目三的考试内容大部分是稳定的，练熟就好（其实这点就很难满足，科三练习机会太少了），更容易出错是其中的不确定性因素。具体来说，包括3种：路线；灯光；路况。
路线和灯光的总体是确定的，左右不过抽样，但路况就不是咱们能提前预知的了，就算它为偶然性因素，忽略不计。

先说路线，3条，正常情况下是随机分配，因此每一条都可能被抽到，必须都要准备着。而且三条道几乎共用，只是顺序不同，特别容易混淆。特画了3幅示意图：
观察图也知道，1号线路最简单。据某不可靠的小道消息，三条线的概率并不是完全相等的，1号概率略小，不妨令三者比例为0.25:0.375:0.375。

另外，就是灯光。总共5小题，打开前照灯是100%的第一题，剩下4题从下面13道题目里随机选择。

1. 在有路灯.照明良好的道路上行驶.应使用近光灯
2. 在路边临时停车应开示廓灯
3. 夜间在照明不良的道路行驶应使用远光灯
4. 夜间通过路口应使用近光灯
5. 同方向近距离跟车行驶应使用近光灯
6. 会车行驶应使用近光灯
7. 夜间通过有交通信号灯控制的路口.应使用近光灯
8. 夜间超越前方车辆.应交替使用远近光灯
9. 夜间通过没有交通信号灯控制的路口.应交替使用远近光灯
10. 夜间通过急弯… 应交替使用远近光灯
11. 夜间通过拱桥. 应交替使用远近光灯
12. 夜间通过人行横道. 应交替使用远近光灯
13. 夜间通过坡路. 应交替使用远近光灯

上面大概已经说的差不多了，现在要做的就是随机生成一道灯光试题（包含确定的1题和不确定的4题）以及路线。上代码：

#科三你给我过
library(stringr)#part1 灯光
setwd('C:/Users/Administrator/Desktop')
light<-read.csv('灯光.csv',header = FALSE)
index<-sample(c(1:nrow(light)),4,replace = F)
l1<-c('打开前照灯');l4<-as.character(light[index,]$V2)
l5<-c(l1,l4)  #原文档包含题目和答案在一句话里，可用“应”字分开l5_list<-str_split(l5,'应')
l5_ques<-c();l5_answ<-c()
for (i in 1:5) {l5_ques[i]<-l5_list[[i]][1]l5_answ[i]<-l5_list[[i]][2]}#part2 路线
line<-sample(c(1:3),1,prob = c(0.25,0.375,0.375))#生成最终的测试题和答案
test<-list();test[[1]]<-line;test[[2]]<-l5_ques
names(test)<-c("线路","灯光题") #测试题
answer<-l5_answ #灯光题答案

运行效果：

每天“考”一次科目三，下次还不给我过？