Commented Out Code

[mboyas-mitre]

openVA/openVA/R/VAmain.r

Lines 151 to 160 in d6e2af7

	# # add in default parameters
	# formals <- as.list(formals())
	# defs <- setdiff(names(formals), names(args))
	# if(length(defs) > 0){
	# for(i.args in 1:length(defs)){
	# if(!is.null(formals[[defs[i.args]]])){
	# args[[defs[i.args]]] <- formals[[defs[i.args]]]
	# }
	# }
	# }

openVA/openVA/R/VAmain.r

Lines 259 to 286 in d6e2af7

	# # make sure the second column is cause
	# if(which(colnames(data.train) == causes.train) != 2){
	# k <- which(colnames(data.train) == causes.train)
	# rest <- (1:dim(data.train)[2])[-c(1, k)]
	# data.train <- data.train[, c(1, k, rest)]
	# }
	# # make sure the second column is cause
	# if(causes.train %in% colnames(data) == FALSE){
	# # it is handled
	# }else if(which(colnames(data) == causes.train) != 2){
	# k <- which(colnames(data) == causes.train)
	# rest <- (1:dim(data)[2])[-c(1, k)]
	# data <- data[, c(1, k, rest)]
	# }
	# data.train[data.train == "Y"] <- 1
	# data.train[data.train == ""] <- 0
	# data.train[data.train == "."] <- 0
	# data[data == "Y"] <- 1
	# data[data == ""] <- 0
	# data[data == "."] <- 0
	# for(i in 3:dim(data.train)[2]){
	# data.train[, i] <- as.numeric(data.train[, i])
	# }
	# for(i in 2:dim(data)[2]){
	# if(colnames(data)[i] != causes.train) data[, i] <- as.numeric(data[, i])
	# }

openVA/openVA/R/VAmain.r

Lines 292 to 295 in d6e2af7

	# fit <- nbc(train = data.train,
	# test = data,
	# known = known.nbc)

Commented out code should either be deleted or add a note to explain why it is commented out.