Displaying 1 result from an estimated 1 matches for "summarizeall".
Did you mean:
summarize_all
2012 Feb 16
1
how to get r-squared for a predefined curve or function with "other" data points
...lt;- subset(curvedata,Group == i)$PLC
name <- subset(curvedata,Group == i)$Sample
points(x,y)
vlc <- nls(y ~ 100/(1+exp(a*(x-b))), start=c(a=1, b=-3), data=list(x,y))
curve(100/(1+exp(coef(vlc)[1]*(x-coef(vlc)[2]))), col=1, add = TRUE)
Rsquared <- 1 - var(residuals(vlc))/var(y)
summarizeall[i ,"Run"] <- i
summarizeall[i ,"Sample"] <- name[1]
summarizeall[i ,"a"] <- coef(vlc)[1]
summarizeall[i ,"b"] <- coef(vlc)[2]
summarizeall[i ,"R2"] <- Rsquared
listnow <- data.frame(list(Run = c(i),Sample = c(name[1]), a =
c(...