Results of horse races at Eagle Farm, Brisbane, on 31 August 1998. The data, collected by Donald Forbes for his MS305 Data Analysis Project, give results for each horse in a sequence of 8 races.
This data frame contains the following columns:
(Finishing position)
Number of horses in race
Finishing position in last race
Days since last race
Identifying number of horse in race
Weight carried
Handicap weight
Barrier position at start of race
Length of race
Number of lengths that horse finished from winner
Starting odds
Number of races previously started in
Age of horse in years
Proportion of wins in previous starts
Forbes, D. (1998). A Day at the Races. MS305 Data Analysis Project, Department of Mathematics, University of Queensland.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19  ##Load the data
library(FMsmsnReg)
data(horses)
attach(horses)
#Set the response y and covariate x
x1 < cbind(1,Last,Carried)
y < Position
##Fits a linear Regression Model with Finite Mixtures of Skew Contaminated Normal
parCN < FMsmsnReg(y, x1, g=2, get.init = TRUE, criteria = TRUE, group = FALSE,
family = "Skew.cn", error = 10^4, iter.max = 5000,obs.prob= FALSE,
kmeans.param = NULL,show.converge=FALSE,cp=0.5)
##Fits a linear Regression Model with Finite Mixtures of Skew normal
parSN < FMsmsnReg(y, x1, g=2, get.init = TRUE, criteria = TRUE,
group = FALSE,family = "Skew.normal", error = 10^4,
iter.max = 5000,obs.prob= FALSE, kmeans.param = NULL,show.converge=FALSE,cp=0.5)

Questions? Problems? Suggestions? Tweet to @rdrrHQ or email at ian@mutexlabs.com.
Please suggest features or report bugs with the GitHub issue tracker.
All documentation is copyright its authors; we didn't write any of that.