An embedded and charset-unspecified text was scrubbed... Name: not available URL: <https://stat.ethz.ch/pipermail/r-help/attachments/20131105/34b8d190/attachment.pl>
regession code
2 messages · IZHAK shabsogh, Rui Barradas
Hello,
You are trying to get the coefficients of the function, nt of that
function's result. Also, your function returns nothing. Try instead
fn <- function(x,y){
lreg <- lm(y ~ x)
lreg
}
fit <- fn(x,y)
b <- coef(fit)
b
Hope this helps,
Rui Barradas
Em 05-11-2013 10:56, IZHAK shabsogh escreveu:
y <- c(5.5199668, 1.5234525, 3.3557000, 6.7211704, 7.4237955, 1.9703127,
+ 4.3939336, -1.4380091, 3.2650180, 3.5760906, 0.2947972, 1.0569417)
x <- c(1, 0, 0, 4, 3, 5, 12, 10, 12, 100, 100, 100)
fn<-function(x,y){
+ lreg<-lm(y ~ x) + }
fn(x,y) b<-coef(fn)
Error: object of type 'closure' is not subsettable can you please correct this error and explain to me what is the problem with this code,that i am get the above error thankx [[alternative HTML version deleted]]
______________________________________________ R-help at r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.