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

#ingestion rate and mass of zooplankton
mass1<-runif(35, 2, 10)#draws 35 random continuous observation from 2-10
ing1 <-mass1*(-.25)+3.5+runif(35,-.2,.2)
mass<-c(mass1, rep(NA,49-length(mass1)))#fill column to max column length with "NA"
ing<-c(ing1, rep(NA,49-length(ing1)))
ming<-cbind(mass,ing)

#parasitoid wasp pupal width and clutch size
clutch<-sample(1:4, 49, replace=T)
width<-clutch*.2+4.2+runif(49,-.2,.2)
para<-cbind(clutch,width)

#bone C13 and N15 ratios in marine and C3+C4 biomes
marc1<-runif(27, -25, -5)
marn1<-marc1*.48+21.4+runif(27, -2,2)
marc<-c(marc1, rep(NA,49-length(marc1)))
marn<-c(marn1, rep(NA,49-length(marn1)))
mar<-cbind(marc,marn)

ccc1<-runif(34,-25,-5)
ccn1<-ccc1*.17+11+runif(34,-2,2)
ccc<-c(ccc1, rep(NA,49-length(ccc1)))
ccn<-c(ccn1, rep(NA,49-length(ccn1)))
cc<-cbind(ccc,ccn)

regex<-cbind(ming,para,mar,cc)


write.csv(regex, file = "regex.csv")#outputs regex to a csv file