csv <- read.table("SAheart.data", sep=",",head=T,row.names=1)

library(caTools)
set.seed(101)
sample <- sample.split(csv$chd, SplitRatio=0.5)
train.data <- subset(csv, sample == TRUE)
validation.data = subset(csv, sample == FALSE)


priors <- getpriors(train.data, train.data$chd)