######################################################################
#
# test_scanon_mr.R
#
# copyright (c) 2009 Pjotr Prins
# first written July 2009
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License,
# version 3, as published by the Free Software Foundation.
#
# This program is distributed in the hope that it will be useful,
# but without any warranty; without even the implied warranty of
# merchantability or fitness for a particular purpose. See the GNU
# General Public License, version 3, for more details.
#
# A copy of the GNU General Public License, version 3, is available
# at http://www.r-project.org/Licenses/GPL-3
#
# Some basic regression/integration testing for some of the QTL mapping routines
#
# You can run it with:
#
# R --no-save --no-restore --no-readline --slave < ./tests/test_qtl.R
######################################################################
library(qtl)
data(listeria)
mr = scanone(listeria,method='mr')
sink('regression/scanone_mr.rnew')
mr
sink()
cat("test_qtl.R tests succesfully run!")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.