[rkward-cvs] rkward/rkward r-syntax-test.R,NONE,1.1

[Arne Henningsen]

Update of /cvsroot/rkward/rkward/rkward
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv7381

Added Files:
	r-syntax-test.R 
Log Message:
added example R file to test syntax highlighting

--- NEW FILE: r-syntax-test.R ---
## This is a Headline
# This is a Comment

myBoolean <- TRUE
myNa <- NA

myString <- "This is a String"
"String 2" -> myString2
myString3 <<- "global assignment"
myString4 <- as.character( 3 + 4 )

myMatrix  <- matrix( 1:6, nrow = 3, ncol = 2 )
myMatrix2 <- myMatrix + 4
myMatrix3 <- t( myMatrix ) %*% myMatrix
myMatrix[ myMatrix < 4 ] <- 0
myMatrix[ myMatrix == 4 ] <- 10
myFloat = 1.234
myBooleanVector <- c( 1, 5 ) %in% c( 1, 2, 3, 4 )

if( 3 > 4 ) {
   stop( "Error: 3 is not graeter than 4!!!" )
} else if( 3 == 4 ) {
   stop( "Error: 3 is not equal to 4!!!" )
}

for( i in 2:5 ) {
   print( paste( "No. ", as.character( i + ( 3 + i ) ), sep = "" ) )
}

try ( {
	x <<- 1
	x <<<- 1		# syntax error
	x += 1 -= x1 *= x2  # syntax error
	x =+ 1 =- x1 =* x2  # syntax error
	"%my 1st infix%" <- function (x, y) { x + y }		# legal infix
	3 %my 1st infix% 4
	"%my%infix%" <- function (x, y) { x + y }		# illegal infix
	3 %my%infix% 4							# syntax error
},
silent=FALSE)

x <- 1
print ("hi", quote=(x==1))

cat( "\nNo Errors!\n" )