2016-04-12 5 views
0

私はrプログラミングで調査を作成します。しかし、私は新しいものです。私は "はい"と "いいえ"答えを数えたいと思います。そしてそれらを使ってデータを作成します。これどうやってするの?次のように私のコードは次のとおりです。コレクト回答についてはrでy/nの答えをどのように数えることができますか?

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))} 
+0

あなたが作るためにあなたの完全なコードを表示することができますしてくださいあなたの質問は再現可能です。 Rはベクトル化されているので、sum(v == "yes")のようなコードは役に立ちます。 –

+0

これも私のフルコードです。 "Yes(はい)/ No(いいえ))という質問を含むアンケートを作成してください。質問はユーザーがそれぞれ に表示され、答えとして"はい "または"いいえ "のみを受け入れる必要があります。したがって、1人のユーザーが回答を完了した後で、 すべての質問は、回答が "answers.csv"という名前のファイルに保存され、新しいユーザーが を入力すると、その回答は同じファイルに追加されます。 – davut

+0

Rを刺激プレゼンテーションとして使用しますか? 1.それは多くの理由(私は代わりに精神的に行くだろう)のためにはお勧めしません2.それを見逃した場合は、[リンク]を見てください(http://stackoverflow.com/questions/11007178/creating-a-prompt - システムへの入力 - 入力 - データ - r)? 3.本当にRでこれをやりたい場合は、Shiny [link](http://shiny.rstudio.com/)を見てください。 – Pasqui

答えて

0

あなたは、あなたが必要な答えをサブセットまたはCSVファイルにそれらのすべてを書くことができ

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

surveyfunct <- function(q){ 

    return (readline(q))} 

answers=sapply(survey,surveyfunct) 

なfucntionを使用することができます。

surveyfunct <- function(q){ 
    h=0 
    while (h==0){ 

    a=readline(q) 
    if(a %in% c("yes","no")){ 
     h=1} 
    } 
    return (a)} 

数についてあなたは、単に使用することができますが、あなたの希望だけではい\一切答えはあなたが追加することはできません場合table

> answers=sapply(survey,surveyfunct) 
Are you student?yes 
Do you drive car?no 
Do you smoke cigarette?yes 
> table(answers) 
answers 
no yes 
    1 2 
関連する問題