res<-compareGroups(data,data$Visit_Group,method=2,p.corrected=TRUE)export2csv(createTable(res,show.all=TRUE,show.p.mul=TRUE,digits=5),file="table.csv")
all it exprots are the IQ ranges