Skip to content

Instantly share code, notes, and snippets.

@atyre2
Last active March 6, 2018 21:44
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 atyre2/169bfa3a6c709fd2fd31c5bfa46648ee to your computer and use it in GitHub Desktop.
Save atyre2/169bfa3a6c709fd2fd31c5bfa46648ee to your computer and use it in GitHub Desktop.
dieet <- structure(list(Jaar = c(2013L, 2013L, 2013L, 2013L, 2013L, 2013L,
2014L, 2014L, 2014L, 2014L, 2014L, 2015L, 2015L, 2015L, 2013L,
2013L, 2013L, 2013L, 2013L, 2013L, 2013L, 2013L, 2013L, 2014L,
2014L, 2014L, 2014L, 2014L, 2014L, 2014L, 2015L, 2015L, 2015L,
2015L, 2015L, 2015L), Kuikenweek = c("Week 1", "Week -1", "Week 2",
"Week -2", "Week 3", "Week -3", "Week 1", "Week 2", "Week -2",
"Week 3", "Week -3", "Week -1", "Week -2", "Week -3", "Week 1",
"Week -1", "Week 2", "Week -2", "Week 3", "Week -3", "Week 4",
"Week 5", "Week 6", "Week 1", "Week -1", "Week 2", "Week 3",
"Week -3", "Week 4", "Week 5", "Week 1", "Week -1", "Week 2",
"Week -2", "Week 3", "Week -3"), Percentage = c("0,4238", "0,8248",
"0,5927", "0,3208", "0,8317", "0,7314", "0,4624", "0,5224", "0,3528",
"0,7739", "0,1264", "0,4516", "0,4306", "0,5243", "0,5117", "0,1490",
"0,3342", "0,5069", "0,7101", "0,8019", "0,7569", "0,9096", "0,9013",
"0,5403", "0,2264", "0,5775", "0,7366", "0,4086", "0,5750", "0,6623",
"0,7758", "0,1517", "0,7587", "0,3247", "0,7463", "0,6325"),
Locatie = c("Markenje", "Markenje", "Markenje", "Markenje",
"Markenje", "Markenje", "Markenje", "Markenje", "Markenje",
"Markenje", "Markenje", "Markenje", "Markenje", "Markenje",
"Scheelhoek", "Scheelhoek", "Scheelhoek", "Scheelhoek", "Scheelhoek",
"Scheelhoek", "Scheelhoek", "Scheelhoek", "Scheelhoek", "Scheelhoek",
"Scheelhoek", "Scheelhoek", "Scheelhoek", "Scheelhoek", "Scheelhoek",
"Scheelhoek", "Scheelhoek", "Scheelhoek", "Scheelhoek", "Scheelhoek",
"Scheelhoek", "Scheelhoek")), .Names = c("Jaar", "Kuikenweek",
"Percentage", "Locatie"), class = c("tbl_df", "tbl", "data.frame"
), row.names = c(NA, 36L))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment