##' GetCNVClass: Read data.
##'
##' Specifically designed to handle noisy data from amplified DNA on phenylketonuria (PKU) cards. The function is a pipeline using many subfunctions.
##' @title GetCNVClass
##' @param Variable: Numeric, Unknown.
##' @return return data in data frame.
##' @author Marcelo Bertalan, Louise K. Hoeffding.
##' @source \url{http://biopsych.dk/iPsychCNV}
##' @export
##' @examples Unknown.
##'
GetCNVClass <- function(Variable) # Can be 0, 1, 3, 4
{
Variable <- as.numeric(Variable)
if(Variable == 0){ Class = "DoubleDel" }
if(Variable == 1){ Class = "Del" }
if(Variable == 3){ Class = "Dup" }
if(Variable == 4){ Class = "DoubleDup" }
return(Class)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.