Skip to content
Snippets Groups Projects
Commit c0aa388d authored by Francesco Sabatini's avatar Francesco Sabatini
Browse files

Minor changes to 00_check_data.Rmd

parent 2ffb0e74
No related branches found
No related tags found
No related merge requests found
...@@ -279,11 +279,6 @@ for(d in levels(header$Dataset)){ ...@@ -279,11 +279,6 @@ for(d in levels(header$Dataset)){
```{r, cache=T, warning=F} ```{r, cache=T, warning=F}
for(dd in 1:nlevels(header$Dataset)){ for(dd in 1:nlevels(header$Dataset)){
d <- levels(header$Dataset)[dd] d <- levels(header$Dataset)[dd]
datasel <- header %>%
filter(Dataset==d) %>%
select_if(not_all_na) %>%
select_if(~is.numeric(.)) %>%
dplyr::select(-PlotObservationID, -PlotID)
print(ggdataset[[dd]]) print(ggdataset[[dd]])
} }
``` ```
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment