Nothing
f.get.marker.names <- function(data, n.vars){
##
## EXTRACT MARKER NAMES
##
#
if(is(data, "gwaa.data")){
## GWAA OBJECT
# .marker.names <- snpnames(data)
}else{
## HAPLIN DATA MATRIX
.marker.names <- colnames(data)
if(n.vars > 0) .marker.names <- .marker.names[-(1:n.vars)]
## REMOVE "l_" AT START AND "_m2" (AND SUCH) AT END
.marker.names <- substring(.marker.names, first = 3, last = nchar(.marker.names) - 3)
.marker.names <- unique(.marker.names)
}
#
return(.marker.names)
}
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.