2017-02-26 3 views
0

Beckonカーブフィッティングを実行するためにMixoxパッケージを使用しようとしています。開始値を取得するには、tuneFit()関数を使用しています。しかし、私は以下のエラーメッセージが表示されています。また、私が考えることができる初期値で直接フィッティングを試みましたが、エラーメッセージも表示されました。任意のアイデアをどのようにこれを解決するには?Mixtox tuneFit関数は、Beckon Curve Fittingの初期推定値を取得します。引数の長さはゼロです

library(mixtox) 
via_data$Concentration <- c(0.1974457, 0.3980034, 0.7921297, 1.5754719, 
          3.1546263, 6.2702489, 12.6250182, 25.2772970, 
          25.1103882, 49.9450449, 74.6800090) 
via_data$Viability <- c(100.611247, 94.621027, 96.210269, 87.530562, 
         80.562347, 62.224939, 39.119804, 
         30.806846, 30.684597, 22.860636, 2.567237) 

via_tuneFit <- tuneFit(via_data$Concentration, via_data$Viability, 
       eq="Beckon") 
Error in if (nrow(param) > highBar) param <- param[sample(nrow(param), : 
    argument is of length zero 

via_curvFit <- curveFit(x=via_data$Concentration, rspn=via_data$Viability, 
       eq="Beckon", rtype = "continuous", 
       param = c(77, 26, 1, 1, -6)) 

Processing continuous quantal dose-response data 
Error in solve.default(t(jac) %*% jac) : 
    system is computationally singular: reciprocal condition number = 2.79026e-31 

助けてください。

おかげで、 Krina

答えて

0

が、これは働いていました。

via_curvFit <- curveFit(x=via_data$Concentration, rspn=via_data$Viability, 
       eq="Beckon", rtype = "continuous", param = c(1.32, 1.26, -0.94, 1.7, 0.68))