## Not run:
# # Perform a one run of the outerLoop using a simulated open cluster with
# # spatial and photometric data
# # Load the data into a data frame
# fileName <- "oc_12_500_1000_1.0_p019_0880_1_25km_120nR_withcolors.dat"
# inputFileName <- system.file("extdata", fileName, package="UPMASK")
# ocData <- read.table(inputFileName, header=TRUE)
#
# # Create the look up table
# library(RSQLite)
# stcon <- create_smartTable()
#
# # Run the outer loop
# posIdx <- c(1,2)
# photIdx <- c(3,5,7,9,11,19,21,23,25,27)
# photErrIdx <- c(4,6,8,10,12,20,22,24,26,28)
# outerLoopRes <- outerLoop(ocData, posIdx, photIdx, PhotErrIdx,
# starsPerClust_kmeans=25, verbose=TRUE, smartTableDB=stcon)
#
# # Clean the environment
# rm(list=c("inputFileName", "ocData", "posIdx", "photIdx", "photErrIdx",
# "outerLoopRes", "fileName"))
# dbDisconnect(stcon)
# ## End(Not run)
Run the code above in your browser using DataLab