View source: R/BP_ChooseCenter.R
| BP_ChooseCenter | R Documentation | 
Let the user to choose the center of the bone.
BP_ChooseCenter(bone, analysis = 1)
bone | 
 The bone image to be used  | 
analysis | 
 The name or rank of analysis  | 
BP_ChooseCenter lets the use to choose the center of the bone
The orignal bone object with a new attribute for center
Marc Girondot marc.girondot@gmail.com
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()
## 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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.