我如何计算r中的y / n答案？

Question

我将用r编程创建调查。但我是新人。我想数数＆＃34;是＆＃34;和＆＃34;不＆＃34;答案会问每个人。并用它们创建数据。我怎样才能做到这一点？我的代码如下：

 survey <- c ("Are you student?", "Do you drive car?", "Do you smoke cigarette?")

surveyfunct <- function(v,m){
   for(i in 1:length(v))
       {m <-readline(v[i])
        if (m == "yes" && m == "no"){
            m <- readline(v[i+1])}}
    return (list(m))}