Nothing
CombineCaseControlC <-
function(cases, controls) {
## Argument: Cases, Controls point processes
## Return: combX, combZ, combL
## Combines the cases and controls point processes
## Produce a process realization combL containing distinct read positions
## and X_i be total number of reads at the ith distinct read position
## and Z_i be number of reads at the ith distinct read position from case
## and L_i be the label (genome location) at the ith distinct read position
cases = sort(cases)
controls = sort(controls)
combCC = .Call(C_CombineSortedVectorC, as.numeric(cases), as.numeric(controls))
combL = .Call(C_FindUniqueInSortedArrayC, as.numeric(combCC))
combZX = .Call(C_CombineToUniqueValueC, as.numeric(cases), as.numeric(controls), as.numeric(combL))
combZ = as.numeric(combZX[,1])
combX = as.numeric(combZX[,2])
return(list(combX=combX, combZ=combZ, combL=combL))
}
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.