Commit 9796e0ef by Eric Coissac

Remove MicroCurvulatum dataset

parent 85d25ea3
......@@ -36,57 +36,3 @@ usethis::use_data(climat, overwrite = TRUE)
usethis::use_data(soil, overwrite = TRUE)
usethis::use_data(geography, overwrite = TRUE)
#
# MicroCurvulatum datasets
#
mc.bacteria <- read.table("data-raw/MicroCurvulatum/rarefied_bacterial_community_matrix.txt",
row.names = 1,
header = 1,
na.strings = "NA"
)
mc.bacteria = as.matrix(mc.bacteria)
mc.fungi <- read.table("data-raw/MicroCurvulatum/rarefied_fungal_community_matrix.txt",
row.names = 1,
header = 1,
na.strings = "NA"
)
mc.fungi <- as.matrix(mc.fungi[row.names(mc.bacteria),])
mc.plants <- read.table("data-raw/MicroCurvulatum/Phytosocio.txt",
row.names = 1,
header = 1,
na.strings = "NA"
)
mc.plants <- as.matrix(mc.plants[substr(row.names(mc.bacteria),
1,
nchar(row.names(mc.bacteria))-1),])
mc.soil <- read.table("data-raw/MicroCurvulatum/SOIL_CHEM.txt",
row.names = 1,
header = 1,
na.strings = "NA"
)
mc.soil <- as.matrix(mc.soil[row.names(mc.bacteria),5:10])
mc.geography <- read.table("data-raw/MicroCurvulatum/Coord_geo.txt",
row.names = 1,
header = 1,
na.strings = "NA"
)
mc.geography <- as.matrix(mc.geography[substr(row.names(mc.bacteria),
1,
nchar(row.names(mc.bacteria))-1),])
MicroCurvulatum = ProcMod::procmod.frame(bacteria = mc.bacteria,
fungi = mc.fungi,
plants = mc.plants,
soil = mc.soil)
usethis::use_data(MicroCurvulatum, overwrite = TRUE)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment