“…You can run the application by clicking # the 'Run App' button above or Ctrl-Enter on each line. # install.packages(c("protr", "devtools", "ggplot2", "dplyr", "shiny"), dependencies = TRUE) if (!requireNamespace("BiocManager", quietly = TRUE)) install.packages("BiocManager") if (!requireNamespace("Biostrings", quietly = TRUE)) species <-c("Felis catus", "Panthera tigris altaica", "Panthera leo", "Mesocriceteus auratus", "Macaca mulatta", "Mus musculus", "Aythya fuligula", "Gallus gallus", "Mustela putoriusfuro", "Sus scrofa", "Canis lupus familiaris", "Rhinolophus sinicus", "Equus caballus", "Bos taurus", "Manis javanica", "Capra hircus", "Ovis aries", "Camelus dromedarius", "Camelus bactrianus") species.scores <-c (27,27,27,23,31,11,8,8,14,21,22,31,27,19,13,19,19,27,27) df.species.score <-data.frame("Species" = species, "Score" = species.scores) df.species.score <-df.species.score[order(df.species.score$Species),] # We also add shading to represent cutoffs for susceptible and non-susceptible species output$plot <-renderPlot(ggplot(df.species.score, aes(y=Score,x='')) + geom_jitter(aes(color=Species, shape=Species), size = 2.5, width=0.5) + scale_shape_manual(values=c (15,16,17,18,15,16,17,18,15,16,17,18,15,16,17,18,15,16,17), RosettaScripts protocol for RosettaCM <ROSETTASCRIPTS> <TASKOPERATIONS> </TAS...…”