# Roger Palay copyright 2026-02-24
# Saline, MI 48176
#
qtmsd <- function( p, df, mean=0, sd=1, ncp=NULL,
                   lower.tail=TRUE, log.p=FALSE)
{ 
  ## This is a function that will extend the qt()
  ## function to allow the user to specify the
  ## sample mean and/or standard deviation to use.
 
  if( is.null( ncp) )
  {temp_q <- qt( p, df, 0, lower.tail, log.p)}
  else
  {temp_q <-qt( p, df, ncp, lower.tail, log.p)}
  temp_q*sd + mean
}