Displaying 1 result from an estimated 1 matches for "standestimates".
2013 May 16
2
R looping help
...i)*(length(xi)-1))
fRatio<-ssr/mses[st]
pValues[st]<-1-pf(fRatio,1,length(xi)-2)
#Increment the stand number, zero the within stand collections,
#and start again
st<-st+1
xi<-numeric(0)
yi<-numeric(0)
xi[1]=X[i]
yi[1]=Y[i]
}
}
#Make your data set
standEstimates<-data.frame(standID=stands,intercept=intercepts,slop=slopes,mse=mses,rSquare=rsquares,pValue=pValues)
The standEstimate outputs look like this:
standID intercept slop mse rSquare pValue
1 6833 319.2470 NA 0 NA NA
2 756 708.7470 NA 0 NA NA
3 795 508.2290 NA 0 NA NA
4 1249 503.1460 NA...