
oppps,  Now I used 'dput' function. Again I am sending. I am so sorry for inconvenience. 
HI R userI am sorry that my data was not readable formate in the last email. Agin I am trying to send it. hope this time, that  table can be readable.As I mentioned earlier that I was struggling to figure out on how I can calculate the average from the two tables in R. Any one can help me? really your helpwould be grateful- I am spending so much time to figure it out. It should not be so hard, I think.I have very big data but I have created a hypothetical data for simplification.for exampleI have : table 1Table 1: species occurrence data> dput(table1)structure(list(X = structure(1:4, .Label = c("Plot1", "Plot2", "plot3", "plot4"), class = "factor"), speciesX = c(1L, 0L, 1L, 0L), speciesY = c(0L, 1L, 0L, 0L), speciesZ = c(1L, 1L, 0L, 1L), speciesXX = c(0L, 0L, 1L, 0L)), .Names = c("X", "speciesX", "speciesY", "speciesZ", "speciesXX"), class = "data.frame", row.names = c(NA, -4L))
Table 2: table 2. species tolerance data> dput(table2)structure(list(X = structure(c(1L, 3L, 2L), .Label = c("SpeciesX", "SpeciesXY", "SpeciesY"), class = "factor"), EnviA = c(0.21, 0.1, 0.14), EnviB = c(0.4, 0.15, 0.16), EnviC = c(0.17, 0.18, 0.19)), .Names = c("X", "EnviA", "EnviB", "EnviC"), class = "data.frame", row.names = c(NA, -3L))> You may noticed that table 2 does not have species Z which was in tableTable 3: Now I want to get the average value of species tolerance in each plot based on each environmental value (EnviA or EnviB etc).The example of the out come (final table I was looking for it).Results table 3a: averages species tolerance in each plot based on EnviAsuch as: >  dput(table3a)structure(list(X = structure(1:4, .Label = c("plot1", "plot2", "plot3", "plot4"), class = "factor"), speciesX = c(0.21, NA, NA, 0.21), speciesY = c(NA, 0.1, NA, NA), speciesZ = structure(c(1L, 1L, 1L, 1L), .Label = "Nodata", class = "factor"), speciesXX = c(0.14, NA, 0.14, NA), average = c(0.175, 0.1, 0.14, 0.21)), .Names = c("X", "speciesX", "speciesY", "speciesZ", "speciesXX", "average"), class = "data.frame", row.names = c(NA, -4L))
Table 3b
Result table 3b: average species tolerance in plot based on EnviB>  dput(table3b)     structure(list(X = structure(1:4, .Label = c("plot1", "plot2", "plot3", "plot4"), class = "factor"), speciesX = c(0.4, NA, NA, 0.4), speciesY = c(NA, 0.15, NA, NA), speciesZ = structure(c(1L, 1L, 1L, 1L), .Label = "Nodata", class = "factor"), speciesXX = c(0.16, NA, 0.16, NA), average = c(0.28, 0.15, 0.16, 0.4)), .Names = c("X", "speciesX", "speciesY", "speciesZ", "speciesXX", "average"), class = "data.frame", row.names = c(NA, -4L))I hope this time the data would be readable formate. Would any one help me how I can calculate these?ThanksKristi Golver==


again 

 		 	   		  
	[[alternative HTML version deleted]]

