nested code snippets in r

write a function for nested block design anova in r