Copy and run this at the begining of your code:
source('https://raw.githubusercontent.com/FerAguate/SmallRFunctions/master/aguatesource.R')
Use this function to source any (or all) small functions.
aguatesource(myfunction)
The argument of this function is: myfunction = character or string of characters with function names. If myfunction == 'all', all functions in the repository will be loaded.
create_color_vector() # Creates a vector of colors
load_from_rdata() # Loads one object from rdata extensions
mybiplot() # Biplot to compare between two groups
grow_tree() # Creates a tree with orthogonal branches based on principal components
add_legend() # Adds legend to a regular plot
myheatLD() # Plots a LD heatmap