Skip to content

Instantly share code, notes, and snippets.

@gaballench

gaballench/ex.r

Created December 1, 2015 00:46
Show Gist options
  • Save gaballench/fe946ed80d5459cec256 to your computer and use it in GitHub Desktop.
Save gaballench/fe946ed80d5459cec256 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
ex.r
larvaTable <- data.frame(Contrast = names(larvaCor),
Rho = unname(unlist(larvaCor)[grep("estimate", names(unlist(larvaCor)))]),
p.value = unname(unlist(larvaCor)[grep("p.value", names(unlist(larvaCor)))]), stringsAsFactors = FALSE)
symmetry <- c(Asymmetric = sum(table(larvae$Asymmetry)[c("Left", "Right")]),
Symmetric = unname(table(larvae$Asymmetry)[3]))/sum(table(larvae$Asymmetry))*100
gaps <- c(Absent = length(grep("(1)", larvae$LTRF, fixed = TRUE)),
Present = (length(larvae$LTRF) - length(grep("(1)", larvae$LTRF, fixed = TRUE))))/length(larvae$LTRF)*100
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment