# FSA depends on several packages being installed in your R.  As this package is
#   not distributed from CRAN you must install these packages manually.  A simple
#   way to do this is to copy all of the code below and paste it into the R
#   console.  Note that if you have not previously identified a CRAN mirror then
#   you will be prompted to do so.  At times this prompt may be 'buried' under
#   other open windows; thus, you should be on the lookout for this prompt (in
#   Windows keep an eye on your taskbar).  In addition, I have had problems (for
#   some reason) with tcltk installing properly.  Thus, you may have to install
#   this manually through CRAN.
#
# This helper function simply finds the packages on CRAN that you do NOT already
#   have installed on your computer.  The required packages can be found in the
#   FSA.depend and NCStats.depend vectors below.  You can simply install these
#   packages manually as you have likely done with other packages.  You will then
#   need to install the FSA, FSAdata, and NCStats packages from Rforge.net (which
#   can be done with the install.packages() commands in the fourth section below.
#
## COPY FROM BELOW HERE AND PASTE INTO R ######################################################
# Found out what is already installed on the local computer
installed <- library()$results[,"Package"]

# Find out FSA needs that is not already installed
FSA.depend <- c("gtools","Hmisc","MASS","plotrix","quantreg","reshape","stats","tcltk","TeachingDemos")
FSA.dep.log <- FSA.depend %in% installed
FSA.need <- FSA.depend[!FSA.dep.log]
                                                      
# Find out what NCStats needs that is not already installed
NCStats.depend <- c("car","gplots","gdata","Hmisc","nortest","plotrix","sciplot","tcltk","TeachingDemos","utils")
NCStats.dep.log <- NCStats.depend %in% installed
NCStats.need <- NCStats.depend[!NCStats.dep.log]

## Install FSA, FSAdata, and NCStats packages from RForge.net
install.packages(c("FSA","FSAdata","NCStats"),,"http://www.rforge.net/")

## Install all packages from CRAN that are needed (be on the lookout for choosing a mirror)
All.need <- c(FSA.need,NCStats.need)
if (length(All.need)>0) {
  chooseCRANmirror()
  install.packages(All.need)
}