---
# System prepended metadata

title: mouse physiology

---

mouse physiology
==

	water <- read.csv("Desert_Animal_Water.csv)
    boxplot(water$consumption_per_weight ~ water$animal, col=c('sienna4','sienna4','dodgerblue','dodgerblue','dodgerblue','grey','grey'), xlab='Individual ID', ylab='g water /g weight /day', frame.plot=F)
    
    abline(h=0.1065829, lwd=3)
    

<a href="http://imgur.com/CdqBJw2"><img src="http://i.imgur.com/CdqBJw2.png"></a>


	genus <- read.delim("~/Box Sync/Desert_Animal_Stuff/R_desert_animal_water/pero_genus_water_consumption.txt")

	colfunc <- colorRampPalette(c("sienna4", "dodgerblue"))
	colfunc(7)

	barplot(sort(genus$water) , lwd=1, pch=1, col=c("#8B4726", "#78534A", "#665F6E", "#546B92", "#4277B6", "#3083DA", "#1E90FF"), ylab='g water/g weight/day')

	abline(h=mean(genus$water), lwd=3)


<a href="http://imgur.com/vkwZzpe"><img src="http://i.imgur.com/vkwZzpe.png" title="source: imgur.com" /></a>



	boxplot(water$consumption_per_weight ~ water$animal, col=c("#8B4726", "#78534A","#1E90FF", "#3083DA", "#4277B6", "#546B92", "#665F6E"), xlab='Individual ID', ylab='g water /g weight /day', frame.plot=F)
	abline(h=0.1065829, lwd=3)

<a href="http://imgur.com/mD8WupX"><img src="http://i.imgur.com/mD8WupX.png" title="source: imgur.com" /></a>

	elytes <- read.csv("~/Box Sync/Desert_Animal_Stuff/R_desert_animal_water/Desert_Lab_Animals_elytes.csv", header=TRUE)
	
    par(mfrow=c(1,6))
    boxplot(elytes$Alt ~ elytes$water, frame.plot=F, ylim=c(0,300), xlab='Alt', cex.lab=2, col=c('sienna4', 'dodgerblue'))
    boxplot(elytes$BUN ~ elytes$water, axes=F, frame.plot=F, ylim=c(0,300), xlab='BUN', cex.lab=2, col=c('sienna4', 'dodgerblue'))
    
    boxplot(elytes$Na ~ elytes$water, axes=T, frame.plot=F, ylim=c(75,190), xlab='Na',  cex.lab=2, col=c('sienna4', 'dodgerblue'))
    boxplot(elytes$Cl ~ elytes$water, axes=F, frame.plot=F, ylim=c(75,190), xlab='Cl',  cex.lab=2, col=c('sienna4', 'dodgerblue'))
    
    boxplot(elytes$Cr ~ elytes$water, axes=T, frame.plot=F, ylim=c(0,1), xlab='Cr',  cex.lab=2, col=c('sienna4', 'dodgerblue'))
    boxplot(elytes$TCO2 ~ elytes$water, axes=T, frame.plot=F, ylim=c(0,25), xlab='Bicarb',  cex.lab=2, col=c('sienna4', 'dodgerblue'))


__t tests:__

	t.test(elytes$TCO2 ~ elytes$water)
	....

<a href="http://imgur.com/NdqPEAZ"><img src="http://i.imgur.com/NdqPEAZ.png" title="source: imgur.com" /></a>
