Nothing
#' @title Creats vectors: \code{m,q,c} from integers: \code{M,Q,C}
#' @description
#' Makes \code{m,q,c} vectors
#' from a collection of three integers \code{M,Q,C},
#' where three vectors \code{m,q,c}
#' denotes modality ID, reader ID, confidence level,
#' respectively.
#'
#'
#'
#'@details
#'
#' My research is not supported any found, I am completely independent
#' and only my own or my parents are supported my research.
#' No internet, poor condition, I made this. I must go on untill jounal accepts my manuscripts.
#'
#' I am not happy to spent with FROC analysis, since it is not my interest.
#' I want to research pure mathematics. I do not want to waste a time.
#' I do not want to waste a time in hospital or plurigo nodularis.
#' When I become happy? This program helps me? With great pain at 2019 Sept.
#' 2019 Sept. 8
#'
#' @param M A positive integer, representing modality ID
#' @param Q A positive integer, representing reader ID
#' @param C A positive integer, representing confidence level
#'
#' @return A data-frame, including three vectors, which are named \code{m,q,c} representing modality ID and reader ID and confidence level, respectively.
#'
#' For example, the resulting object of \code{a <- m_q_c_vector_from_M_Q_C(2,3,4)} is given by
#'
#' \code{ > a}
#'
#'
#' \tabular{rrr}{
#' \code{ m }\tab \code{ q} \tab \code{c} \cr
#' -------- \tab ------ \tab ---------\cr
#' 1 \tab 1 \tab 4\cr
#' 1 \tab 1 \tab 3\cr
#' 1 \tab 1 \tab 2\cr
#' 1 \tab 1 \tab 1\cr
#' 1 \tab 2 \tab 4\cr
#' 1 \tab 2 \tab 3\cr
#' 1 \tab 2 \tab 2\cr
#' 1 \tab 2 \tab 1\cr
#' 1 \tab 3 \tab 4\cr
#' 1 \tab 3 \tab 3\cr
#' 1 \tab 3 \tab 2\cr
#' 1 \tab 3 \tab 1\cr
#' 2 \tab 1 \tab 4\cr
#' 2 \tab 1 \tab 3\cr
#' 2 \tab 1 \tab 2\cr
#' 2 \tab 1 \tab 1\cr
#' 2 \tab 2 \tab 4\cr
#' 2 \tab 2 \tab 3\cr
#' 2 \tab 2 \tab 2\cr
#' 2 \tab 2 \tab 1\cr
#' 2 \tab 3 \tab 4\cr
#' 2 \tab 3 \tab 3\cr
#' 2 \tab 3 \tab 2\cr
#' 2 \tab 3 \tab 1
#' }
#'
#'
#'
#'
#' @export
# @aliases m_c_q_vector_from_M_C_Q
#' @examples
#'
#'
# ####1#### ####2#### ####3#### ####4#### ####5#### ####6#### ####7#### ####8#### ####9####
#'#========================================================================================
#'# Create a ID vectors
#'#========================================================================================
#'
#' a <- m_q_c_vector_from_M_Q_C(2,3,4)
#'
#' a$m
#' a$q
#' a$c
#'
#'
#'
# ####1#### ####2#### ####3#### ####4#### ####5#### ####6#### ####7#### ####8#### ####9####
#'#========================================================================================
#'# validation of this function
#'#========================================================================================
#'#'
#'
#'
#' a <- m_q_c_vector_from_M_Q_C(5,4,5)
#'
#'
#' a$m == dd$m
#' a$c == dd$c
#' a$q == dd$q
#'
#'
#'
#'
m_q_c_vector_from_M_Q_C <-function(M,Q,C){
m<- rep(1:M, each=C*Q)
q <- rep(seq(1,Q,1), M, each=C)
c <-rep(rep(C:1), M*Q)
return( data.frame(m=m,q=q,c=c))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.