R/tabrandom.R

In philippemichel/thesisph: Tout ce qu'il faut pour debuter un travail simple

##'  Table de randomisation
##'
##'  plusieurs centres, blocs de taille variable
##' @title 
##' @param nbcent nombre de centres (default : 1)
##' @param nbtrait nombre de groupes (default : 2)
##' @param nbcas nombre de cas prevu par centre (default 30)
##' @return un csv global  + un csv par centre
##' @author Philippe MICHEL
##'
##' @import stats
##' @import blockrand
##'
##' @example listrandph(nbcent  = 2, nbtrait = 2, nbcas = 30)
##' 
listrandph <- function(nbcent  = 1, nbtrait = 2, nbcas){
    listr <- NULL
    tca <- ceiling(nbcas/nbtrait)
for (l in 1:nbcent){
  strat <- paste0("centre ",l)
  nn <- paste0("tables/table_random_centre",l,".csv")
  listp <- blockrand(
    stratum = strat,
  num.levels = nbtrait,
  id.prefix='patient_',
  block.sizes = sample(1:6,tca, replace = TRUE) ,
  levels=c("A", "B"),
  write.csv2(listp,nn, row.names = FALSE) 
  ) 
  listr <- rbind(listr,listp)
}
write.csv2(listr,"tables/randomisation_kinepanch_2comp.csv", row.names = FALSE)
}