Update aggr_RN.R

Ya he dejado la función como estaba. Seguiré intentando resolver el problema en mi ordenador

R/aggr_RN.R

@@ -41,7 +41,7 @@ aggr_RN <- function(raw_RN) {
   RN[is.na(RN)] <- 0
   RN$Canopy <- as.character(RN$Canopy)
   RN$Recruit <- as.character(RN$Recruit)
-  # RN <- RN[which(RN$Recruit!="Open"),] # Remove Open from the Recruit species
+  RN <- RN[which(RN$Recruit!="Open"),] # Remove Open from the Recruit species
   return(RN)
 
 }