Files
fissa-ecological-services/10_EXPORTS/00_export_headers.R

204 lines
4.4 KiB
R

####################################################################################################
# headers for forceps-export files
####################################################################################################
#----
(headers_complete_export <- c(
'date',
'patchId',
'id',
'speciesId',
'speciesShortName',
'genotypeName',
'age',
'dbh_cm',
'height_m',
'volume_m3',
'crownA1',
'crownLength',
'dbhIncrement',
'slowGrowthIndex',
'foliageArea',
'LAI',
'lightAvailability',
'algf',
'leafUnfoldingDate',
'leafSenescenceDate',
'treeDroughtIndex',
'droughtIndexModifier',
'sureauClassId',
'hydraulicConductance',
'trunkApoplasmPLC',
'leafApoplasmPLC',
'trunkTurgorPressure',
'meanleafWaterStatus',
'meanStomatalClosure',
'yearlyTranspirationSum',
'frostDefoliationPercentage',
'droughtDefoliationPercentage',
'causeOfDeath',
'extractedBranchPercentage',
'rootDepth_m',
'fineRootArea_m2',
'rootShootRatio',
'droughtFactor',
'basalArea_m2',
'trunkBiomass_kg',
'branchBiomass_kg',
'foliageBiomass_kg',
'aboveGroundBiomass',
'fineRootBiomass_kg',
'rootBiomass_kg',
'totalBiomass_kg',
'trunkSurfaceArea_m2',
'numberOfTREMs',
'x',
'y'
))
saveRDS(headers_complete_export, file = "headers_complete_export.Rds")
#----
(headers_mean_stand_export <- c(
'date',
'nTrees.ha',
'totalBiomass_t.ha',
'totalBasalArea_m2.ha',
'meanHeight_m.ha',
'totalVolume_m3.ha',
'LAI',
'droughtIndexAnnual',
'droughtIndexSeasonal',
'winterTMIN_deg',
'GDDannual_deg.day',
'GDDseasonal_deg.day',
'nTreesMean',
'nTreesSD',
'biomassMean',
'biomassSD',
'basalAreaMean',
'basalAreaSD',
'heightMean',
'heightSD',
'volumeMean',
'volumeSD',
'yearlyTranspirationSum',
'maxMonthlySoilWaterQuantity',
'meanMonthlySoilWaterQuantity',
'minMonthlySoilWaterQuantity',
'actualHeightVCI',
'potentialHeightVCI',
'managementIds'
))
saveRDS(headers_mean_stand_export, file = "headers_mean_stand_export.Rds")
#----
(headers_IBP_export <- c(
'date',
'alphaVCI',
'betaVCI',
'gammaVCI',
'alphaSpeciesRichness',
'betaSpeciesRichness',
'gammaSpeciesRichness',
'alphaSpeciesShannonIndex',
'betaSpeciesShannonIndex',
'gammaSpeciesShannonIndex',
'alphaClumpingIndex',
'betaClumpingIndex',
'gammaClumpingIndex',
'dbh_Gini',
'height_Gini',
'alphaAncientness',
'betaAncientness',
'gammaAncientness',
'numberOfTREM',
'numberOfTREMTrees',
'basalArea_Gini',
'LAI_Gini',
'LAI_Openness',
'numberOfLiveVerySmallTrees',
'numberOfLiveSmallTrees',
'numberOfLiveMediumTrees',
'numberOfLiveLargeTrees',
'numberOfLiveVeryLargeTrees',
'numberOfLiveVeryVeryLargeTrees',
'numberOfStandingDeadVerySmallTrees',
'numberOfStandingDeadSmallTrees',
'numberOfStandingDeadMediumTrees',
'numberOfStandingDeadLargeTrees',
'numberOfStandingDeadVeryLargeTrees',
'numberOfStandingDeadVeryVeryLargeTrees',
'numberOfFallenDeadVerySmallTrees',
'numberOfFallenDeadSmallTrees',
'numberOfFallenDeadMediumTrees',
'numberOfFallenDeadLargeTrees',
'numberOfFallenDeadVeryLargeTrees',
'numberOfFallenDeadVeryVeryLargeTrees'
))
saveRDS(headers_IBP_export, file = "headers_IBP_export.Rds")
#----
(headers_cut_export <- c(
'dateOfCut',
'patchId',
'id',
'speciesId',
'speciesShortName',
'genotypeName',
'age',
'dbh_cm',
'height_m',
'volume_m3',
'extractedBranchPercentage',
'trunkBiomass_kg',
'branchBiomass_kg',
'foliageBiomass_kg',
'aboveGroundBiomass_kg',
'fineRootBiomass_kg',
'rootBiomass_kg',
'totalBiomass_kg',
'x',
'y'
))
saveRDS(headers_cut_export, file = "headers_cut_export.Rds")
#----
(headers_scene_deadwood_export <- c(
'date',
'speciesId',
'speciesName',
'genotypeName',
'fallenLeafBiomassStock',
'deadBranchBiomassStock',
'deadFineRootBiomassStock',
'deadLargeRootBiomassStock',
'deadStandingTreeBiomassStock',
'deadFallenTreeBiomassStock',
'yearFallenLeafBiomass',
'yearDeadBranchBiomass',
'yearDeadFineRootBiomass',
'yearDeadLargeRootBiomass',
'yearDeadStandingTreeBiomass',
'yearDeadFallenTreeBiomass',
'soilOrganicCarbonStock',
'soilCarbonEmission',
'soil_A_Compound_Stock',
'soil_W_Compound_Stock',
'soil_E_Compound_Stock',
'soil_N_Compound_Stock',
'soil_H_Compound_Stock',
'livingTrunkBiomassStock',
'livingBranchBiomassStock',
'livingLeafBiomassStock',
'livingFineRootBiomassStock',
'livingLargeRootBiomassStock',
'yearExtractedSnagBiomass'
))
saveRDS(headers_scene_deadwood_export, file = "headers_scene_deadwood_export.Rds")