diff --git a/R/rsquare.R b/R/rsquare.R
index d73a079..d43a66e 100644
--- a/R/rsquare.R
+++ b/R/rsquare.R
@@ -1,3 +1,4 @@
+#Testing if I can edit code (KK)
 rsquare <- function(example,strains){
 	Y = matrix(example,nc=1)
 	J = matrix(1,nr=length(example),nc=length(example))