rm(list=ls()) #clears memory
setwd("/rstuff") #sets path

#flying squirrel foraging
marb<-rnorm(10, mean=0.1, sd=0.02)
marblog<-rnorm(10, mean=.11, sd=.02)
truff<-rnorm(10, mean=1.7, sd=0.02)
trufflog<-rnorm(10, mean=1.75, sd=.02)
#fill to 25 with NA for equal length columns for cbind
marbs<-c(marb, rep(NA,25-length(marb)))
marbslog<-c(marblog, rep(NA,25-length(marblog)))
truffs<-c(truff, rep(NA,25-length(truff)))
truffslog<-c(trufflog, rep(NA,25-length(trufflog)))

#sculpin 
empt<-round(rnorm(15, mean=1.2, sd=.2), digits=0)
smal<-round(rnorm(12, mean=1.1, sd=.2), digits=0)
larg<-round(rnorm(13, mean=0.3, sd=.2), digits=0)

empty<-c(empt, rep(NA,25-length(empt)))
small<-c(smal, rep(NA,25-length(smal)))
large<-c(larg, rep(NA,25-length(larg)))


#newt
Jun <-sample(70:120, 21, replace=T)
#draws 21 discrete observations from 70 to 120
#runif(21,70,120) draws continuous from same range
August <-sample(90:160, 25, replace=T)
Octob <-sample(0:40, 12, replace=T)

June<-c(Jun, rep(NA,25-length(Jun)))
October<-c(Octob, rep(NA,25-length(Octob)))

novexam<-cbind(marbs, marbslog, truffs, truffslog, empty, small, large, June,
               August, October)

write.csv(novexam, file = "novexam.csv")