Displaying 1 result from an estimated 1 matches for "d_y_axis_parameter".
2012 Aug 08
1
Confidence bands around LOESS
...dartden.com/smoothing.csv", sep=",")
mydata <- read.table("x.csv", header=TRUE, sep=",",)
attach(mydata)
reg1 <- lm(Y_Axis_Parameter~X_Axis_Parameter)
par(cex=1)
* *
* *
#Plots the data but makes nondetects a different color and type based on
column D_Y_Axis_Parameter being a 0 for ND and 1 for detect.
plot(X_Axis_Parameter, Y_Axis_Parameter, col=ifelse(D_Y_Axis_Parameter,
"black", "red"),ylab = "Y_Axis_Parameter", pch=ifelse(D_Y_Axis_Parameter,
19, 17), cex = 0.7)
plx<-predict(loess(Y_Axis_Parameter ~ X_Axis_Parameter, data=...