Displaying 2 results from an estimated 2 matches for "corrcoeff".
2006 Jul 11
1
test regression against given slope for reduced major axis regression (RMA)
...eta 'sgn function to return sign with magnitude of 1
betacoeff <- sign(covariancexy) * ((varYj^0.5) / (varXj^0.5))
## 'make intercept
Intercept <- meanyj - meanxj * betacoeff
## Make R the pearson produce moment correlation coefficient
if (varYj==0 | varXj==0){
corrCoeff <- 0
}else{
corrCoeff <- (sumXjYj - ((sumXj * sumYj) / n)) / ((sdxij * sdxik)^0.5)
}
## Make sample variances of betacoefficient and intercept
variancebeta <- (varYj / varXj) * ((1 - (corrCoeff ^ 2)) / n)
varianceintercept <- (varYj / n) * (1 - corrCoeff) * (2 + ((meanx...
2009 Jan 19
0
Error while adding legends to xyplot
...Now, when I try to copy it as a Meta file, it shows error and R terminates
abruptly. So I will be grateful if somebody could guide me to overcome this
since I am interested in saving the graphs as a Meta file than any other
file!
Below furnished is the R Code that I have used for the same.
CorrCoeff <- 0
Corr <- cor.test(FCV, FCV_Fitted)
CorrCoeff <- as.numeric(round(Corr$estimate,4))
myPlot <- xyplot(FCV + FCV_Fitted ~ Year, data=Tobacco,
col=c("orange","blue4"), freq=TRUE,
main="FCV Tobacco Production & Forecasted Figures Over The Yea...