Skip to content

Instantly share code, notes, and snippets.

@andilabs

andilabs/gist:6504257

Created September 10, 2013 02:22
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save andilabs/6504257 to your computer and use it in GitHub Desktop.
Save andilabs/6504257 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
wlasna<-function(lista) {
#l<-as.data.frame(lista)
print(class(lista))
print(lista)
sumka=0
for (i in 1:length(lista)){
#print(i)
sumka=sumka+lista[i]
print(sumka)
}
print(sumka)
as.numeric(sumka)
}
ddply(mtcars,.(carb),summarise,TotalWt=wlasna(wt),AveHP=mean(hp),HOHO=var(hp))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment