cheuerde

file_journals <- ReadBib("journals.bib")
dates <- unlist(unique(file_journals$year))[order(unlist(unique(file_journals$year)),decreasing = TRUE)]

#Prints recerences
for (date in dates) {
  cat(paste0("##",date),"\n")
  print(file_journals[list(year=date)],.opts = list(style="markdown",bib.style ="authoryear" ,max.names =10,dashed=FALSE))
  cat("\n")
}

cheuerde

name: "Alex_Singleton"
navbar:
  title: "Alex Singleton"
  left:
    - text: "Publications"
      icon: fa-book  fa-2x
      href: publications.html
    - text: "CV"
      icon: fa-file  fa-2x
      href: cv.html

cheuerde

// Use Gists to store code you would like to remember later on
console.log(window); // log the "window" object to the console

cheuerde

# Befehl 'sed'

sed 's/AA/0/g' phen_gen.txt >phen_gen_neu.txt



# ein programm lokal ausführen:

./

cheuerde

'calc' <- function (asreml)
{
    summ <- summary(asreml)
    vc <- summ$varcomp
    DF <- nrow(vc)
    if ("Fixed" %in% levels(vc$constraint))
        DF <- DF - table(vc$constraint)["Fixed"]
    if ("Constrained" %in% levels(vc$constraint))
        DF <- DF - table(vc$constraint)["Constrained"]
    names(DF) <- ""