ヒューリンクステクニカルサポート

SigmaPlot 製品ページ

更新日： 16/01/29

FitResults オブジェクト

FitResults オブジェクトは、非線形回帰によって算出された各種値を取得するのに使用します。特に、算出された統計量やその他の結果を使って更なる統計量を導出する場合に役立ちます。

Example

• 例

  ActiveDocument.NotebookItems.Item("Data To Fit").Open
  Dim Selection(3)
  Selection(0) = 2
  Selection(1) = 0
  Selection(2) = 3
  Selection(3) = &H7FFFFFF
  ActiveDocument.NotebookItems.Item("Data To Fit").SelectionExtent = Selection
  
  Dim MyFit As Object
  Set MyFit = ActiveDocument.NotebookItems.Add(SigmaPlot.CT_FIT)
  MyFit.DatasetType = CF_XYPAIR
  MyFit.Variable("x") = "col(3)"
  MyFit.Variable("y") = "col(4)"
  MyFit.Equation("f") = "a*x+b"
  MyFit.DependentVariableName = "y"
  MyFit.Parameter("a") = 1
  MyFit.Parameter("b") = 1
  Dim bConverged As Boolean
  bConverged = MyFit.Run
  If bConverged = False Then
  MsgBox("Failed to converge")
  End If
  MyFit.OutputReport= False
  MyFit.OutputEquation=False
  MyFit.OutputGraph = False
  
  Dim Stats As Object
  Set Stats = MyFit.FitResults
  Dim Msgtext As String
  MsgText = "Fit Results: " + vbCrLf + _
  "Number of Obs: " + CStr(Stats.DataPointCount) + vbCrLf + _
  "Number of Params: " + CStr(Stats.ParameterCount) + vbCrLf + _
  "P Value: " + CStr(Stats.PValue) + vbCrLf + _
  "RegrCoeff (a): " + CStr(Stats.ParameterRegressionCoefficient("a")) + vbCrLf + _
  "RegrCoeff (b): " + CStr(Stats.ParameterRegressionCoefficient("b")) + vbCrLf + _
  "Perfect Fit: " + CStr(Stats.PerfectFit)
  If Stats.PerfectFit=False Then
  MsgText=MsgText + vbCrLf + "R-square: "+ CStr(Stats.RSquare)
  End If
  MsgBox(MsgText)