- erlars21·Last edited by erlars21 on Aug 31, 2020Linked with GitHubContributed by
Read more
BI376 Final Project
Emily Larson & Mark Young Proposal For our project, we plan to investigate variation in Monstera leaf shape. In a 2013 paper, Chris Muir presents a model to explain the evolutionary favorability of leaf fenestration for the sunfleck dependent Monstera. However, he ignores between leaf variation in fenestration. Monstera are characterized by a multi-layer canopy of different sized leaves with different numbers of cuts. We plan to capture leaf shape with geometric morphometrics and relate it to degree of fenestration and light recieved (we are using height as a proxy). Muir's model indicates that light conditions are critical to the selective advantage of fenestration. Thus, any observed relationship between light and leaf shape and fenestration may expose phenotypic plasticity in support his model. Specifically, we hope to see investment in fenestration and shape change only in high-light leaves, as his model predicts that fenestration is only beneficial for leaves recieving enough sunflecks. We also hope to see changes in leaf shape to maximize ground area (includes holes) in high light leaves, as this should further increase degree of fenestration. We plan to collect our data from Monstera deliciosa found on campus. Emily has one with 25 leaves and there are others in Arey and Olin. However, while Emily's resides in relative shade, the others are grown in greenhouse conditions. The differences in light conditions may confound our analysis so we have not yet decided to incorporate the Arey and Olin plants. In addition, we are interested in differences between leaves on the same plant, not differences between plants. Annotated Bibliography Muir, C. D. How did the swiss cheese plant get its holes? Am. Nat. 181, 273–281 (2013).
Nov 16, 2020Lab Exersize 2
Tutorial 1 library(borealis) data("pupfish", package="geomorph") str(pupfish) edge.landmarks <- 11:56 pup.links <- matrix(c(edge.landmarks[-length(edge.landmarks)], edge.landmarks[-1]), ncol = 2, byrow = FALSE) pup.links <- rbind(pup.links[-c(23,28,38),], matrix(c(4,11, 1,3, 3,9, 9,38, 33,7, 34,8, 4,48, 1,46, 49,56),
Oct 5, 2020Lab Exersize 1
Mark Young & Emily Larson ## packages library(borealis) #setwd("/personal/mgyoun21/bi376") create.tps( input.filename = "Ofas.RNAi.nota.digitization.csv", output.filename = "Ofas.RNAi.nota.tps", id.factors = c('digitizer','treatment'), include.scale = TRUE,
Sep 28, 2020R Exercise
Done by Emily Larson, Gus Shuster, and Michael Yorsz install.packages("dunn.test") devtools::install_github("aphanotus/borealis") #loaded ggplot 2 and dplyr Challenge 1 data("ChickWeight") ChickWeight$log10wt <- log10(ChickWeight$weight)
Sep 14, 2020
HackMD