4

私はRに非常に慣れていないので、これに対する解決策はおそらく比較的簡単です。平均的な車の停止距離を計算する次の関数があります。

distance <- function(mph){(2.0*(mph/60))+(0.062673*(mph^1.9862))}

そして、時速 1 マイルから時速 60 マイルまでのすべての停止距離をプロットしています。

range = distance(1:60)

しかし、停止距離が 120 フィートに等しい場所をマークする必要があります。これが R でどのように行われるかはわかりませんが、停止距離 (x) に対して次の関数を作成したいと思います。 MPHでの車の最高速度. どの関数を使用すればよいですか?また、distance(x) の値 (上記のように) が特定の値に等しいかどうかを確認する簡単な方法はありますか?

4

2 に答える 2

5

これを行う 1 つの方法は、関数 -120 が 0 に等しいときを見つけることです。

distance <- function(mph, dist=0){(2.0*(mph/60))+(0.062673*(mph^1.9862))-dist}
uniroot(distance, c(1, 60), dist=120)
## $root
## [1] 44.63998
##
## $f.root
## [1] -5.088982e-06
##
## $iter
## [1] 6
##
## $estim.prec
## [1] 6.103516e-05

そして、それが機能したかどうかを確認するには:

distance(44.63998)
## [1] 120
于 2013-02-13T06:24:19.373 に答える