1d:T75d,# Let the user to choose the center of the bone Let the user to choose the center of the bone. ```r BP_ChooseCenter(bone, analysis = 1) ``` ## Arguments - `bone`: The bone image to be used - `analysis`: The name or rank of analysis ## Returns The orignal bone object with a new attribute for center ## Details BP_ChooseCenter lets the use to choose the center of the bone ## Examples ```r ## Not run: # 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") ## End(Not run) ``` ## See Also Other BoneProfileR: `BP_AutoFit()`, `BP_ChooseBackground()`, `BP_ChooseForeground()`, `BP_DetectBackground()`, `BP_DetectCenters()`, `BP_DetectForeground()`, `BP_DuplicateAnalysis()`, `BP_EstimateCompactness()`, `BP_FitBayesianCompactness()`, `BP_FitBayesianPeriodicCompactness()`, `BP_FitMLCompactness()`, `BP_FitMLPeriodicCompactness()`, `BP_FitMLRadialCompactness()`, `BP_GetFittedParameters()`, `BP_ListAnalyses()`, `BP_LnLCompactness()`, `BP_OpenImage()`, `BP_Report()`, `Erinaceus_europaeus`, `plot.BoneProfileR()`, `summary.BoneProfileR()` ## Author(s) Marc Girondot marc.girondot@gmail.com

BP_ChooseCenter function