as.geoComp {geoComp}R Documentation

Usage

as.geoComp(original, perc = TRUE)

Arguments

original
perc

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--    or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (original, perc = T) 
{
    if (perc == TRUE) {
        malha <- transform(original, Areia = (Areia/100), Silte = (Silte/100), 
            Argila = (Argila/100))
    }
    malha <- original
    malha <- transform(malha, y1 = log(Areia/Argila), y2 = log(Silte/Argila))
    seq11 <- seq(1, length(malha$y1) * 2, by = 2)
    seq22 <- seq(2, length(malha$y2) * 2, by = 2)
    y <- c()
    y[seq11] <- malha$y1
    y[seq22] <- malha$y2
    saida <- list()
    saida[[1]] <- malha[c(6, 7)]
    saida[[2]] <- data.frame(y)
    saida[[3]] <- data.frame(original[4], original[5])
    names(saida[[1]]) <- c("Y1", "Y2")
    names(saida[[2]]) <- c("Y")
    names(saida[[3]]) <- c("Coord.X", "Coord.Y")
    class(saida) <- "geoComp"
    return(saida)
  }

[Package geoComp version 0.1-0 Index]