This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(raster) | |
| # load images | |
| image_DNA <- raster('~/BBBC007_v1_images/A9/A9 p5d.tif') | |
| image_actin <- raster('~/BBBC007_v1_images/A9/A9 p5f.tif') |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| import matplotlib.pyplot as plt | |
| from skimage.io import imread | |
| from skimage.feature import match_template | |
| import matplotlib.pyplot as plt | |
| import numpy as np | |
| image = imread("image.jpg") | |
| wally = imread("wally.png") | |
| # select just the red channel |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| import matplotlib.pyplot as plt | |
| from skimage.io import imread | |
| from skimage.morphology import disk | |
| from skimage.filters import rank | |
| import numpy as np | |
| im_all = imread("/home/scott/Dropbox/wally/ww2.jpg") | |
| all_red = im_all[:, :, 0] | |
| im_wally = imread("/home/scott/Dropbox/wally/wally2.png") | |
| wally_red = im_wally[:, :, 0] |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| path <- paste(getwd(), "\\", sep = "") | |
| files <- list.files(path=path, pattern="*.csv") | |
| for(file in files) | |
| { | |
| perpos <- which(strsplit(file, "")[[1]]==".") | |
| assign( | |
| gsub(" ","",substr(file, 1, perpos-1)), | |
| read.csv(paste(path,file,sep=""))) | |
| } |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| source_https <- function(url, ...) { | |
| # load package | |
| require(RCurl) | |
| # parse and evaluate each .R script | |
| sapply(c(url, ...), function(u) { | |
| eval( | |
| parse( | |
| text = getURL(u, followlocation = TRUE, | |
| cainfo = system.file("CurlSSL", |
NewerOlder