#' Produce mean vector for linear
#'
#' This function is a help function to automatrically produce mean vector for linear.
#' @param k a numeric value specifies the number of active doses.
#' @param doses a numeric vector of specified doses.
#' @return mean vector for linear
#' @export
#' @examples k<-4
#' doses<-seq(0,k,1)
#' mu.linear(k,doses)
#'
mu.linear<-function(k,doses){
#transDose<-doses
#transDose<-c(1:k)
#c(0, 1/k*seq(1,k, by=1))
mu<-matrix(doses/doses[k+1], nrow=1,ncol=k+1)
colnames(mu)<-doses
mu
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.