| write_juice | R Documentation |
This function produce txt files as inport formats for Juice (https://www.sci.muni.cz/botany/juice/).
This function produces two output files to be imported into a Juice
file: A vegetation table produced by crosstable() and a header table.
Both tables share the file name plus a suffix (table for the
vegetation table and header for the header).
For the import in Juice, you go to the menu
File -> Import -> Table -> from Spreadsheet File (e.g. EXCEL Table) and
then follow the wizard.
Do not forget to select the proper settings in the wizard: 1) 'Character
delimiting columns: Comma' (for default argument values). 2) 'Use the second
column as layer information: Unchecked'. 3) 'Cover values: Percentage
Values'.
To further import the header table you need to go to the menu
File -> Import -> Header Data -> From Comma Delimited File.
In the header (see Value), the first column (Table number)
corresponds to the plot number assigned by Juice at import, while
the column (Releve number) is the number originally assigned to the plot
(e.g. Turboveg ID).
write_juice(data, file, formula, ...)
## S4 method for signature 'vegtable,character,formula'
write_juice(
data,
file,
formula,
FUN,
db_name = "Plot Observations",
header,
coords,
sep = ",",
...
)
read_juice(file, encoding = "LATIN-1", sep = ";", na = "", ...)
data |
An object of class vegtable. |
file |
Character value indicating the name of output files (without file extension). |
formula |
A formula passed to |
... |
Further arguments. While |
FUN |
Funtion passed to |
db_name |
Name for data set displayed in inport wizard. |
header |
Variables of header to be exported. |
coords |
Names of coordinate variables in header of |
sep |
Separator used to split rows into columns. |
encoding |
Argument passed to |
na |
Character used as not available values. |
For read_juice(), a list with two elements: A data frame of species by
plot (cross_table), and a data frame with header data (header).
Miguel Alvarez kamapu78@gmail.com
## Subset and transform cover values to percentage
vegetation <- Kenya_veg[1:20, ]
vegetation <- cover_trans(x = vegetation, to = "cover_percent", rule = "middle")
## Write in tempdir
write_juice(data = vegetation, file = file.path(tempdir(), "SWEA"),
formula = cover_percent ~ ReleveID + AcceptedName, FUN = mean,
header = c("ReleveID", "COMM_TYPE"))
## Installed 'Juice' version of 'Wetlands_veg'
Veg <- file.path(path.package("vegtable"), "juice", "Wetlands_juice.txt")
Veg <- read_juice(Veg)
summary(Veg)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.