BoneProfileR (version 3.1)

BP_ChooseCenter: Let the user to choose the center of the bone

Description

Let the user to choose the center of the bone.

Usage

BP_ChooseCenter(bone, analysis = 1)

Value

The orignal bone object with a new attribute for center

Arguments

bone

The bone image to be used

analysis

The name or rank of analysis

Author

Marc Girondot

Details

BP_ChooseCenter lets the use to choose the center of the bone

See Also

Other BoneProfileR: BP_AutoFit(), BP_ChooseBackground(), BP_ChooseForeground(), BP_DetectBackground(), BP_DetectCenters(), BP_DetectForeground(), BP_DuplicateAnalysis(), BP_EstimateCompactness(), BP_FitBayesianCompactness(), BP_FitMLCompactness(), BP_FitMLRadialCompactness(), BP_GetFittedParameters(), BP_ListAnalyses(), BP_LnLCompactness(), BP_OpenImage(), BP_Report(), Erinaceus_europaeus, plot.BoneProfileR(), summary.BoneProfileR()

Examples

if (FALSE) {
# Not run:
library(BoneProfileR)
path_Hedgehog <- system.file("extdata", "Erinaceus_europaeus_fem_2-1_small.png", 
                             package = "BoneProfileR")
 bone <- BP_OpenImage(file=path_Hedgehog)
 bone <- BP_DetectBackground(bone=bone)
 bone <- BP_DetectForeground(bone=bone)
 bone <- BP_ChooseCenter(bone=bone)
 # For partial section, only BP_ChooseCenter() must be used
 path_Dicynodon <- system.file("extdata", "Dicynodon_tibia_11.11.1.T_b_b-1.png", 
                             package = "BoneProfileR")
 bone <- BP_OpenImage(file=path_Dicynodon)
 bone <- BP_DetectBackground(bone=bone)
 bone <- BP_DetectForeground(bone=bone)
 bone <- BP_ChooseCenter(bone=bone)
 bone <- BP_EstimateCompactness(bone, center="user", partial=TRUE)
 bone <- BP_FitMLCompactness(bone, analysis=1)
 plot(bone, type="observations+model")
}