次のコードで何をしているのかわかりませんR

Question

NLPのクエリを確認しながら、このコードを取得しました。誰もがそれが何をするかを説明することができます：

candidates <- reactive({ 
    if (is.null(ng)) { return(NULL) } 
    pred.time <- system.time({ 
     candidates <- predictN(input$inputtext, ng(), ngramRange = 1:4)    
    }) 
    values$pred.time <- HTML(sprintf("%3.2f s", pred.time[3])) 
    candidates 
    }) 

Answer 1

それは、いくつかのユーザ入力テキストに基づいて予測を実行するためにかかる時間ngがnullの場合はnullを返し、さもなければ倍のどちらかということreactive（ライブアップデート）関数を作成します値はngです。

ngは、明らかに、1グラムから4グラムのnグラムテキストマイニングに基づく統計モデルです。

また、HTML形式のテキストとして記録する時刻を出力します。