Displaying 1 result from an estimated 1 matches for "y_axis_paramet".
Did you mean:
y_axis_parameter
2012 Aug 08
1
Confidence bands around LOESS
...vid
-----------------------------
#Load your data. Is located on the web at the address below
mydata <- read.csv("http://doylesdartden.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 = "...