Zach's Blog

This was originally going to be an anatomical picture of the hand focusing on tendons and palmar muscles, but I ran out of time before we moved on to the dorsal aspect of the hand. I probably won't ever finish it, so I decided to just share it as a very amateurish artistic contribution.

Monday : Labor Day! Which means that Lexi tried to clean the house with screaming kids while I finished up as many projects as I could before the semester gets insane with the beginning of the human structure and function class. Basically, I won't be seeing anything but the inside of a book until December. Tuesday : We had a disease scenario training in which we figured out that ice cream was responsible for gastroenteritis following a church picnic in the 1940's. I then spent most of the day studying and spent some time at the park with Addie while Zoey and Lexi went to the store. Wednesday : Took the final exam for mastering medical information and then learned about how to take someone's sexual history. It seems like we spent so much time emphasizing how we shouldn't feel awkward about it because it's necessary that it convinced people that they felt awkward about it. Some of the standardized patient interviews were really interesting because it became mo

The following represents the current extent to which the iClass package I’ve been developing has been tested. The goal is to impliment it in ANTsR eventually when I’m not in the midst of medical school classes. For now this can be used if ANTsR is already installed and the following code is run to download the package from github. ## install.packages("devtools") devtools::install_github("Tokazama/iClass") library(ANTsR) library(h5) home <- '/Volumes/SANDISK/datasets/ucsd/' ucsd <- read.csv(paste(home, 'spreadsheets/ucsdWOna.csv', sep = ""))[, -1] iGroup The first thing I want to do is create an object that represents my image information in a convenient way. I can do this using the iGroup class. The following demonstrates how I do so with whole brain morphometry images. wblist <- c() boolwb <- rep(FALSE, nrow(ucsd)) for (i in 1:nrow(ucsd)) { tmppath <- pas