hsd table issue

[Erin-Rooney]

@kaizadp

Do you know what I did wrong here? All of the phosphorus pools have the same values. I went line by line and I think it happens somewhere in the code for abund_table_with_hsd_ftrt. But I'm not sure what happens.

WyoP/code/3-threewayanovas-som.R

Lines 308 to 322 in 1929dd0

	# combine with summarized table
	#something is going wrong and I'm winding up with phos pools all being the same
	abund_table_with_hsd_ftrt =
	table_ftrt %>%
	left_join(abund_hsd_ftrt) %>%
	# combine the values with the label notation
	mutate(value = paste(summary, label),
	# this will also add " NA" for the blank cells
	# use str_remove to remove the string
	#value = str_remove(value, " NA")
	) %>%
	dplyr::select(-summary, -label) %>%
	pivot_wider(names_from = "phos_pool", values_from = "value") %>%
	force()

[kaizadp]

line 305 should be:
group_by(ctrt, time, phos_pool) %>%

WyoP/code/3-threewayanovas-som.R

Line 305 in 1929dd0

group_by(ctrt, time) %>%

also, in your packages script, comment out the install.packages() line. Otherwise, you're installing the package each time you source() the script.

WyoP/code/0-packages.R

Line 16 in 1929dd0

install.packages("IDPmisc")

[kaizadp]

Also, add .DS_Store to the gitignore

[Erin-Rooney]

I actually had line 305 like that originally and changed it to try to solve the problem. It's still messed up when I change it back.

[kaizadp]

same problem on line 273
You were getting the same value for all because table_ftrt did not have a column for phos_pool.

group_by(ctrt, ftrt, time, phos_pool) %>%

WyoP/code/3-threewayanovas-som.R

Line 273 in bfc403a

group_by(ctrt, ftrt, time) %>%

This gives me:

[Erin-Rooney]

Ohhh!!! Thank you!!