Funkcja ma pobierać 3 argumenty:
directory - nazwa folderu z danymi
pollutant - nazwa kolumny jaka bierzemy do wyliczenia
id - nr pliku
i ma wyliczac srednią dla wartości wskazanej kolumny ze wskazanego pliku w skazanym folderze. Gdy uzytkownik wskaże 1 plik działa coś takiego:
pollutantmean <- function (directory, pollutant,id){
if(!pollutant %in% c("nitrate","sulfate")) {
cat("błędny pollutant")
break}
mean(as.numeric(na.omit(read.table(paste(directory,"/",list.files(directory)[id],sep=""),sep=",", header=TRUE)[,ifelse(pollutant=="nitrate",3,2)]))))
}
ale jak zrobić by działało gdy użytkownik wskaże > 1 plików? Można by pętlą doklejać wartości kolumn z plików , ale to zbyt skomplikowane. Jak użyć do tego przetwarzania potokowego? w stylu lapply() ?