Nothing
#' DoubleEnter
#'
#' @param proband The proband scores
#' @param sibling The matched sibling scores
#' @param Rs The relatedness coefficients
#'
#' @return A dataframe
#' @export
#'
#' @examples X<-DFSimulated(10,10,.2,.2)
#' Y<-doubleEnter(X[,"proband"], X[,"sibling"], X[,"Rs"])
doubleEnter<-function(proband,sibling,Rs){
p<-c(proband, sibling) #Proband is simply used as the name for the LHS of the model
s<-c(sibling, proband) #Sibling is the RHS version of the scores
Rs<-c(Rs,Rs) #The coefficients of relationship
proband<-p
sibling<-s
return(data.frame(proband,sibling,Rs))
}
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.