Displaying 1 result from an estimated 1 matches for "sklepik".
2009 Jun 02
2
What do you think about my function?
...t_d_ok)
dl_n = length(wekt_n_ok)
dl_d = length(wekt_d_ok)
if (skl[i] %in% NA){ wynik[i]=NA}
else {wynik[i] =
sum(((1*wekt_n_ok)+(3*wekt_n_ok))/((1*dl_n)+(3*dl_d)))}
}
return (wynik)
}
### Call function ###
dzieci$zywnosc <- zywnoscCalosc(dzieci$zywnosc, dzieci$sklepik,
dzieci$sklslodycze, dzieci$sklnapojegazowane, dzieci$sklfastfood,
dzieci$sklsloneprzekaski, dzieci$sklmlekoiproduktymleczne,
dzieci$sklwodamineralnasoki, dzieci$sklkanapki, dzieci$sklwarzywaiowoce)
#####################################################################
And about mistake in my func...