Hi all,
I got following problem in fitting the data.
Any kind of suggestions are welcome


> beta <- 3.5
> d <- seq(0.1,62.5,0.1)
> y <- exp(-beta*d)
> y1 <- y
> x <- read.table("epidist.txt", header = TRUE)
> data.nls <- as.data.frame(cbind(y1,x))
> #attach(data.nls)
> nls.fit <- nls(y1~dist,data.nls)
Error in cll[[1L]] : object of type 'symbol' is not subsettable


Best

	[[alternative HTML version deleted]]

