You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
74 lines
2.4 KiB
R
74 lines
2.4 KiB
R
14 years ago
|
source(SHE2AVS.R)
|
||
|
|
source(AVS2SHE.R)
|
||
|
|
source(ConvertRefPotEC.R)
|
||
|
|
|
||
|
|
##################################################
|
||
|
|
################# ConvertRefPot ##################
|
||
|
|
##################################################
|
||
|
|
ConvertRefPot <- function(argpotential, argrefscale, valuerefscale) {
|
||
|
|
# Check that argpotential is valid numeric
|
||
|
|
|
||
|
|
# IDEA: make a matrix out of these (scale names and flags)
|
||
|
|
|
||
|
|
# Valid scales
|
||
|
|
scale.names <- list()
|
||
|
|
scale.names[["SHE"]] <- c("SHE", "NHE", "she", "nhe")
|
||
|
|
scale.names[["AgCl"]] <- c("Ag/AgCl", "AgCl", "ag/agcl", "agcl")
|
||
|
|
scale.names[["SCE"]] <- c("SCE", "sce")
|
||
|
|
scale.names[["Li"]] <- c("Li/Li+", "Li", "Li+", "li", "li+", "li/li+")
|
||
|
|
scale.names[["AVS"]] <- c("AVS", "avs")
|
||
|
|
|
||
|
|
# Set flags
|
||
|
|
bool.flags <- as.data.frame(matrix(0, nrow = length(scale.names), ncol = 2))
|
||
|
|
names(bool.flags) <- c("argref", "valueref")
|
||
|
|
row.names(bool.flags) <- names(scale.names)
|
||
|
|
|
||
|
|
# argrefscale
|
||
|
|
# Check that argrefscale is valid character mode
|
||
|
|
# ...
|
||
|
|
|
||
|
|
for (j in 1:length(row.names(bool.flags))) {
|
||
|
|
if (any(scale.names[[row.names(bool.flags)[j]]] == argrefscale)) {
|
||
|
|
bool.flags[row.names(bool.flags)[j], "argref"] <- j
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
# valuerefscale
|
||
|
|
# Check that valuerefscale is valid character mode
|
||
|
|
# ...
|
||
|
|
|
||
|
|
for (k in 1:length(row.names(bool.flags))) {
|
||
|
|
if (any(scale.names[[row.names(bool.flags)[k]]] == valuerefscale)) {
|
||
|
|
bool.flags[row.names(bool.flags)[k], "valueref"] <- k
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
# Depending on which flags are set, call the corresponding function
|
||
|
|
|
||
|
|
decision.vector <- colSums(bool.flags)
|
||
|
|
|
||
|
|
# Check if both scales are the same (no conversion needed). If so, abort gracefully.
|
||
|
|
# ...
|
||
|
|
|
||
|
|
if (decision.vector["argref"] == 5 || decision.vector["valueref"] == 5) {
|
||
|
|
# AVS is requested, deal with it it
|
||
|
|
if (decision.vector["argref"] == 5) {
|
||
|
|
# Conversion _from_ AVS
|
||
|
|
rnpotential <- ConvertRefPotEC(AVS2SHE(argpotential),
|
||
|
|
"SHE",
|
||
|
|
scale.names[[decision.vector["valueref"]]][1])
|
||
|
|
}
|
||
|
|
if (decision.vector["valueref"] == 5) {
|
||
|
|
# Conversion _to_ AVS
|
||
|
|
rnpotential <- SHE2AVS(ConvertRefPotEC(argpotential,
|
||
|
|
scale.names[[decision.vector["argref"]]][1],
|
||
|
|
"SHE"))
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
rnpotential <- ConvertRefPotEC(argpotential,
|
||
|
|
scale.names[[decision.vector["argref"]]][1],
|
||
|
|
scale.names[[decision.vector["valueref"]]][1])
|
||
|
|
}
|
||
|
|
return(rnpotential)
|
||
|
|
}
|