library(RWebServices)
oneWayAnova <- function( response, predictor ) {
if ( is.character( predictor ))
return( oneWayAnova( response, as.factor( predictor )))
formula <- as.formula( substitute( response ~ predictor ))
result <- lm( formula )
anova( result )
}
typeInfo(oneWayAnova) <-
SimultaneousTypeSpecification(
TypedSignature(
response = "numeric",
predictor = "factor"),
TypedSignature(
response = "numeric",
predictor = "character"),
returnType = "anova" )
res <- typeInfo2Java(oneWayAnova)
res
summary(res)
Run the code above in your browser using DataLab