[R] Help with Sink Function

[Addi Wei]

Sorry about that. Still new to this...  The code below should be
reproducible.    All R2 should just be 1, and I should write 1 to
R2outputKKNN.txt 10 times....nothing is happening.  Appreciate the efforts
to help! 

for (i in 1:10)
{
      	adata = 1:5
 	bdata = 6:10
	lm <- lm(adata~bdata)
	slm <- summary(lm)
        str(slm)

       if (i == 1)     {               
		previousR2 <-slm$r.squared
               sink(file="R2outputKKNN.txt", append=TRUE)
               previousR2                      
               sink()  }       else if(i!=1)
       {
               currentR2 <- slm$r.squared
               if (previousR2 > currentR2)
               {
                       currentR2 <- previousR2        
               }      
               if (previousR2 < currentR2)             {
                       sink(file="R2outputKKNN.txt", append=TRUE)
                       currentR2
                       sink()  
               }
       }
}
-- 
View this message in context: http://r.789695.n4.nabble.com/Help-with-Sink-Function-tp2291705p2291717.html
Sent from the R help mailing list archive at Nabble.com.