stampede_test.R

################################################################################
# Copyright 2016 Indiana University
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
#     http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
################################################################################

options(package.stats.enabled = TRUE)
options(package.stats.method = "xalt")
options(package.stats.filter = c("base"))
#options(package.stats.logDirectory = "/Users/jmccombs/projects/RWorkflowOptimization/source/log")
#options(package.stats.logFilePrefix = "rpkgstats")
options(package.stats.xalt_run_uuid_var = "XALT_RUN_UUID")
options(package.stats.xalt_dir_var = "XALT_DIR")
options(package.stats.xalt_exec_path = "libexec/xalt_record_pkg")

library(packagestats)
library(help=cluster)

# Should not add any log entry because both package and help have been set
library(package=cluster,help=cluster)
# Should not add any log entry because help has been set
library(help=cluster)
# Should add a log entry
library(package=cluster)
# Should not add a log entry because it is in the filter list
library(base)
# Should not add a log entry due to duplicate entry
library(cluster)
# Should add a log entry
library(stats)

# Test :: operator. Should add nnet just once
ir <- rbind(iris3[,,1],iris3[,,2],iris3[,,3])
   targets <- nnet::class.ind( c(rep("s", 50), rep("c", 50), rep("v", 50)) )
   samp <- c(sample(1:50,25), sample(51:100,25), sample(101:150,25))
   ir1 <- nnet::nnet(ir[samp,], targets[samp,], size = 2, rang = 0.1,
               decay = 5e-4, maxit = 200)