Displaying 4 results from an estimated 4 matches for "sitetype".
2012 Oct 24
1
randomly select another observation with same grouping factor and year value, do for every record in dataframe
...of the second randomly chosen observation, and several other characteristics of the randomly chosen observation. Below is the code I have written, but it doesn't work.
Thanks for any help.
Christy
################test
roads=read.csv("streamland23.csv")
for (i in 1:nrow (roads)){
Sitetype= roads$Sitetype
yr=roads$REACH_Yr
initRchid=roads$RchID
huc1=roads$HUC
sample.df <- function(df, n) df[sample(nrow(df), n), , drop = FALSE]
selected=sample.df(roads[roads$HUC == "huc1"& roads$REACH_Yr =="yr" , ], 1)
output=cbind (initRchid,selected$RchID,selected$Site...
2012 Dec 06
2
lme4 glmer general help wanted - code included
...2 and 3 are in an area called "blue".
# My data frame:
data=data.frame(site=c(rep(1,10),rep(2,10),rep(3,10)),replicate=c(rep(1:5,6)),time=c(rep(1,5),rep(2,5),rep(1,5),rep(2,5),rep(1,5),rep(2,5)),abundance=c(1,2,1,2,1,2,1,2,1,2,30,32,30,32,30,32,30,32,30,32,30,31,33,32,31,31,33,32,31,32),sitetype=c(rep("yellow",10),rep("blue",20)))
data$site=factor(data$site)data$replicate=factor(data$replicate)data$time=factor(data$time)
data
# Initial remarks: # As each replicate (1-5) was taken from within each site (1-3) on both sampling times (1-2),# I figure that 'replicate...
2011 Jul 21
0
Survdiff for multiple comparisons
...invasive plants I
outplanted to edges and interiors of island and mainland sites in a local
reservoir. I am using the KM estimate and had no problem doing survdiff for
my data using the following code:
S4<-Surv(outplant$SurvTime, outplant$StatusD6)
diff4=survdiff(S4 ~ outplant$Species+outplant$SiteType+outplant$EdgInt)
diff4
Species = ALBIJU or LONIJA
SiteType = Island or Mainland
EdgInt = Edge or Interior
The overall test for difference among the 8 curves is highly significant
(p<0.001), but what I would like to know is how I would go about testing for
pairwise differences among the eight c...
2006 Jan 23
0
form_remote_tag and Safari (HELP!)
...gt; "Element.hide(''setupslist_progress'')",
:update => ''setupslist_display'',
:complete => evaluate_remote_response %>
<%= select "website", "id", Website.find(:all,
:conditions => ["merchant_id = ? AND sitetype = ''PPC''", @session
[:user].merchant_id]).collect {|p| [p.domain, p.id]} %>
<%= image_submit_tag "http://images.bluechips.com/DomainWorks/Submits/
submit.gif" %>
<%= end_form_tag %>
I am using this as the form_remote_tag tag for a submission of a...